Delphi TCP Daten Senden / Empfangen

[XzErO]

Hallo,

Ich will gerne Daten z.b. MP3, Exe, usw. versenden (Client -> Server. Server -> Client)

Jetzt will ich eine Datei von Server an denn Client Senden, nur weiß ich nicht wie ich das machen sollte. (Benütze Indy10)

Wie ich eine Datei an denn Server sende weiß ich schon.

Delphi-Quellcode:

//Server. Empfangen
procedure TDesktop.IdTCPServerExecute(AContext: TIdContext);
var
  FSTream: TFileStream;

begin
  With IniDat do begin
  FStream := TFileStream.Create('C:\datei.exe', fmCreate);
  end;
  try
    AContext.connection.IOHandler.ReadStream(fstream);

  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);
end;

//Client. Senden
FStream := TFileStream.Create('C:\datei.exe', fmOpenRead);
    idtcpclient.Connect;
        try
        idtcpclient.IOHandler.Write(Fstream,0,true);
        finally
        idtcpclient.Disconnect;
        end;
    FreeAndNil(FStream);

Danke.

[Neumann]

Ein Server sendet per Definition wie ich es verstehe nur dann Daten, wenn er gefragt wird. Die Verbindung wird ja auch in der Regel vom Client aus aufgebaut. Der Server kennt den Client vor dem Verbindungsaufbau ja eigentlich nicht. Ausnahmen gibt es zwar, aber sind eher selten.

Die einfachsten Lösungen sind folgende:

1. Client fragt nach neuen Dateien zum herunterladen
2. Server sendet Daten per Mail (Dann wird die Verbindung zum Mailserver wieder vom Client aufgebaut, s.o.)