Listview vs. FTP

Andre :-) · Beiträge: 55

Hi,

ich habe gegoogelt wie ein blöder aber leider keine Antwort gefunden. Ich lasse eine FTP Filestruktur in einer Listview aufbauen. Nur bekomme ich keine Icons gesetzt.

Kann mir jemand ein Bsp. Code zeigen, wie ich in eine Listview Komponente Icons plaziere?

Besten Dank

_________________
Security is just a feeling, but never reality

Ehemaliges Mitglied Erhaltene Danke: 1

Auf meiner Homepage findest du eine VCL-FTP-Client. Kuck ihn dir mal an, ist mit Soße.

Andre :-) · Beiträge: 55

Danke Dir.
Ich werde es mir ansehen.

_________________
Security is just a feeling, but never reality

Andre :-) · Beiträge: 55

Sorry wenn ich noch einmal nerve, aber Dein Code ist schon ganz cool und ich habe es auch geschafft, Icons davor zu setzen. Wenn ich aber dann einmal connected bin und dann die Verbindung wieder schliesse und Sie dann wieder aufmache, dann bleibt er bei Deinem Procedure List bei folgendem Punkt stehen (auch bei deinem Tool):

markieren

Quelltext

1:
2:

NMFTP1.List;
for i := 0 to NMFTP1.FTPDirectoryList.name.Count-1 do begin

Die ganze Listbox ist dann off und nichts geht mehr. Immer beim 2ten mal. Ich habe es so gamcht wie Du es auch gemacht habe und mir erschien das alles logisch.

Hast Du einen Tip für mich?

Ich verzweifle :cry:

Andre

Moderiert von Tino: Code-Tags hinzugefügt.

_________________
Security is just a feeling, but never reality

Ehemaliges Mitglied Erhaltene Danke: 1

Das kann an den Fastnet Kompos liegen. Die sind wohl etwas ver bugget. kann aber auch an mir liegen. Ich habe es nicht geschafft damals den Fehler zu finden und habe es aufgegeben.

Andre :-) · Beiträge: 55

Habe es selber geschafft. Also, hier die lösung! Bzw. Habe ich es anders gemacht als Du:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm3.NMFTP1ListItem(Listing: String);
var
   NewItem: TListItem;
   sFile: String;
begin
NewItem := lstRemote.Items.Add;
sFile :=Listing;
NewItem.Caption  := sFile;
        if ExtractFileExt(sFile) = '.txt' then NewItem.ImageIndex := 0
         else if (ExtractFileExt(sFile) = '.htm') OR (ExtractFileExt(sFile) = '.html') then
           NewItem.ImageIndex := 1
         else if ExtractFileExt(sFile) = '.zip' then NewItem.ImageIndex := 3
         else if ExtractFileExt(sFile) = '.css' then newItem.imageIndex := 2
         else if (ExtractFileExt(sFile) = '.gif') OR (ExtractFileExt(sFile) = '.jpg') then
           NewItem.ImageIndex := 4
         else if ExtractFileExt(sFile) = '' then
         begin
           NewItem.ImageIndex := 5;
         end
         else if ExtractFileExt(sFile) = '.exe' then newItem.imageIndex := 7
         else NewItem.ImageIndex := 6;
end;

Und vorher beim connectButton dann ein: nlist! Geht wunderbar! ok habe im Moment noch keine FileSize aber mit einem Inc() müsste das auch zu holen sein. Oder?

Danke Dir für die Hilfe.

_________________
Security is just a feeling, but never reality

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme