Delphi - Mandare/Ricevere file con le componenti Indy

Forum - Delphi - Mandare/Ricevere file con le componenti Indy

XBarboX (Member)
Guru

Messaggi: 945
Iscritto: 31/12/2008

Postato alle 19:31
Martedì, 14/09/2010

Salve,
ho bisogno di mandare un file dal client al server (connessione TCP/IP con le componenti TIDTCPClient e TIDTCPServer).
Ho scritto questo ma non va:
Client:

Codice sorgente - presumibilmente Plain Text

ClientFile.Socket.WriteFile('File.xxx');

Server:

Codice sorgente - presumibilmente Delphi

procedure TMain.ServerFileExecute(AContext: TIdContext);//ServerFile è il server
var
  Stream : TFileStream;
begin
Stream := TFileStream.Create('File.xxx', fmCreate);
AContext.Connection.IOHandler.ReadStream(Stream);
Stream.Free;
end;