Dateien von einem Ftp server runter/hochladen

[Time2Play]

danke sehr, werd ich gleich mal probieren, wenn ich jetzt den richtigen namen habe müsste es dann funzen oder hab ich noch etwas vergessen (übertragungsart etc.)?

edit: ok hat sich erledigt, habs grade probiert und es klappt alles, danke schonmal für alles
jetzt muss nurnoch der upload dran glauben ^^

edit2: kann ich diesen savedialog irgendwie wegbekommen?
der benutzer soll nix vom download mitbekommen also sollte auch am besten kein savedialog geöffnet werden sondern einfach nur abgespeichert werden.
Und vorallem, wie kann ich den Dateitypen bestimmen unter dem es gespeichert werden soll?

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];
  listbox2.Items.Add(name);
  position:=pos('.',name); // Da bekomme ich die Endung der Datei
if SaveDialog1.Execute then begin
  position:=pos('.',name);
  s:=copy(name,position,4);
  IdFTP1.Get(Name, Name, true);
  end
end
end;
end;

[SandStein]

Nun Ja, das sollte nun ja nicht mehr so schwehr sein.
Prinzipiell verstehe ich auch net so ganz was zu mit der zweiten listbox willst.

Es würde einfach nur folgendes ausreichen

Delphi-Quellcode:

idftp1.connect; 
Idftp1.List (Listbox1.Items,'',false); 
for i:=0 to Listbox1.Count-1 do begin 
  IdFTP1.Get(Listbox1.Items[i], 'C:\MeinDownloadVerzeichnis\' + Listbox1.Items[i], true); 
end;

[Time2Play]

ja die zweite listbox ist sinnlos, die hatte ich nur gemacht um die Schleife zu testen
Speichert er die dann auch mit der richtigen Dateiendung ab?
Probiers nacher aus sitze grade nicht an meinem rechner.

[Time2Play]

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...

[Time2Play]

Also meine konkrete Frage lautete: Wie kann ich Dateien von einem Ftp Server runterladen ohne das sich der Savedialog öffnet?

[Klaus01]

Was spricht gegen das Beispiel aus dem Beitrag 32?

Grüße
Klaus

[Time2Play]

Das funktioniert eben nicht.

Wenn ich die Bedingung (savedialog1.execute) weglasse kommt ein eidprotokollerror: FIle not found.
Wenn ich die Bedingung aber lasse dann öffnet sich der Savedialog immernoch.

[Time2Play]

Gibt es nicht noch eine andere Möglichkeit?

[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;

[Time2Play]

Dann bekomme ich den EidProtokollError: "File not Found"