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?