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