Возникает исключение при TStream.Free

[pu4koff]

вы тогда мне дураку объясните почему вот это у меня работает:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := TFileStream.Create('C:\test.doc', fmcreate);
  fstream.Free;
  fstream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if assigned(fstream)
    then fstream.Free;
end;

при дестрое же у нас потока не существует, но ошибок никаких не выдается, а по вашей логике должен быть экзепшн. только если не написать после Free присваивание nil, то естественно будет ошибка. кстати может в этом косяк еще где у автора.

[BOBAH13]

Ну используйте FreeAndNil(TObject) и все будет пучком...

[pu4koff]

мне в этом FreeAndNil не нравица реализация. нафик там переменная дополнительная вводица я так и не понял) )

[alexBlack]

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

вы тогда мне дураку объясните почему вот это у меня работает:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := TFileStream.Create('C:\test.doc', fmcreate);
  fstream.Free;
  fstream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if assigned(fstream)
    then fstream.Free;
end;

при дестрое же у нас потока не существует, но ошибок никаких не выдается, а по вашей логике должен быть экзепшн. только если не написать после Free присваивание nil, то естественно будет ошибка. кстати может в этом косяк еще где у автора.

Когда мы отдаем поток на передачу
объект уже нам не принадлежит, и будет уничтожен после передачи.
Поэтому можно сразу присвоить nil и ошибки не будет:

 sendStream( ...
 FStream := nil

sendStream освобождает поток и получается, что наша ссылка FStream указывает на несуществующий объект (sendStream не может сделать FStream := nil)

[eks-s]

Спасибо, теперь всё понятно. Ещё я думал что Assigned проверяет существование объекта. Из справки понял, что функция проверяет лишь наличие указателя, но не проверяет на что он указывает. Собственно вроде теперь всё на своих местах

[mihali4]

Когда мы отдаем поток на передачу
объект уже нам не принадлежит, и будет уничтожен после передачи.

Ключевая фраза.
Можно сколько угодно использовать приведенный автором код, но без
собственно обмена данными - все будет в порядке. (см. пример от pu4koff)
А вот alexBlack совершенно четко обрисовал ошибку...
(Прошу прощения, может и флуд, не удержался)

[andrey4623]

Пробуйте через try...except...end