sendstream

[Kargi]

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:

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;

client

senden:=Tfilestream.create('c:\windows\screen_neu.jpg',fmopenread);
form1.ClientSocket1.Socket.SendStream(senden);
end;

[N47R0N]

kannst du doch mit einer if funktion klären

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.