INDY-Upload | Nur max 2 Dateien hochgeladen

[shmia]

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;