Ошибка сохранения TMemoryStream

[NoName_emaNoN]

Добрый вечер!
Как ни странно, но по этой теме ничего не нашёл ни в гугле, ни в DRKB, ни здесь.

Ситуация такая: Сохраняю TMemoryStream в файл процедурой SaveToFile. Всё отлично, всё работает, но нужно отлавливать ошибки сохранения. Ну если файл "только для чтения" или нету прав на запись и все подобные вещи. Пользуюсь конструкцией:

try
  OutputFile.SaveToFile(FileName);
except
  ShowMessage('Невозможно сохранить файл');
end;

Всё равно выводиться exception из TMemoryStream'а. Нужно самому отловить ошибку. Как это можно сделать?

P.S. Вопрос на засыпку: Какие вообще ситуации могут быть при ошибке сохранения файла, к примеру, файла не существует, нет прав доступа, недостаточно места на диске. Есть ли полный список таких ошибок?

[mihali4]

Сообщение от NoName_emaNoN

Всё равно выводится exception из TMemoryStream'а

А если запускать не из-под Дельфи ?

[NoName_emaNoN]

Выводит "Access violation at address 000000000. Read of address 00000000."

[mihali4]

Ставим бряку на начало процедуры и смотрим точное место возникновения ошибки.

[NoName_emaNoN]

Уже сделал, SaveToFile и есть точное место.
Для теста файлу можно просто заранее присвоить атрибут "Только для чтения" и попробовать сохранить MemoryStream в этот файл. Вылетит ошибка, написанная выше.

[mihali4]

Ну так прочитайте атрибуты файла и либо откажитесь от записи, либо измените их...

[NoName_emaNoN]

Проблема не только в атрибутах. Суть в том, что нужно отловить ошибку записи. Не важно будь то атрибуты, или не хватает места на диске, или прав нет, нужно отловить ошибку и узнать что за ошибка.

[Serge_Bliznykov]

А попробуйте просто EXE-шник запустить (а не RUN(F9) из Delphi)
Скорее всего, exception перехватывает и отображает IDE Delphi
это поведение переключается в настройках:
меню - Tools - Debugges Options - закладка "Language Exception"
убрать птичку [ ] Stop on Delphi Exceptions


---
Ого, тут уже написали сколько!

Выводит "Access violation at address 000000000. Read of address 00000000."

обычно эта ошибка говорит об обращении к памяти, которая не была выделена объекту.
А ну-ка. покажите код целиком.. Вы, часом, не забыли создать TMemoryStream ?!


вот, проверил.
всё работает!

procedure TForm1.Button1Click(Sender: TObject);
var OutputFile : TMemoryStream;
  FileName, s : shortstring;
begin
  FileName := 'C:\test1.mmm';
  OutputFile := TMemoryStream.Create;
  s := 'Hello, Stream!';
  OutputFile.Write(s[0], Length(s)+1);

  try
    OutputFile.SaveToFile(FileName);
  except
    ShowMessage('Невозможно сохранить файл');
  end;

  FreeAndNil(Output);

end;

[NoName_emaNoN]

Ошибка выскакивает и при простом запуске exe файла.
Да, я знаю что ошибка выскакиевает в таких ситуациях, но здесь что-то другое.
Нет, я не забыл его ни создать, ни разрушить. Всё прекрасно работает если файл есть и он доступен для записи: всё записывается прекрасно. Но если файлу поставить атрибут "только для чтения", то сразу же выскакивает эта ошибка.

Для опыта попробуйте по клику на кнопку создать обработчик которые создаёт, пишет в MemoryStream, и сохраняет его в файл. Всё будет прекрасно, но потом поставьте атрибут "только для чтения" и сразу же будет вылетать эта ошибка.

[mihali4]

except
on E:EFCreateError do
      ShowMessage('Невозможно сохранить файл');
end;