Dateien von einem Ftp server runter/hochladen

[Klaus01]

Delphi-Quellcode:

procedure TForm1.connectbutClick(Sender: TObject); 
var 
  i:integer; 
  name:string; 
begin 
  if idftp1.connected=false then 
    begin 
      idftp1.Username:='admin'; 
      idftp1.password:='******'; 
      idftp1.Host:='127.0.0.1'; 
      idftp1.connect; 
      IdFTP1.List(ListBox1.Items); 
      for i:=0 to Listbox1.Count-1 do 
        begin 
          name:=listbox1.Items[i]; 
          listbox2.Items.Add(name); 
          if SaveDialog1.Execute then 
            begin
              ShowMessage(name);
              IdFTP1.Get(Name, SaveDialog1.FileName, true); 
            end;
        end 
    end; 
end;

Wenn Du den Code so änderst, stimmt dann der Name in der Messagebox mit dem Namen in der Listbox überein.

Grüße
Klaus