Gibt es hier keinen der sich mit den
Ftp Indy Komponenten auskennt?
Bitte ich muss das in dieser Woche fertig kriegen und ich bin immernoch kein Stück weitergekommen.
Ich kann die Dateien einfach net runterladen.
Der savedialog öffnet sich, wenn ich die Datei dann aber speichern und halt runterladen will kommt die Meldung: EidProtocolReplyError. Meldung: "File not found."
Code:
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
IdFTP1.Get(Name, SaveDialog1.FileName, true);
end
end;
end;