hi @ all,
ich hab folgendes problem.
und zwar hab ich ein bild (jpeg) und dieses möchte ich vom client zum server schicken via sendstream....
allerdings weiß ich nciht wann ich die datei freistellen kann.
hier mal code für das schicken des bildes:
Code:
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.WriteBuffer(buffer^,i);
finally
freemem(buffer);
end;
Code:
client
senden:=Tfilestream.create('c:\windows\screen_neu.jpg',fmopenread);
form1.ClientSocket1.Socket.SendStream(senden);
end;