Webserver Verzeichnis

[Anonymous]

Hey Leute !

Ich möchte ein Webserververzeichnis auslesen...das heißt.. ich will alle Dateien und alle Ordner sehen,wer hat eine Idee,wie man sowas machen könnte ?

Danke für eure Bemühungen.

Patrik

[Rainer]

Du meinst bei einem HTTP-Server?

Dieser sendet (auch nur wenn er so eingestellt ist) ein Directory-Listing als HTML-Datei zurück, wenn keine Index-Datei vorhanden ist.
Aus diesem gesendeten Directory-Listing müsstest Du dann die Links zu den Files herauslesen.
Eine andere Möglichkeite kenne ich zumindest per HTTP nicht.

[Anonymous]

Dein Gedanke ist ja gut,nur jetzt muss ich mir überlegen wie ich das umsetze

[MrSaint]

Okay. der gedanke war was wert, aber leider kann man das, wenn man das nicht will (als admin), dass dieses verzeichnis angezeigt wird, ganz locker abstellen. außerdem funktioniert das, wie ja schon gesagt, nur bei verzeichnissen, die kein index-file haben. das haben aber die meisten.... :(

also ich kenn außer der og., die nicht allzuoft auftreten wird, keine möglichkeit, da was auszulesen. wenn du aber nen FTP-Server meinst, dann ist das alles möglich..... Dann kannst du ja einfach mal die FTP-Kompos angucken, die's so gibt.




MrSaint

[Anonymous]

OK,dann frage ich anders :

Wie kann ich einen komplette FTP Server auslesen...damit meine ich verzeichnisse(und alle Unterverzeichnisse) und dateiein und das dann am besten in einer Listview darstellen ?

[EgoFelix]

Also, ich hab mir das so gebaut: (Du brauchst auf der Form einen TButton und eine TListView)

Code:

//Locale Variablen

var

  Form1: TForm1;

  ListBx1, TempBox: TStrings;

  Folder: String;





//Hier die Proceduren...



procedure TForm1.LoadtoBox(ListBox: TStrings);

begin

  while TempBOx.Count ] 0 do begin

  ListBox.Add(TempBox.Strings[0]);

  TempBox.Delete(0);

  end;

end;



procedure TForm1.FtpListHandler(Listing: String);

var

Text: String;

begin

Text := Listing;

 if Copy(Text,0,1) = 'd' then begin

  Text := Copy(Text,56,Length(Text) - 55);

  ListBx1.Add(Folder + Text);

 end

 else

 begin

 Text := Copy(Text,56,Length(Text) - 55);

 TempBox.Add(Folder + Text)

 end;

end;



procedure TForm1.GetList(Ip: String; ListBox: TStrings);

var

i, x: Integer;

NMFTP1: TNMFTP;

begin

  ListBx1 := TStringList.Create;

  TempBox := TStringList.Create;

  NMFtp1 := TNMFTP.Create(Self);

  NmFtp1.UserID := 'anonymous';

  NmFtp1.Password := 'user@on.net';

  NmFtp1.TimeOut := 60000;

  NmFtp1.Host := IP;

  NmFtp1.Port := 21;

  Folder := '/';

  NMFtp1.Connect;

  NMFtp1.OnListItem := FtpListHandler;

  NMFtp1.list;

  while ListBx1.Count ] 0 do begin

   Folder := ListBx1.Strings[0] + '/';

   try

     try

       NMFtp1.ChangeDir(folder);

     finally

     NMFtp1.list;

     end;

     except

   end;

   ListBx1.Delete(0);

   LoadtoBox(ListBox);

  end;

  NmFtp1.Disconnect;

  NmFtp1.Free;

  ListBx1.Free;

  LoadtoBox(ListBox);

  TempBox.Free;

  for i := 0 to (ListBox.Count - 1) do

    for x := 0 to (ListBox.Count - 1) do

      if (ListBox.Strings[x] < ListBox.Strings[i]) and (x > i) then

      begin

        ListBox.Insert(i, ListBox1.Items[x]);

        ListBox.Delete(x + 1);

      end;

end;





//Und so wird es ausgeführt...



procedure TForm1.Button1Click(Sender: TObject);

begin

  GetList(Edit1.Text, ListBox1.Items);

  ShowMessage('Fertig');

end;





//By EgoFelix :D

Ich hoffe, das funktioniert alles so bei dir...
Viel Spass

[Anonymous]

ich werds gleich direkt mal ausprobieren... erstmal ein zwei std schlafen ;)

Danke erstmal