Icons von Dateien anzeigen

[Digielm]

Delphi-Quellcode:

with qry do
  Begin
  IB_Connection := frmcoDMC.co_Admin;
  SQL.Text := 'SELECT ABL_ALLGEMEIN.ID0_0,ABL_ALLGEMEIN.ID0_1,ABL_ALLGEMEIN.DOKUID0, ABL_ALLGEMEIN.DOKUID1, '+
              'ABL_ALLGEMEIN.TYP, ABL_ALLGEMEIN.BESCHREIBUNG, ABL_ALLGEMEIN.WERT, ABL_ALLGEMEIN.OBJEKTTEXT '+
              'FROM ABL_ALLGEMEIN '+
              'WHERE ((ABL_ALLGEMEIN.DOKUID0 = :P_1) and (ABL_ALLGEMEIN.DOKUID1 = :P_2)) ';

  ParamByName('P_1').AsString := V_ID0;
  ParamByName('P_2').AsString := V_ID1;

  Open;
  while not eof = True do
    Begin
    li := Listview1.Items.Add;
    //Beschreibung
    li.caption := fields[7].AsString;
    //ID0
    li.SubItems.Add(fields[0].AsString);
    //ID1
    li.SubItems.Add(fields[1].AsString);
    //Tabelle
    li.SubItems.Add(fields[2].AsString);
    //DokuId0
    li.SubItems.Add(fields[3].AsString);
    //DokuId1
    LI.SubItems.Add(fields[4].AsString);
    LI.SubItems.Add(fields[5].AsString);
    LI.SubItems.Add(fields[6].AsString);
    ZeroMemory(@fi,sizeof(fi));
    SHGetFileInfo(pchar(fields[7].AsString),0,fi,sizeof(fi),
    SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
    li.ImageIndex := fi.iIcon;
    listviewpanel.Visible := true;
    Next;
    end;
  Close;
  Free;
  end;

Habe so eine Routine nur das Problem das es nicht ganz so funktioniert wie ich das möchte da die Datei inm Datenbankblobfeld liegt. Wie bekomme ich dennoch das richtige Icon angezeigt ??

[Luckie]

Zitat von Digielm:

Habe so eine Routine nur das Problem das es nicht ganz so funktioniert wie ich das möchte

Es wäre eventuell nicht ganz dumm zu sagen, wie sie funktionieren soll und was sie att dessen macht. Die wneigsten werden hier die Lust haben deinen Code zu analysieren und zu raten, was du willst.

[Digielm]

Also die Routine soll mir die Dateiicons von Windows anzeigen was auch funktioniert wenn ich die Routine benutze um auf der Festplatte dateiicons auszulesen.

Wenn ich das so mache bekomme ich nur die Blaue Hand als Icon egal was ich für eine Dateiendung habe.

[Luckie]

Was steht den in fields[7] drin?

[cruiser]

Delphi-Quellcode:

SHGetFileInfo(pchar(fields[7].AsString),0,fi,sizeof(fi),
    SHGFI_ICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
    li.ImageIndex := fi.iIcon; // << Hier liegt der Hund begraben

ImageIndex und iIcon sind villeicht vom selben Typ, aber dann muss ich auch fragen, was für eine ImageList du am Listview eingebunden hast. Wenn es eine normale ist solltest du evtl. vorher noch das Icon da mit rein tun. Ist es eine abgeleitete, die auf die System-Imagelist zugreift interessiert wirklich was in fields[7] so steht.

[wicht]

Wenn die Datei, die du SHGetFileInfo() übergibts nicht auf deiner Festplatte liegt, musst du hinten noch SHGFI_USEFILEATTRIBUTES anhängen. Also, um ein Icon für eine MP3 zu bekommen geht zum Beispiel

SHGetFileInfo('dummy.mp3', 0, SFI, SizeOf(TSHFileInfo), SHGFI_SYSIconIndex or SHGFI_USEFILEATTRIBUTES);