Autor Beitrag
Dr. Phil
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 66

Win XP
Delphi 7 Prof.
BeitragVerfasst: Do 15.07.04 14:01 
Hallo,
ich möchte gerne die Ordner eines Verzeichnisses in einem FTP auf eine Listbox in meinem Programm übertragen (benutze Indy).

So hab ich das gemacht:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure List_Directory;
Var
  i: integer;
begin
  frmMain.idFTP1.List(frmMAin.lstDir.Items);
end;

Also das funktioniert nicht.
Anscheinend kann ich mich aber auf den FTP verbinden. Sagt mir zumindest mein Programm.

Bei der Indy-FTP Demo nämlich komm ich nichtmal auf den Server, nach der Passworteingabe kommt: "Nicht eingeloggt".
Mit FlashFXP komm ich aber sehr wohl auf den server :?

Um es im Voraus zu sagen, ich kenne den Befehl um den FTP seine ordner auflisten zu lassen, er fällt mir nur gerade nicht ein. Im Code hab ichs jedenfalls richtig stehen, und es funktioniert nicht.
-> Listbox bleibt leer :?

Edit:
jetzt fällt mir gerade ein, dass ich vergessen habe Passiv zu aktivieren.
Glaube aber nicht dass es daran liegt, habe zwar einen Router komme aber trotzdem auf den Server, und das kann ja auch nicht sehr viel mit der Prozedur zum Ordner auflisten zu tun haben.

Nochmal Edit:
Jap es hat doch was mit Passiv zu tun gehabt, jetzt zeigt es mir zwar was an, aber dafür auch Schreibrechte etc.
Mit welchem befehl kann ich mir nur die Dateinamen/Ordnernamen anzeigen lassen? Oder komm ich da nicht ums String kürzen herum?

_________________
self-improvement is masturbation;
self-destruction is the answer - Tyler Durden
maxk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1696
Erhaltene Danke: 1

Win XP, Debian Lenny
Delphi 6 Personal
BeitragVerfasst: Fr 16.07.04 09:29 
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
IdFTP.List(nil);
for i:=0 to IdFTP.DirectoryListing.Count-1 do
with IdFTP.DirectoryListing do begin
 ListBox1.Items.AddObject(Items[i].FileName,Items[i]);
end;

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.
Dr. Phil Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 66

Win XP
Delphi 7 Prof.
BeitragVerfasst: Fr 16.07.04 14:51 
Das wars, danke!

_________________
self-improvement is masturbation;
self-destruction is the answer - Tyler Durden