datei versand client->server->client

**ghost007**

Hallo,
ich beschäftige mich zur zeit mal wieder mit meinem kleinen chat programm.
Für die kommunikation verwende ich TServerSocket und TClientSocket.
Nun will ich einen datei versand einbaun, der über den server läuft.
D.h. vom client zum server und der leitet die daten dann weiter an den client, am besten ohne die dateien auf dem server zwischen zu speichern.

1. wie versende ich datein mit den obigen komponenten (anscheinend bin ich für die beispiele hier im forum zu dumm

)
2. wie leute ich die daten am server um

MfG - Ghost007

[EDIT]
also dateien kann ich nun versenden.
mit folgendem code:

zusammenfalten · markieren

Delphi-Quellcode:

			[b]CLIENT:[/b]

procedure TForm1.Button1Click(Sender: TObject); 

var 

  fs: TFileStream; 

begin 

  if not OpenDialog1.Execute then exit;

  with IdTCPClient1 do 

  begin 

    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); 

    Connect;

    try 

      OpenWriteBuffer;

      try 

        WriteStream(fs, true, true, 0);

        CloseWriteBuffer; 

      except 

        CancelWriteBuffer; 

        raise; 

      end; 

    finally 

      Disconnect; 

      fs.Free; 

    end; 

  end; 

end; 

[b]SERVER:[/b]

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); 

var 

  fs: TFileStream; 

  SizeOfIncomingStream: integer; 

begin 

  if not SaveDialog1.Execute then exit; 

  fs := TFileStream.Create(SaveDialog1.Filename, fmCreate or fmShareExclusive); 

  with AThread.Connection do 

    try 

      SizeOfIncomingStream := ReadInteger; 

      ReadStream(fs, SizeOfIncomingStream);

    finally 

      Disconnect; 

      fs.Free; 

    end; 

end;

Wie kann ich nun die datei anstatt auf dem server zu speicher an einen client weiter schicken?
[/EDIT]

datei versand client->server->client

datei versand client->server->client

Forumregeln