TidFTP - Dateien auflisten

[Chefx]

Zitat von jfheins:

Obwohl du offensichlich keine Hilfe möchtest

Danke für die nette antwort
wenn ich hilfe brauche poste ich, und da stehen dann bei mir die türen offen, wenn jemand noch mehr infos brauch postet es einfach.
Ich hab es geahnt das das so geht .

trotzdem ist noch der felher:

Code:

Erste Gelegenheit für Exception bei $760242EB. Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 004D5047 in Modul 'Project2.exe'. Lesen von Adresse 00000020'. Prozess Project2.exe (5420)

Hier der gesamte Quelltext:

Delphi-Quellcode:

procedure ....;
var
  l: TIdFtpListItems;
  i: integer;
  sl,sd: TStringList;
begin
  if (ListView1.Items.Item[ListView1.ItemIndex].SubItems.Strings[0] = 'Ordner') and (ListView1.Items.Item[ListView1.ItemIndex].Caption <> '.') and (ListView1.Items.Item[ListView1.ItemIndex].Caption <> '..') then begin // . und .. ist erstmal nur zum testen ausgeschlossen
  listview1.Clear;
  sl := TStringList.Create;
  sd := TStringList.Create;
  idftp1.ChangeDir('/'+ListView1.Items.Item[ListView1.ItemIndex].Caption+'/'); // hier bleibt er im Debuge stehen
  idFTP1.List(sl,ListView1.Items.Item[ListView1.ItemIndex].Caption+'*',true);
  l := idFTP1.DirectoryListing;
  for i := l.Count - 1 downto 0 do
      if l[i].ItemType = ditDirectory
        then begin
            sl[i] := l[i].FileName;
            sd.Add('Ordner');
        end
        else begin
            sl[i] := l[i].FileName;
            sd.add('Datei');
        end;
    for i := 0 to l.Count - 1 do begin
        listview1.Items.Add.Caption:=sl.Strings[i];
        listview1.Items.Item[i].SubItems.Add(sd.Strings[i]);
    end;
    sl.Free;
    sd.Free;
  end;
end;

Die Baumstrucktur der Ordner und Dateien auf dem Server:

Code:

Server
  |
  |-- grafik
  |     |-- bild.jpg
  |
  |-- inc
  |    |-- home.inc
  |    |-- liste.inc
  |...

Wenn ich jetzt doppelklick auf graifk klicke in der Listview dann kommt der fehler obwohl er ja das innere des ordner also bild.jpg anziegen soll.

Wo ist mein fehler oder denkfehler?