idFTP Folder Upload

[japetos]

Hallo.
Wie kann ich statt einzelner Dateien ganze Verzeichnisse uploaden?

so siehts bisher aus:

Code:

IdFTP1.Put(JvOpenDialog1.FileName, ExtractFileName(JvOpenDialog1.FileName));

[gsh]

durchsuch des verzeichniss und lade alle datein einzeln rauf. :wink:
Denn ich glaub nicht des es eine funktion dafür gibt

[japetos]

???
Gibts da irgendwo ein Bsp.?
raff ich net.

[gsh]

Hab ich mir gerade ausgedacht:

Delphi-Quellcode:

procedure VerzeichnissUploaden(Dir : string; Unterordner: Boolean = true; Filter : string = '*.*');
var
  SEARCH: TSearchRec;
  RES: integer;
begin
  Application.ProcessMessages;
  RES := findfirst(Dir+'\'+Filter,faanyfile-faDirectory,SEARCH);
  try
    while RES = 0 do
      begin
        if (SEARCH.Attr and faDirectory) = 0 then
          begin
            idFtp1.put(Dir + '\' + SEARCH.Name, SEARCH.Name);
            Application.ProcessMessages;
          end;
        RES := findnext(SEARCH);
      end;
  finally
    FindClose(SEARCH);
  end;
  if Unterordner = false then exit;
  RES := findfirst(Dir+'\'+'*.*',faanyfile,SEARCH);
  try
    while RES = 0 do
      begin
        if (SEARCH.Name <> '.') and (SEARCH.Name <> '..') and ((SEARCH.Attr and faDirectory) <> 0) then
        begin
          IdFTP1.ChangeDir();  //für die unterordner müsstes dir noch was überlegen
          DateienSuchen(Dir+'\'+SEARCH.Name, List, Unterordner, Filter);
        end;
        RES := findnext(SEARCH);
      end;
  finally
    findclose(SEARCH);
  end;
end;

Ungetestet

//edit: fehler ausgebessert

[japetos]

:-D
nicht schlechty fuers gerade mal eben kurz ausdenken!!!

Merci. Schaus mir gleich an.

[commandah]

z.B kannst du eine FileListBox nehmen und die eigenschaft dir dem gewählten Ordner zuweisen.
Dann müsste in dieser FileListBox die datein des Ordners stehen.
Dann könntest du in einer schleife die Datein hochladen.


FileListBox.dir:=ExtractFilePath(JvOpenDialog1.Fil eName);

while i<FileListBox.items.count do
begin
UploadFile(FileListBox.items.strings[i];
inc(i);
end;


irgendwie so müsste das dann aussehen

[gsh]

@japetos: Naja die Search funktion hatte ich ja schon musst ich es also nur noch auf ftp umschreiben. Aber ich muss gestehen ich hab einen Fehler drinnen gehapt und zwar des mit List.add des kannst einfach löschen

@commandah: Bitte nutze die Delphi tags für quellcode

[japetos]

@gsh

idFTP -> undeclared Identifier!!!
Das Teil spinnt wohl!!!

:freak:

[gsh]

Du wirst die Komponente idFtp auf dein Formular legen müssen.

[japetos]

tja,...

die liegt da ber schon seid ewigkeiten.
schon etwas merkwuerdig.