Also ich habs grade probiert und der SaveDialog öffnet sich immernoch
Code:
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
{position:=pos('.',name);
s:=copy(name,position,4);}
IdFTP1.Get(Name,'C:\Dokumente und Einstellungen\'+'i', true);
end
end
end;
Dann dachte ich mir, lass ich das "if SaveDialog1.Execute" einfach weg und schreibe nur IdFtp1.Get... aber dann kommt ne Error Meldung mit File not found...