Verbindung zum FTP-Server über mehrere Prozeduren hinweg

[shmia]

Es ist ein Beispielprojekt dabei, in dem alle Methoden demonstriert werden.
Du brauchst dich um keine Handles mehr zu kümmern.
Aber mal so als Kurzeinstieg:
1.) Objekt im Formular deklarieren

Delphi-Quellcode:

  uses ...., InetTools; 

  TForm1 = class(TForm)
  ....
  private
    { Private-Deklarationen }
    ftp : TInetFTP;
  ..
  end;

2.) Objekt erzeugen (und zerstören)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   ftp := TInetFTP.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
   ftp.Free;
end;

3.) FTP-Server (einmalig) öffnen

Delphi-Quellcode:

ftp.Server   := 'ftp.wasauchimmer.com'
ftp.User     := 'anonymous';
ftp.Password := 'egal';
ftp.Connect(True);

4.) Dateien hoch- und runterladen

Delphi-Quellcode:

ftp.GetFile('testfile.txt', 'C:\testfile.txt');  // download
ftp.PutFile('C:\autoexec.bat', 'a.bat'); // upload