Icon aus Datei Extrahieren -> FTP

  • VB.NET

Es gibt 62 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Um das jetzt noch mal klar zu stellen:
    Die Icons werden von den Programmen, die sie öffnen können, bereitgestellt, nicht von den Dateien selbst. Wenn man Dateien auf einen FTP-Server rauflädt, sind die Icons nicht dabei. Es gibt da allerdings Unterschiede. Beispielsweise werden bei .txt-Dateien die Icons von einem Programm bereitgestellt bzw. als Icon auf der Festplatte gespeichert. Ausführbare Dateien können Icons in ihren Resourcen zur Verfügung stellen. Ich denke jetzt nicht, dass standardmäßig andere Wege zur Icon-Gewinnung unterstützt werden. Für Iconresourcen verwendet man halt ExtractAssociatedIcon(Ex) und erstellt die Instanz der Icon-Klasse vom Handle. Bei Icondateien verwendet man den von der Icon-Klasse gebotenen Konstruktor und ggf. Environment.ExpandEnvironmentVariables. Problematisch ist halt nur, wenn der Eintrag wie z.B. bei .exe-Dateien aussieht, die ja ein dynamisches Icon haben. Den kann man nicht auswerten, ohne dass die Dateien heruntergeladen werden. Dumm ist auch, dass ich nicht die Argumentwerte der Format-Funktion weiß, die benötigt werden. %1 dürfte wohl der Dateiname sein, aber gibt es da noch andere Argumente und wo findet man sie? Wenn ihr mir die Informationen besorgt, versuch' ich, einen kurzen Code zusammenzuschreiben, der die Icons anhand der Extensions aus der Registry ermittelt. Da unterscheiden sich halt dann die Icons auf den verschiedenen Systemen. Das ist aber auch die vom Explorer verwendete Methode.

    Gruß
    ~blaze~

    Danke ~balze~,
    das habe ich nicht so schön erklärt.
    Ich versuche mal raus zu bekommen wie diese Argumente sind und wo man sie findet.

    ~blaze~ schrieb:

    Da unterscheiden sich halt dann die Icons auf den verschiedenen Systemen.

    und das währe sogar Perfekt. Dann währe die Methode automatisch immer up to date.

    ich melde mich sobal ich etwas habe.

    danke dir

    Bernd

    Edit:
    ich habe die frage mal bei msdn abgesetzt, dauert halt ein wenig bei denen.

    Icons stecken doch bekanntlich in der selben Stelle in den Dateien, sonst wüsste Windows auch nicht wo/was das Icon vom jeweiligen Programm ist.

    Du kannst also folgendes machen (erfordert vermutlich eine große Menge an Kenntnissen):

    Anstatt das du dir die Datei komplett auf den Rechner siehst holst du dir die Bytes, die das Icon beinhalten auf den Rechner und liest nur diese aus.
    So hast du die notwendige Downloadgröße auf 0,1% reduziert.

    Nachteil:

    - Du müsstest wissen an welcher Stelle im Code das Icon liegt und ich weiß auch nicht ob man mit dem Filereader nur bestimmte Bytes auslesen kann.

    Antwort von MSDN ist da.
    Hallo Bernd,

    die Werte die Du suchst stehen in HKEY_CLASSES_ROOT und zwar als Schlüssel DefaultIcon. In der Regel findest Du den Schlüssel in der ausgeschriebenen Version eines jeden Dateityps (z.B. dllfile statt dll).

    Die Werte des Schlüssels DefaultIcon sind aber nur Verweise auf Ressourcendateien oder eingebettete Ressourcen. Um diese Bilder zu nutzen, musst Du jeweillige Datei laden und die Ressource auslesen.

    Schöne Grüße

    Oliver


    Ich schaue nochmals mit regedit da rein.

    Edit:
    ~blaze~ , meinst du die ?

    Ja genau. Das war das was ich gemeint habe. Die Extension ist ja genau der Sub-Key des HKEY_CLASSES_ROOT und der Default-Eintrag verweist auf den Key, der das DefaultIcon definiert.
    Per Microsoft.Win32.RegistryKey kannst du auf die Schlüssel zugreifen (Microsoft.Win32.Registry enthält statische Felder, die auch den Classes-Root-Schlüssel enthalten).
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <System.Runtime.InteropServices.DllImport("shell32.dll")> _
    2. Private Shared Function ExtractIcon(ByVal hInst As IntPtr, ByVal lpIconPath As String, ByVal lpiIcon As Integer) As IntPtr
    3. End Function
    5. Public Shared Function GetIcon(ByVal extension As String) As Icon
    6. 'Key der Extension finden (extension muss mit . anfangen)
    7. Dim extensionKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(extension)
    9. If extensionKey IsNot Nothing Then 'Wenn der Key gefunden werden konnte, wird der Default-Wert ermittelt
    10. Dim extensionInfo As Microsoft.Win32.RegistryKey
    11. Dim extensionInfoObject As Object = extensionKey.GetValue(Nothing, Nothing)
    12. If extensionInfoObject IsNot Nothing Then 'wenn ein Default-Wert existiert, ...
    13. Select Case extensionKey.GetValueKind(Nothing) 'wird der Typ des jeweiligen untersucht
    14. Case Microsoft.Win32.RegistryValueKind.String 'bei Strings wird einfach der referenzierte Knoten geoeffnet
    15. extensionInfo = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(DirectCast(extensionInfoObject, String))
    16. Exit Select
    17. Case Microsoft.Win32.RegistryValueKind.ExpandString
    18. 'Wenn der String erweiterbare Umgebungsvariablen enthalet werden diese erweitert und der Knoten anschliessend geoeffnet
    19. extensionInfo = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(Environment.ExpandEnvironmentVariables(DirectCast(extensionInfoObject, String)))
    20. Exit Select
    21. Case Else
    22. extensionKey.Close() 'Falls der Typ nicht unterstuetzt wird, wird einfach Null (Nothing) zurueckgegeben
    23. Return Nothing
    24. End Select
    25. 'Wenn der Schluessel mit weiteren Informationen zum Typen verfuegbar ist
    26. If extensionInfo IsNot Nothing Then
    27. 'Wird der DefaultIcon-Schluessel geoeffnet
    28. Dim defaultIcon As Microsoft.Win32.RegistryKey = extensionInfo.OpenSubKey("DefaultIcon")
    29. If defaultIcon IsNot Nothing Then 'existiert dieser, ...
    30. 'wird dessen Standardwert ermittelt
    31. Dim defaultIconValue As Object = defaultIcon.GetValue(Nothing, Nothing)
    32. If defaultIconValue IsNot Nothing Then 'existiert dieser, ...
    33. Dim kind As Microsoft.Win32.RegistryValueKind = defaultIcon.GetValueKind(Nothing)
    34. 'werden alle jetzt nicht mehr benoetigten Schluessel geschlossen
    35. defaultIcon.Close()
    36. extensionKey.Close()
    37. extensionInfo.Close()
    38. 'der Typ des Knotens wird untersucht
    39. If kind = Microsoft.Win32.RegistryValueKind.ExpandString Then
    40. 'Erweiterbare Umgebungsvariablen werden wieder erweitert
    41. defaultIconValue = Environment.ExpandEnvironmentVariables(DirectCast(defaultIconValue, String))
    42. ElseIf Not kind = Microsoft.Win32.RegistryValueKind.String Then
    43. 'Nicht unterstuetzte Typen resultieren in einem Rueckgabewert Null (Nothing)
    44. Return Nothing
    45. End If
    46. 'Existiert ein Verweis auf eine Icon-Datei...
    47. If Not String.IsNullOrEmpty(DirectCast(defaultIconValue, String)) Then
    48. 'wird der String formattiert (siehe Format-Funktion unten)
    49. Dim formatted() As String = Format(DirectCast(defaultIconValue, String), New String() {})
    50. If formatted Is Nothing Then 'schlaegt das formattieren fehl, wird null zurueckgegeben
    51. Return Nothing
    52. ElseIf formatted.Length = 1 Then 'enthaelt das formattierte Array nur einen Wert
    53. 'wird untersucht, ob eine Datei mit dem Pfad existiert
    54. If IO.File.Exists(formatted(0)) Then
    55. 'und das Icon der Datei extrahiert
    56. Return Icon.ExtractAssociatedIcon(formatted(0))
    57. Else
    58. 'andernfalls wird nichts zurueckgegeben
    59. Return Nothing
    60. End If
    61. ElseIf formatted.Length = 2 Then 'sind zwei Werte vorhanden
    62. 'wird wieder ueberprueft, ob eine Datei mit dem Dateinamen existiert
    63. If IO.File.Exists(formatted(0)) Then
    64. Dim arg As Integer
    65. 'es wird ueberprueft, ob der zweite Parameter eine Ganzzahl ist
    66. If Integer.TryParse(formatted(1), arg) Then
    67. If arg = -1 Then 'ist arg = -1, wird es einfach mit 0 ersetzt (-1 gibt die Anzahl der Icons zurueck)
    68. arg = 0
    69. End If
    70. 'Findet das Icon-Handle
    71. Dim hicon As IntPtr = ExtractIcon(Process.GetCurrentProcess().Handle, formatted(0), arg)
    72. If hicon = IntPtr.Zero Then 'wenn die Funktion fehlschlaegt, wird Null (Nothing) zurueckgegeben
    73. Return Nothing
    74. Else
    75. 'andernfalls wird ein Icon vom Handle erzeugt
    76. Return Icon.FromHandle(hicon)
    77. End If
    78. Else 'schlaegt die Integer-Konversion des 2. Arguments fehl, wird Null (Nothing) zurueckgegeben
    79. Return Nothing
    80. End If
    81. Else 'ist eine ungueltige Anzahl an Argumenten vorhanden, wird Null (Nothing) zurueckgegeben
    82. Return Nothing
    83. End If
    84. Else 'schlaegt die Integer-Konversion des Arguments fehl, wird Null (Nothing) zurueckgegeben
    85. Return Nothing
    86. End If
    87. Else 'existiert kein Verweis auf eine Datei, die ein Icon bereitstellt, wird Null (Nothing) zurueckgegeben
    88. Return Nothing
    89. End If
    90. Else 'existiert kein Standardwert fuer den DefaultIcon-Schluessel, wird Null (Nothing) zurueckgegeben
    91. defaultIcon.Close()
    92. extensionKey.Close()
    93. extensionInfo.Close()
    94. Return Nothing
    95. End If
    96. Else 'existiert der DefaultIcon-Schluessel nicht, wird Null (Nothing) zurueckgegeben
    97. extensionKey.Close()
    98. extensionInfo.Close()
    99. Return Nothing
    100. End If
    101. Else 'existiert der Schluessel nicht, auf den der Schluessel der Dateierweiterung verweist, wird Null (Nothing) zurueckgegeben
    102. extensionKey.Close()
    103. Return Nothing
    104. End If
    105. Else 'ist kein Standardwert fuer den Erweiterungsschluessel verfuegbar, wird Null (Nothing) zurueckgegeben
    106. extensionKey.Close()
    107. Return Nothing
    108. End If
    109. Else 'Existiert kein Schluessel fuer die Erweiterung, wird Null (Nothing) zurueckgegeben
    110. Return Nothing
    111. End If
    112. End Function
    114. Public Shared Function Format(ByVal input As String, ByVal arguments() As String) As String()
    115. 'Zwischenpuffer
    116. Dim outputBuffer As New System.Text.StringBuilder(input.Length)
    117. Dim numberBuffer As New System.Text.StringBuilder(256)
    118. Dim temporaryInt As Integer
    119. Dim chars As IEnumerator(Of Char) = input.GetEnumerator()
    120. Dim output As New List(Of String)(2) 'Sinnvolle Kapazitaet der Liste angeben (eigentlich genuegen 2)
    121. While chars.MoveNext()
    122. If chars.Current = ","c Then 'einzelne Segmente trennen
    123. output.Add(outputBuffer.ToString()) 'zuletzt eingelesenes und ausgewertetes Segment hinzufuegen
    124. outputBuffer.Remove(0, outputBuffer.Length) 'Puffer leeren
    125. ElseIf chars.Current = """"c Then 'Gaensefuesschen erreicht (liest bis zum naechsten Gaensefuesschen)
    126. Do
    127. If chars.MoveNext() Then
    128. 'Wenn der Buchstabe ein % ist, wird eine Zahl eingelesen, die ein Argument (arguments)
    129. 'anspricht
    130. If chars.Current = "%"c Then
    131. If chars.MoveNext() Then
    132. If chars.Current = "%"c Then
    133. outputBuffer.Append("%"c) '%% als % auswerten
    134. ElseIf Char.IsLetterOrDigit(chars.Current) Then
    135. 'solange Buchstaben einlesen, bis ein nicht alphanumerischer Buchstabe erreicht wird.
    136. Do
    137. numberBuffer.Append(chars.Current)
    138. Loop While Char.IsLetterOrDigit(chars.Current) AndAlso chars.MoveNext()
    139. 'ist die Eingabe ueberhaupt eine Zahl...
    140. If Integer.TryParse(numberBuffer.ToString(), temporaryInt) Then
    141. '... wird ueberprueft, ob sie ein gueltiges Argument ist
    142. If temporaryInt >= arguments.GetLowerBound(0) AndAlso temporaryInt <= arguments.GetUpperBound(0) Then
    143. outputBuffer.Append(arguments(temporaryInt)) 'das Argument wird dem Puffer hinzugefuegt
    144. Else
    145. Return Nothing 'nicht genuegend Argumente
    146. End If
    147. Else
    148. Return Nothing 'ungueltige Zahl
    149. End If
    150. End If
    151. End If
    152. ElseIf Not chars.Current = """" Then 'wenn der Buchstabe kein Gaensefuesschen ist, ...
    153. outputBuffer.Append(chars.Current) '... wird es dem Puffer hinzugefuegt
    154. Else
    155. 'sonst wird der Puffer verlassen (mit Exit Do prinzipiell guenstiger, als per Variable)
    156. Exit Do
    157. End If
    158. Else
    159. Return Nothing 'ungueltige Syntax
    160. End If
    161. Loop
    162. Else
    163. outputBuffer.Append(chars.Current) '"normale" Zeichen werden unveraendert dem Puffer hinzugefuegt
    164. End If
    165. End While
    166. output.Add(outputBuffer.ToString()) 'letztes Segment der Liste hinzufuegen
    167. Return output.ToArray() 'Array der Liste ausgeben
    168. End Function

    Und hier ein kleines Anwendungsbeispiel:

    VB.NET-Quellcode

    1. Public Sub EnumerateExtensionIcons()
    2. Dim images As New ImageList 'Liste der Bilder erstellen
    3. Dim icon As Icon'Momentanes Icon
    4. images.ColorDepth = ColorDepth.Depth32Bit 'Farbtiefe auf 32-Bit ARGB einstellen
    5. images.Images.Add(Me.Icon) 'Standardicon 'Irgendein Icon als Standardicon hinzufuegen (steht fuer nicht ermittelbare Icons)
    6. tvExtensions.BeginUpdate()'Update des Ziel-Treeviews einleiten
    7. For Each rkn As String In Microsoft.Win32.Registry.ClassesRoot.GetSubKeyNames() 'Alle Schluessel in ClassesRoot durchlaufen
    8. If rkn.Length > 0 AndAlso rkn.Chars(0) = "."c Then'ueberpruefen, ob der Schluessel eine Dateierweiterung ist/sein koennte
    9. icon = GetIcon(rkn)'Icon ermitteln
    10. If icon Is Nothing Then'Wenn kein Icon verfuegbar ist, wird das Standardicon (Index = 0) eingesetzt
    11. tvExtensions.Nodes.Add(rkn, rkn, 0, 0)
    12. Else
    13. images.Images.Add(icon)'ansonsten wird das Icon zur Liste hinzugefuegt
    14. tvExtensions.Nodes.Add(rkn, rkn, images.Images.Count - 1, images.Images.Count - 1) 'und ein Item mit den Bild-Indices erzeugt
    15. End If
    16. End If
    17. Next
    18. tvExtensions.ImageList = images 'die Bilderliste der TreeView auf die Liste setzen
    19. tvExtensions.EndUpdate() 'Update abschliessen
    20. End Sub


    Gruß
    ~blaze~

    Hallo ~blaze~,
    coole Nr. die du abziehst. Vielen dank dafür.

    Aber gleich noch ne Frage hinterher geschoben.
    Damit später das Icon einer Extension zugeordnet werden kann, habe ich mir gedacht
    - in der ImageListe das Icon und das Extension zu speichern.
    - das Extension könnte ja im Tag platz nehmen.

    Das mache ich dann wie folgt

    VB.NET-Quellcode

    1. ImageList1.Images.Add(icon) 'ansonsten wird das Icon zur Liste hinzugefuegt
    2. ' Den Namen und die lfd. Nr. anzeigen lassen
    3. ListBox1.Items.Add(rkn & " -> " & (ImageList1.Images.Count - 1).ToString)
    4. ' Den Namen in der Tag mitschreiben
    5. ImageList1.Images.Item(ImageList1.Images.Count - 1).Tag = rkn.ToString

    Er bringt mir keinen Fehler, nun gehe ich davon aus er macht es auch.
    Leider bringt er mir nichts mehr zurück.

    VB.NET-Quellcode

    1. Dim Count As Integer = ImageList1.Images.Count - 1
    2. For i = 0 To Count
    3. If Not ImageList1.Images.Item(i).Tag Is Nothing Then
    4. ListBox2.Items.Add(ImageList1.Images.Item(i).Tag.ToString)
    5. End If
    6. Next


    Griefe ich denn nicht auf das Richtige Item zurück. beim einschreiben ins TAG ?

    Oder soll ich lieber Paralell eine Dictonary laufen lassen ?

    danke

    Bernd

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bernd“ ()

    ImageList kann bereits Keys Bilder zuordnen.

    VB.NET-Quellcode

    1. ImageListInstance.Images.Add(".BlA".ToLower(), icon)
    2. ImageListInstance.Images.ContainsKey(".bla")
    3. Dim image As Image = ImageListInstance.Images(".bla")


    Generell würde ich selbst Tags vermeiden, da sie einfach viel zu allgemein nutzbar sind und man schnell den Überblick verliert. Die würde ich wenn dann nur in kleinen Programmen verwenden.

    Gruß
    ~blaze~

    Ok ~balze~
    ich glaube ein danke reicht hier bald nicht mehr.
    wenn du mal Hilfe brauchst, scheu dich nicht mich zu fragen.

    DANKE

    Ich hatte bisher noch nicht das Vergnügen mit TreeView und ImageListe.
    Meine anderen Projekte habe eigentlich immer mit einem DGV realisiert. Was eigentlich auch schöner ist.

    Nuja und die Beispiele in meinen Büchern und bei MSDN sind nciht immer die ausgibigsten.

    naja, nu weis ich ja bescheid.


    vielen dank
    Bernd

    Diese kleine Function von mir holt einfach das Icon, das bei einem Dateityp angezeigt wird.


    VB.NET-Quellcode

    1. Public Function GetIcon(ByVal extension As String) As Icon
    2. extension = extension.ToLower()
    3. Dim tmpFile As String = Application.LocalUserAppDataPath & "\tmp." & extension
    4. System.IO.File.Create(tmpFile).Close()
    5. Dim icon As Icon = icon.ExtractAssociatedIcon(tmpFile)
    6. System.IO.File.Delete(tmpFile)
    7. Return icon
    8. End Function


    So wird eine vordefinierte ImageList völlig überflüssig.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Quadsoft“ ()

    Imagelists sind eigentlich schon relativ weit verbreitet. Ich finde DataGridViews generell nicht schlecht, aber wenn man sich Programme so ansieht, stellt man fest, dass sie sehr selten benutzt werden. Für ListViews, DataGridViews usw. läuft das ganze übrigens analog. Die ImageList wird nur zum zwischenspeichern der Icons verwendet.
    @Quadsoft:
    Ich glaube du hast den Sinn einer ImageList nicht ganz verstanden... TreeViews und ListViews können zum Anzeigen der Icons ImageList-Instanzen verwenden. Das mache ich mir hier zunutze. Deine Funktion ist im Übrigen total unsauber und es läuft abgesehen von der verwendeten Datei auf das gleiche hinaus.

    Gruß
    ~blaze~

    ~blaze~ schrieb:

    Ich glaube du hast den Sinn einer ImageList nicht ganz verstanden... TreeViews und ListViews können zum Anzeigen der Icons ImageList-Instanzen verwenden.

    Das ist mir klar. Aber warum sollte man eine ImageList mit 1000 Icons von den verschiedensten Dateitypen mitschleppen? Unterstelle mir nicht, es nicht verstanden zu haben. Man muss auch bei Verwendung meiner Funktion eine ImageList erstellen, aber nur mit denjenigen Icons, die man auch wirklich benutzen will (dynamisch)

    Und btw: Die Funktion gibt das Icon eines Dateityps zurück. Wenn du mir sagst, wie es einfacher geht, dann bitte.

    Quadsoft schrieb:

    So wird eine vordefinierte ImageList völlig überflüssig.

    Extrahiert aber wieder nur das Icon aus einer vorhanden Datei.
    Und was ist wenn die Datei kein Icon hat ?

    Nach ~blaze~ seiner Methode findet er aber alle die sich bei Windows registriert haben.
    Da ist die Trefferquote um einiges höher.

    @ ~blaze~
    bin noch beim Experimentieren.
    Wie gesagt, ich habe mir ein Aufgabe als Ziel gesetzt. Nun greifen dort Themen die ich bisher nie gebraucht habe.
    - TreeView
    - ImageListe
    - FTP auslesen

    Wenn meine Test also etwas länger dauern ,bzw. die Antworten, liegt es daran das ich mich nicht mit C&P zufrieden gebe.
    Wenn dann hacke ich solange drauf rum, bis ich das auch in der Birne habe.

    Danke euch Beiden

    Bernd

    ImageList ist einfach eine Collection, auf die man mit Schlüssel und/oder per Index zugreifen kann. Wenn Bilder ohne Index übergeben werden geht das mit dem Schlüssel halt nicht so einfach. ImageLists können außerdem noch verschiedene Farbtiefen für die Bilder unterstützten, wie 32-Bit Argbs.
    TreeView und ListView enthalten beide Auflistungen. Das TreeView stellt mit der Nodes-Eigenschaft eine Auflistung von Knoten zur Verfügung. Knoten können wieder eigene Knoten enthalten. Das wird über die Nodes-Eigenschaft der jeweiligen Knoten geregelt. Außerdem können Knoten einen ImageKey und einen ImageIndex angeben, der ihnen ein Bild aus einer ImageList lädt. Die ImageList wird der ImageList-Eigenschaft des TreeViews zugewiesen, damit die Knoten darauf zugreifen können. ListViews enthalten normalerweise nur "oberste Items", also Items, die keine eigenen Unter-Items enthalten.
    Wenn ich es noch richtig in Erinnerung habe, geht man beim Zugriff auf den Ftp-Server so vor:
    - Webclient auf die URI erstellen
    - Method (siehe System.Net.WebRequestMethods.Ftp z.B. System.Net.WebRequestMethods.Ftp.ListDirectory), Credentials usw. zuweisen
    - Response abfragen
    - Response-Stream auswerten

    Bei System.Net.WebRequestMethods.Ftp.ListDirectory sind die Dateien durch Zeilen getrennt, wenn ich mich nicht täusche.

    Gruß
    ~blaze~

Facebook
Telefonspende