Delphi [TStream]

...# Delphi [TStream] #...​

Требуется:
Простите за столь глупую просьбу, но приведите пожалуйста пример передачи содержимого компонента через TStream или TMemoryStream, связка клиент - сервер, Winsock, Socket, IdUdp неважно, и вывод его сразу на аналогичный компонент без сохранения на жестком диске даже в виде временных файлов.

Пояснение:
Просто, какая-то странность, сохраняю содержимое компонента в поток, проверяю размер потока, все нормально, отправляю поток по запросу клиента на сервер, на сервер ничего не приходит. Если сохранять через TFileStream и отправлять через него то все работает, но только это дополнительная нагрузка на систему: записывать на винт --> отсылать --> удалять с винта.

Уточнение:
Пожалуйста приведите пример, компонент может быть любой, но для примера допустим пусть будет содержимое Image.Picture


За ранее большое спасибо.

(PS: просьба без лишних фраз, ответы писать по теме, пожалуйста)

 

Приведи пример кода.

 

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

Код для сервера:

PHP:

...
    RuSrm: TStream; 
...

procedure TForm1.FormCreate(...); 
begin 
  RuSrm:= nil; 
end; 

procedure TForm1.FormDestroy(...); 
begin 
  if Assigned(ComSrm) then 
  begin 
    RuSrm.Free; 
    RuSrm:= nil; 
  end; 
end; 

procedure TForm1.ServerSocket1ClientConnect(...); 
begin
  RuSrm := TStream.Create;
  Image1.Picture.Bitmap.SaveToStream(RuSrm); 
  Socket.SendStream(RuSrm); 
end; 

procedure TForm1.btnTestSocketsClick(...); 
begin 
  ServerSocket1.Active := True; 
end; 

end.

Код для клиента:

PHP:

...
  private 
    ComSrm: TStream; 
...

procedure TForm1.ClientSocket1Read(Sender: TObject; 
  Socket: TCustomWinSocket); 
var 
  iLen: Integer; 
  Bfr: Pointer; 
begin 
  iLen := Socket.ReceiveLength; 
  GetMem(Bfr, iLen); 
  try 
    Socket.ReceiveBuf(Bfr^, iLen); 
    ComSrm.Write(Bfr^, iLen); 
  finally 
    FreeMem(Bfr); 
  end; 
end; 

procedure TForm1.FormCreate(...); 
begin 
  ComSrm := nil; 
end; 

procedure TForm1.FormDestroy(...); 
begin 
  if Assigned(ComSrm) then 
  begin 
    ComSrm.Free; 
    ComSrm := nil; 
  end; 
end; 

procedure TForm1.ClientSocket1Disconnect(...); 
begin 
  if Assigned(ComSrm) then 
  begin
    Image1.Picture.Bitmap.LoadFromStream(ComSrm); 
    ComSrm.Free; 
    ComSrm := nil; 
  end; 
end; 

procedure TForm1.ClientSocket1Connect(...); 
begin 
  FStream := TStream.Create(ComSrm); 
end; 

procedure TForm1.btn1SocketsClick(...); 
begin 
  ClientSocket1.Active := True; 
end;

end.

 

Вместо
RuSrm := TStream.Create;
нужно
RuSrm := TMemoryStream.Create;

из хелпа:
TStream is an abstract or, in C++ terminology, pure virtual class. It should not be instantiated; it relies on abstract or pure virtual methods that must be overridden in descendant classes.

Да, и еще, перед вызовом SendStream
нужно поставить текущую позицию потока в ноль:

RuSrm.Seek(0, soFromBeginning);
Socket.SendStream(RuSrm);

 

Это не так собственно важно, потому что я именно с ним и работала изначально, но все равно спасибо, теперь буду знать, что надо только с ним.

а про установку в ноль , Вы правы она необходима. Что же, приду домой попробую откомпилировать. Спасибо большое, тему пока не закрывайте пожалуйста, на всякий случай.