Bild mit Filestream versenden

[SleepyMaster]

Gehts vielleicht so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  MStream : TMemoryStream;
begin
MStream := TMemoryStream.Create;
Image2.Picture.Bitmap.SaveToStream(MStream);
MStream.Position:=0;
BildClient.SendStream(MStream);    // BildClient := TSimpleTCPClient
MStream.Free;
end;

Delphi-Quellcode:

procedure TForm1.BildServerClientRead(Sender: TObject;
  Client: TSimpleTCPClient; Stream: TStream);
begin
    Form3.Image1.Picture.Bitmap.LoadFromStream(Stream);
end;