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.

[gsh]

wie hast du sie den genannt?

[japetos]

idFTP1 ist der Name.
Und so stehts auch in der (deiner) procedure.

[gsh]

des ist überhaupt nicht komisch mir ist nämlich gerade eingefallen warum:
weil die procedure nicht global definiert ist aber des ist nicht umbedingt nötig. du kannst es auch einfach machen und Form1.idFtp1. ....


PS: Es ist meine Procedure nur die Suchfunktion hab ich früher schon geschrieben gehapt.

[japetos]

FUUUNZZZT!!!

Vielen, vielen Dank gsh

Man bekommt nicht so oft Hilfe (siehe andere Foren)

:-D

[gsh]

immer gerne :zwinker:

[japetos]

ok, letzte Frage.

Wie stelle ich es jetzt an, dass ich einen Ordner (Directory)
mittels OpenDialog auswaehlen kann?

Da kann man naemlich nur Dateien auswaehlen, oder?

[Luckie]

Neue Frage, neuer Thread bitte.

Und wie man eine Ordner auswählen kann mittels eines Dialoges findest du in der Code-Lib.

Ich schließe hier vorsichtshalber.