hi alle zusammen,
ich habe folgendes problem:
ich habe ein bild und dieses bild sende ich per sendstream an den server.
beim server werden auch daten übermittelt, nur wenn ich das bild am ende wieder freigeben möchte, dann gibt es immer eine fehlermeldung und das bild ist nur halb fertig.
Deswegen meine frage: wie kann ich dem bild sagen, wann es fertig ist????
hier mal code:
Delphi-Quellcode:
client:
senden:=Tfilestream.create('c:\windows\screen_neu.jpg',fmopenread);
form1.ClientSocket1.Socket.SendStream(senden);
Delphi-Quellcode:
server:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var screenshot:tjpegimage;
buffer:pointer;
i:integer;
begin
i:=socket.ReceiveLength;
getmem(buffer,i);
try
socket.ReceiveBuf(buffer^,i);
input_bild.Write(buffer^,i);
finally
freemem(buffer);
end;
if input_bild.size=i
then input_bild.free;
end;