Dateien von einem Ftp server runter/hochladen

[Gruber_Hans_12345]

Zitat von Time2Play:

Gibt es nicht noch eine andere Möglichkeit?

einfach die zeile rausnehmen ...

Delphi-Quellcode:

procedure TForm1.connectbutClick(Sender: TObject);
var i,position:integer;
name,s:string;
begin
if idftp1.connected=false then begin
idftp1.Username:='admin';
idftp1.password:='123456';
idftp1.Host:='127.0.0.1';
idftp1.connect;
Idftp1.List (Listbox1.Items,'',false);
for i:=0 to Listbox1.Count-1 do begin
  name:=listbox1.Items[i];
// if SaveDialog1.Execute then begin <<< die hier raus, die ruft den dialog auf
  {position:=pos('.',name);
  s:=copy(name,position,4);}
  IdFTP1.Get(Name,'C:\Dokumente und Einstellungen\File'+'i', true);
//  end
  end
end;