API ShGetFileInfo: Icon holen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von fichz.

    API ShGetFileInfo: Icon holen

    yo Leute,

    hab mal eine Frage ob hierzu eventuell wer eine bessere Lösung hat.
    Hintergrund: Ich speichere Dateipfade in eine Datenbank. Anzeigen tu ich diese in einem Grid welches eine Spalte "Icon" besitzt. Hier zeige ich dann das dementsprechende Icon der Datei an.
    Das Icon lese ich mit folgender API:
    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Namespace Helpers
    3. Public Class IconExtractor
    5. ' Constants that we need in the function call
    7. Private Const SHGFI_ICON As Integer = &H100
    9. Private Const SHGFI_SMALLICON As Integer = &H1
    11. Private Const SHGFI_LARGEICON As Integer = &H0
    13. ' This structure will contain information about the file
    15. Public Structure SHFILEINFO
    17. ' Handle to the icon representing the file
    19. Public hIcon As IntPtr
    21. ' Index of the icon within the image list
    23. Public iIcon As Integer
    25. ' Various attributes of the file
    27. Public dwAttributes As UInteger
    29. ' Path to the file
    31. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> _
    33. Public szDisplayName As String
    35. ' File type
    37. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
    39. Public szTypeName As String
    41. End Structure
    43. ' The signature of SHGetFileInfo (located in Shell32.dll)
    45. <DllImport("Shell32.dll")> _
    47. Public Shared Function SHGetFileInfo(pszPath As String, dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, cbFileInfo As Integer, uFlags As UInteger) As IntPtr
    49. End Function
    51. ''' <summary>
    53. ''' Gibt ein kleines Icon retour
    55. ''' </summary>
    57. ''' <param name="FileName">Pfad zur Datei</param>
    59. ''' <returns></returns>
    61. ''' <remarks></remarks>
    63. Public Function GetSmallIcon(ByVal FileName As String) As Icon
    65. Return GetIcon(FileName, IconSize.Small)
    67. End Function
    69. ''' <summary>
    71. ''' Gibt ein großes Icon retour
    73. ''' </summary>
    75. ''' <param name="FileName">Pfad zur Datei</param>
    77. ''' <returns></returns>
    79. ''' <remarks></remarks>
    81. Public Function GetLargeIcon(ByVal FileName As String) As Icon
    83. Return GetIcon(FileName, IconSize.Large)
    85. End Function
    87. Private Function GetIcon(ByVal FileName As String, ByVal Size As IconSize) As Icon
    89. If Not System.IO.File.Exists(FileName) Then
    91. Throw New System.IO.FileNotFoundException()
    93. End If
    95. ' Will store a handle to the small icon
    97. Dim hImg As IntPtr
    99. Dim shinfo As New SHFILEINFO()
    101. ' Sore the icon in this myIcon object
    103. Dim myIcon As System.Drawing.Icon
    105. Select Case Size
    107. Case IconSize.Small
    109. ' Get a handle to the small icon
    111. hImg = SHGetFileInfo(FileName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
    113. Case IconSize.Large
    115. ' Get a handle to the large icon
    117. hImg = SHGetFileInfo(FileName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON)
    119. End Select
    123. ' Get the icon from the handle
    125. myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
    127. Return myIcon
    129. End Function
    131. Private Enum IconSize
    133. Small
    135. Large
    137. End Enum
    139. End Class
    141. End Namespace



    Hab das so in eine Klasse gepackt. Den Code an sich hab ich irgendwo ausn Internet.

    Code funktioniert pipifein.
    Jedoch dauert es je Aufruf rund 100ms. Hab ich nun 10 so Dateien anzuzeigen bin ich gleich mal bei einer Sekunde.

    - Kann man Icon auslesen irgendwie beschleunigen bzw. gibt es eine andere Möglichkeit?
    - Ich greife persönlich nicht so gerne Win-APIs an. Können irgendwelche Probleme mit solchen APIs auftreten?

    lg
    fichz
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    Hey,

    VB.NET-Quellcode

    1. Icon.ExtractAssociatedIcon("Path")


    existiert bereits im FrameWork. Musst mal schauen, ob das schneller arbeitet.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Ich glaube, wenn schon die WinAPI so langsam ist, wirst du es auf anderem Wege auch nicht schneller hinbekommen. Und wenn man sich ansieht, wie der Verzeichnisinhalt im Explorer bei einem neu geöffneten Ordner aufgebaut wird, hat auch Windows selbst keine bessere Methode. Dort wird offensichtlich zunächst ein Standard-Icon verwendet, welches dann in einem separaten Thread nachträglich gegen das assoziierte Icon ausgetauscht wird.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    Hab mir die Sache mal in IL-Spy angesehen. Da wird auch nicht viel anders gemacht, als Du es bereits tust. Die Funktion (Wrapper), der eine Angabe der Größe zulässt, ist leider Private und somit nicht zu benutzen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    ThuCommix schrieb:

    Scale dein Icon doch einfach von 32x32 auf 16x16.
    Das meinst du nicht ernst, oder? ;)
    Ein von 32x32 auf 16x16 skaliertes Bild (möglicherweise noch ohne Interpolation) sieht in vielen Fällen (vor allem bei professionellen Icons) komplett anders (und schlechter) aus als ein direkt in 16x16-Pixelformat mit eingettetes separates Icon. Meinem Anspruch würde dies jedenfalls nicht genügen.
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    @ThuCommix
    Das ist keine Option da, wie bereits Arby sagte, der Qualitätsverlust zu hoch wäre.

    Was mir eventuell noch einfällt, wäre das Icon in die Datenbank mitzuspeichern. Somit würde es nur einmal laden müssen und das wäre beim Auswählen der Datei (und da fallen 100ms nicht auf mMn.) So ein 16x16 Bitmap kann ja nicht die "mörderische" Größe aufweisen denk ich.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    ThuCommix schrieb:

    Scale dein Icon
    ist ein NoGo.
    Icons werden pixelgenau designed. Was, wenn die beiden Icons inhaltlich verschieden sind (kann passieren)?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    fichz schrieb:

    Code funktioniert pipifein.
    Jedoch dauert es je Aufruf rund 100ms. Hab ich nun 10 so Dateien anzuzeigen bin ich gleich mal bei einer Sekunde.

    Nee - nicht pipifein :D !
    Ich gebe Dir mal eine Vorlage aus der Praxis als Anhanltspunkt, da ich gerade ein Control baue, das diese API und Weitere benutzt.
    Gemessen auf einem PC mit normaler, "lowcost" Festplatte:
    176.843 Dateien auf "C:" rekursiv ermittelt, alle DateiInfos und die Icons geholt und das ganze in eine DataTable abgelegt (inkl. der Icons), daraus ein DataView gemacht und alles an ein DataGridView gebunden: 4,5 Sekunden zusammen!
    Von den 4,5 Sekunden brauchte das Icon holen bestimmt nur eine Sekunde für alle Dateien - wenns hochkommt.

    Du musst den Fehler vermutlich im Rest Deines Programms suchen.
    Und Deine Icons binär in die arme DB zu stopfen, löst Dein Problem nicht wirklich - verlagert es nur.

    Zeig doch mal Dein Werk ein bisschen genauer..

    LG,
    Bruno

    Du hast recht. Der Hinweis mit LW C:\ hat mich erleuchtet.
    Das Problem liegt nicht an der Funktion selbst, sondern daran, dass ich mit Dokumente auf einem Netzlaufwerk arbeite...
    Hatte nun testweise 3 Dokumente von C:\ ausgewählt und da war dies in ~ 15 ms erledigt
    auf dem Netzlaufwerk dauert dies leider ~500 ms.

    Denke daran werde ich nichts ändern können. Liegt scheinbar an der Geschwindigkeit des NW.

    Besten Dank

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

Facebook
Telefonspende