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;