INDY-Upload | Nur max 2 Dateien hochgeladen

[Svenkan]

Hey Leute!
Leider werden bei mir momentan nur max. 2 Dateien hochgeladen. :(
MultiSelect im Opendialog ist True.

Delphi-Quellcode:

procedure TForm1.BtFileUploadClick(Sender: TObject);
var Ini: TIniFile;
    dirname,password,url,username: String;
begin
  if OpenDialog2.Execute then
 try
    Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'conf.ini');
   username:=Ini.ReadString('FTP-Daten','Username','');
   password:=Ini.ReadString('FTP-Daten','Password','');
   url:=Ini.ReadString('FTP-Daten','URL','');
   dirname:=Ini.ReadString('FTP-Daten','Ordner','');

  IdFTP1.Username := username;
  IdFTP1.Password := password;
  IdFTP1.Host := url;
  IdFTP1.Connect;
  IdFTP1.ChangeDir(dirname);
  IdFTP1.Put(OpenDialog2.FileName,
  ExtractFileName(OpenDialog2.FileName));
  IdFTP1.Quit;
   finally
    Ini.Free;
end;
end;

Kann mir dabei jemand helfen? :(

[shmia]

Zitat:

Zitat von Svenkan

MultiSelect im Opendialog ist True.

Du musst natürlich eine Schleife von 0 bis OpenDialog2.Files.Count-1 laufen lassen
und jede Datei einzeln mit Put abschicken.

[Svenkan]

Delphi-Quellcode:

FOR nr := 0 TO OpenDialog2.Files.Count-1 DO
  IdFTP1.Put(OpenDialog2.FileName,
  ExtractFileName(OpenDialog2.FileName));

So funktionierts leider nicht. Dann fährt sich das Programm fest..:(

[shmia]

Zitat:

Zitat von Svenkan

Delphi-Quellcode:

FOR nr := 0 TO OpenDialog2.Files.Count-1 DO
  IdFTP1.Put(OpenDialog2.FileName,
  ExtractFileName(OpenDialog2.FileName));

So funktionierts leider nicht. Dann fährt sich das Programm fest..:(

So geht's:

Delphi-Quellcode:

FOR nr := 0 TO OpenDialog2.Files.Count-1 DO
begin
  s := OpenDialog2.Files[i]; // Zwischenvariable; vereinfacht das Debugging
  IdFTP1.Put(s, ExtractFileName(s));
end;

[bttb930]

er meint natürlich [nr] statt [i]

[Svenkan]

Daaaankeschööön :)
Es funktioniert perfekt :)