Morgen Leute,

Hab schon ganz doll lang die Suche durchgewälzt - keine Lösung gefunden.
Es gab einen Beitrag, da hat jemand mit FTP Dateien, die in einer DirectoryListBox standen runtergeladen.

Mein Problem ist es, die Dateien da rein zu bekommen.
Hab in der OnConnected-Methode schon einiges probiert, aber immer kamen Fehlermeldungen.

Wie grieg' ich die Dateien und Ordner in meine Directory- bzw. FileListBox rein?

ich bedanke mich für eure Hilfe.

UND EIN FROHES FEST.

Vielleicht hilft dir das weiter -->

zusammenfalten · markieren

Delphi-Quellcode:

procedure FTPDirToTreeView(AFTP: TidFTP; ATree : TTreeView;
                           ADirectory : String; AItem : TTreeNode;
                           AIncludeFiles : Boolean);
var
  ItemTemp : TTreeNode;
  LS : TStringList;
  i : integer;
begin
  ATree.Items.BeginUpdate;
  LS := TStringList.Create;
  try
    if ADirectory <> '' then
      AFTP.ChangeDir(ADirectory);
    AFTP.List(LS);
    if AnsiPos('total', LS[0]) > 0 then
      LS.Delete(0);
    LS.Sorted := True;
    if LS.Count <> 0 then
    begin
      for i := 0 to LS.Count - 1 do
      begin
        try
          if (Pos('.', LS.Strings[i]) = 0) then
          begin
            AItem := ATree.Items.AddChild(AItem, Trim(Copy(LS.Strings[i],
                                          Pos(':', LS.Strings[i]) + 3,
                                          Length(LS.Strings[i])) + '/'));
            ItemTemp := AItem.Parent;
            FTPDirToTreeView(AFTP, ATree, ADirectory + Trim(Copy(LS.Strings[i],
                             Pos(':', LS.Strings[i]) + 3,
                             Length(LS.Strings[i]))) + '/', AItem, AIncludeFiles);
            AItem := ItemTemp;
          end
        except
        end;
      end;
    end;
  finally
    ATree.Items.EndUpdate;
    LS.Free;
  end;
end;

Danke erst mal,
aber ich verwende eine Directory- und eine FileListBox und keinen TreeView.

Wenn jemand noch ne Idee hat, bin ich sehr dankbar, sonst muss ich's anders regeln.

Beides wirst du nicht nehemn könne, da sie nur lokal arbeiten. Da musst du dir schon selber was schreiben und wie das geht, steckt im Prinzip in obigen Code drinne.

Gibt es denn da keine anderen Komponenten, die in Delphi 7 datei liegen oder die man aus dem Internet laden kann?

Und ich habe im Forum diesen Beitrag gesehen: http://www.delphipraxis.net/internal...t.php?p=207470
Dort hat DRPEnc auch eine DirectoryListBox verwendet.
Wie geht das?