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

[eks-s]

Здравствуйте! Подскажите почему возникает исключение в 22й строчке при уничтожении потока, что не верно?

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := nil;
end;

procedure TForm1.ButtonServerClick(Sender: TObject);
begin
  ServerSocket.Active := True;
end;

procedure TForm1.ButtonSendClick(Sender: TObject);
begin
  FStream := TFileStream.Create('C:\test.doc', fmOpenRead or fmShareDenyWrite);
  ServerSocket.Socket.Connections[0].SendStream(FStream);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(FStream) then
    begin
      FStream.free;
      FStream := nil;
    end;
end;

[Квэнди]

А вы трасировкой пройдитесь и посомтрите.
Скорей всего удаляется не созданный объект

[eks-s]

Сообщение от Квэнди

А вы трасировкой пройдитесь и посомтрите.
Скорей всего удаляется не созданный объект

Но он ведь в ButtonSendClick создаётся. Или после SendStream(FStream) он сам уничтожается?

[B_N]

22-я строчка это не уничтожение объекта, а попытка присвоить nil объекту, который, в чём я практически уверен, не является указателем. Как Вы себе представляете такое действие?

[Квэнди]

Мда, извиняюсь, засмотрелся на нумерацию строк.
FStream.free;
FStream := nil;
никакого смысла не несет, используйте free

[pu4koff]

возможно ошибка не в удалении потока, а в том, что его кто-то использует еще, а мы его удаляем, т.к. вроде код правильно написан

[Квэнди]

какая разница используется объект или нет ? ответ прост:
смотря что считать 22-й строкой:
если FStream.free; то ошибка скорее всего вызвана отсутствием объекта
если
FStream := nil; то ошибка присвоения пустому месту

[pu4koff]

а Assigned(FStream) по Вашему что делает? случаем не проверяет на наличие объекта?

[alexBlack]

2Алексей eks-s
ошибка все-таки из -за того, что поток уничтожается в SendStream.
Вот часть кода VCL:

  procedure DropStream;
  begin
    if FDropAfterSend then Disconnect(FSocket);
    FDropAfterSend := False;
    FSendStream.Free;
    FSendStream := nil;
  end;

Поэтому в FormDestroy уничтожение уже не существующего объекта.

2Квэнди
Не понял фразу:
FStream := nil; то ошибка присвоения пустому месту

В этой строке никогда не будет ошибки в run-time.

[Квэнди]

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

2Алексей eks-s
ошибка все-таки из -за того, что поток уничтожается в SendStream.
Вот часть кода VCL:

  procedure DropStream;
  begin
    if FDropAfterSend then Disconnect(FSocket);
    FDropAfterSend := False;
    FSendStream.Free;
    FSendStream := nil;
  end;

Поэтому в FormDestroy уничтожение уже не существующего объекта.

2Квэнди
Не понял фразу:
FStream := nil; то ошибка присвоения пустому месту

В этой строке никогда не будет ошибки в run-time.

Пардон, последствия утра ерунду написал