IDFtp + Download +Dir

[scp]

Eine StringList kann bei get nicht verwendet werden. Probiers mal so z.B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i:integer; 
  stl : tstringlist; 
begin 
idftp1.Connect; 
if idftp1.connected then 
 begin 
  stl := tstringlist.Create; 
  try 
    IdFTP1.List(stl, '*.*', False); 
    DirectoryListBox.Items.AddStrings(stl);

    for i := 0 to stl.count - 1 do 
    begin 
      try
        idftp1.Get(stl[i], 'c:\Test\' + stl[i]); 
      except
        on E: EIdException do  // Hierfür musst du die unit IdException in uses eintragen.
          ShowMessage('FTP-Fehler' + #10 + E.Message); // Nur ein Beispiel, kannst die Fehler auch in ne Listbox oder in ein Label oder so übergeben.
        else
          raise;
      end;
    end; 
  finally 
    stl.Free; 
  end; 
  idftp1.Disconnect;
 end; 
end;