Moin Stanlay,
also ich würde es so versuchen:
Delphi-Quellcode:
var
sBuf : string;
ms : TMemoryStream;
begin
sBuf := StringOfChar(#00,ServerSocket.Socket.ReceivedLength);
ServerSocket.Socket.ReceiveBuf(sBuf[1],ServerSocket.Socket.ReceivedLength);
ms := TMemoryStream.Create;
try
ms.Write(sBuf[1],ServerSocket.Socket.ReceivedLength);
Image1.Picture.Bitmap.LoadFromStream(ms);
finally
FreeAndNil(ms);
end;
end;
Ungetestet, ich hab' das hier direkt reingeschrieben.
Aber nach diesem Prinzip müsste das eigentlich funktionieren.
Wichtig ist hier besonders das [1] bei sBuf, sonst gehen die Daten in's Nirvana
