Problem mit WinSockets

[FastJack2]

... also ich verschicke meine dateien so (nicht nur jpegs):

sender:

Delphi-Quellcode:

procedure TForm1.btn_sendClick(Sender: TObject);
var
  stream:TFileStream;
begin
  try
    cli.Port := strtoint(ed_port.text);
    cli.Address := ed_ip.Text;
    cli.Open;
    stream := TFileStream.Create(ed_file.Text,fmopenread);
    cli.Socket.SendStream(stream);
  except
    me_status.lines.add('error');
  end;
end;

receiver:

Delphi-Quellcode:

var
  outstream: TFileStream;

procedure TForm1.create;
begin
  outstream := TFileStream.Create(ed_file.text,fmcreate);
end;

procedure TForm1.srvClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  len:integer;
  rc:array [0..9999] of char;
begin
  memo1.Lines.Add('READ > '+socket.remoteaddress);
  len := socket.ReceiveBuf(rc,sizeof(rc));
  outstream.write(rc,len);
end;

ps:

Code:

cli: TClientSocket;
srv: TServerSocket;

ich weiss nicht ob es das ist, was du wolltest, da du mit threads arbeitest aber vielleicht hilft es dir weiter ...

greetz
-FastJack2