wie einen stream mit den socks senden und empfangen?!

[prinz_inzide]

wow danke!!

das hab ich jetzt. beim klick auf button1 gekomm ich ne zugriffsverletzung..
ist das weil onclientread mehrmals aufgerufen wird?
dachte das passiert nur bei großen dateien und wollts dewegen der einfachheit halber mal so lassen um überhaupt mal ne datei (300kb) zu verschicken.
leider gehts net..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer:pointer;
begin
  sstream:=tfilestream.Create('c:\stats.jpg',fmopenread);
  sstream.Read(buffer^,sstream.Size);
  client.Socket.SendBuf(buffer^,sstream.Size);
  FreeMem(buffer);
  FreeAndNil(sstream);
end;

procedure TForm1.serverClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  buffer:pointer;
  len:integer;
begin
len := Socket.ReceiveLength;
rstream:=tfilestream.Create('c:\stats1.jpg',fmcreate);
rstream.Seek(0,soFromEnd);
buffer := AllocMem(len);
socket.receivebuf(buffer^,len);
rstream.Write(buffer^,len);
FreeMem(buffer);
freeandnil(rstream); 
end;