Moin moin,
Zitat von
Federvieh:
... gibt es leider kein Demo zur Version 10 ...
Wenn du auf Beispiele angewiesen bist, hättest du dir doch lieber die version 9xx installieren sollen...
Aber hier mal dein Bsp...
Delphi-Quellcode:
//...
uses IdFTPCommon;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := '
ftp.egal.de';
IdFTP1.Username := '
xxx';
IdFTP1.Password := '
xxx';
IdFTP1.Connect;
if IdFTP1.Connected
then begin
IdFTP1.List(ListBox1.Items, '
', False);
if ListBox1.Items.IndexOf('
test.bmp') <> -1
then begin
IdFTP1.TransferType := ftBinary;
IdFTP1.Get('
test.bmp', '
c:\test.bmp', true);
end;
IdFTP1.Disconnect;
//IdFTP1.Quit; //deprecated;
end;
end;
//...
Ein Hinweis: Wenn du die
STRG Taste gedrückt hälst und mit der Maus auf z.B.
.Quit klickst,
gelangst du zur entsprechenden Methode. Dort habe die Entwickler manchmal Kommentare stehen die einem
weiterhelfen könnten.