Как избежать ошибок при создании файла?

[Strateg]

Создаю файл (Rewrite). И наткнулся на такую проблему. Файл автоматом создается в каталоге с программой. Программа была записана на CD-диск. И соответственно страшно выругалась на попытку запустить ее с диска. Каким образом можно вообще избежать появления ошибок перед пользователем и спокойно обрабатывать ее появление (либо если есть операторы.. функции.. процедуры, проверяющие возможность создать файл по указанному пути...). Мне посоветовали использовать блок
try
except
On Error:...;
end;
Но в этом случае ошибка перед пользователем все-равно у меня появилась. (По факам прочел еще несколько советов, но не помогло ничего <!--emo&:(--><!--endemo-->...) Может я чего-то недопонимаю? Напишите, плз, короткий код, вызывающий ошибку и перехватывающий ее (то есть, чтобы она не выводила сообщение с ошибкой). Спасибо.

[sm@rt]

Гы. А ты не пробовал файл тупо создавать не в текущей директории а во временной например. Все уважающие себя программы именно так и делают <!--emo&:)--><!--endemo--> Чаще всего это "C:\windows\temp" но вообще в идеале вытягивать из environment variable %TEMP%.
А посоветовали правильно

Код: выделить все

var
f : Text;
begin

try
  AssignFile(f, 'myfile.dat');
  rewrite(f);
except
  AssignFile(f, 'c:\windows\temp\myfile.dat');
  rewrite(f);
end;


[Strateg]

2sm@rt
Абьясняю для нипанятливых.
1) try... бла-бла-бла... ошибка появляется в виде сообщения!!!
2) файл нужно создать возле exe файла если он такое возможно и не создавать вообще, если это невозможно.
3) Мне нужен пример, в котором либо проверяется второе, либо недопускается первое.

[StayAtHome]

2Strateg
1. Можешь привести кусок кода, на котором выскакивает сообщение (вместе с блоком try-except)
2. Попробуй вложеность:
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
var
f : Text;
begin
try
  try
    AssignFile(f, 'myfile.dat');
    rewrite(f);
  except
    AssignFile(f, 'c:\windows\temp\myfile.dat');
    rewrite(f);
  end;
finally
end;<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

[sm@rt]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Абьясняю для нипанятливых.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Таковых здесь не вижу
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->1) try... бла-бла-бла... ошибка появляется в виде сообщения!!!<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Это понятно. Кстати она появляется при запуске самой проги или при ее запуске в Дельфи?
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->2) файл нужно создать возле exe файла если он такое возможно и не создавать вообще, если это невозможно.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Этого ты раньше не говорил......
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->3) Мне нужен пример, в котором либо проверяется второе, либо недопускается первое.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Как правильно сказали код в студию.

[dAnIK SeNT]

2Strateg
Во-первых, если ты запускаешь прогу из среды Дельфи, cообщение об ошибке будет всегда (где-то это в настройках встречается).
Во-вторых, AssignFile использовать очень настоятельно не рекомендуется - гораздо лучше работать через TFileStream. И ошибки отлавливать на два порядка легче.

[StayAtHome]

2dAnIK SeNT
Объясни, пожалуйста, недостатки AssignFile, и преимущества TFileStream т. к. я сам его иногда пользую.
Особенно интересует требовательность к ресурсам и скорость работы. Сорри за оффтоп, но для меня это важно.

[dAnIK SeNT]

2StayAtHome
Недостаток в очень плохой совместимости с виндой и мультипотоковостью. И в трудностях с обработкой ошибок. Можно эксес вайолейшеном по харе получить <!--emo&:)--><!--endemo-->.
Насчет скорости и ресурсов не измерял, не знаю.

[Strateg]

2All Спасибо. На мастерах дельфи нашел кусок книги С. Тейксейра, К. Пачеко. Там вроде что-то подобное объясняется. Буду потихоньку разбираться. Ежли разберусь - отписать в тему?

[alex977]

2Strateg

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
На мастерах дельфи нашел кусок книги С. Тейксейра, К. Пачеко.
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

Можно и полную версию найти <!--emo&;)--><!--endemo-->

[Strateg]

2alex977
!!!!!!!!!!!!!!!!!!!
эмоции, плавно переходящие в овации!!!!

!!!!!!
сорри..... не флуд.....
можешь добыть??!!!

[Mishail]

2 Strateg
<a href='http://delphiplus.nagano.ru/docsdelphi5.html' target='_blank'>http://delphiplus.nagano.ru/docsdelphi5.html</a>

[Strateg]

2Mishail
Огромное человеческое спасибо!

[dAnIK SeNT]

2Strateg
Может я мануалов подкину. Пачеко и Тексейра у меня есть версия 6.0 на английском (+ на русском в бумажном виде <!--emo&:)--><!--endemo-->), а 5.0 - на русском и английском.

[Strateg]

2dAnIK SeNT
5 на русском я скачал с вышеуказанной ссылки, а шестой не помешает, даже на английском. Спасибо. Скинь на ybayanista(sobaka)pisem.net