Image per Socket verschicken

[Klaus01]

Guten Morgen,

es könnte eventuell so gehen:

Delphi-Quellcode:

onclientread: 
  BufSize: Integer;
  s: String;
  stream: TMemoryStream;
- serversocket.socket.receivetext(s)
- BufSize := StrToInt(s);
- Stream:=TMemorystream.create; 
- stream.size:=BufSize;
- serversocket.socket.receiveBuf(stream,BufSize)//? 
- ImBild.picture.bitmap.loadfromstream(stream)
- stream.free;

Grüße
Klaus