hab mir selbst geholfen

[gandime]

so
ich hab mir jetzt selbst geholfen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FStream: TFileStream;
begin
  FStream := TFileStream.Create('C:\client.jpg', fmOpenRead);
  idtcpclient.Connect;
  try
    idtcpclientIOHandler.Write(Fstream,0,true);
  finally
    idtcpclient.Disconnect;
  end;
  FreeAndNil(FStream);
end;


procedure TForm1.idtcpserverExecute(AContext: TIdContext);
var
  FSTream: TFileStream;
begin
  FStream := TFileStream.Create('C:\server.jpg', fmCreate);
  try
    AContext.connection.IOHandler.ReadStream(fstream);
  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);
end;

fals wer das selbe prob hatte hilft das hier hoffendlich