-
sendstream
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;
-
kannst du doch mit einer if funktion klären
Code:
client
senden:=Tfilestream.create('c:\windows\screen_neu.jpg',fmopenread);
form1.ClientSocket1.Socket.SendStream(senden);
if form1.clientsocket1.socket.sendstram(senden) then senden.free
end;
hab das lange nich mehr gemacht und das ist jetzt hier einfach so aus dem ärmel geschüttelt aber so in etwa sollte es gehen.
:D