Dateivorschau per Interface IPreviewHandler

    • VB.NET
    • .NET (FX) 4.5–4.8

    Es gibt 53 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

      Hi @-Franky-,

      so ein Dusel - Papierkorb von NAS noch nicht geleert :D

      Hier - als Anlage - ein paar Bilder, welche den IPreview (und mein Programm) killen, wenn ca 20 nacheinander an den IPreview übergeben werden.
      Aber mach Dir nicht zuviel Umstände - wer benutzt heute schon noch die Cliparts vom Office 98?
      Im Win-Explorer werden diese übrigens ohne Vorschaubild, also mit leeren Preview gezeigt.
      Der IRFan kann diese Bilder aber öffnen und anzeigen.
      Auch Paintshop lädt und zeigt diese Bilder an.

      Schönes Rest-Weekend wünsche :)
      Dateien

      Neu

      P.S.
      Zitat:
      "WMF clipart files are NOT Windows wmf files. They are Aldus Placeable
      Metafiles. Aldus Placeable Metafiles are composed of a Windows wmf file
      with a 20 byte header. The header basically gives the file a suggested
      size.
      ...
      The wmf file format is a sequence of records describing how to draw
      an image. Each record converts into a specific Windows function call.
      Therefore a wmf file is actually a program.
      These are the Windows functions that an attacker can craft in a wmf file."

      Vielleicht liest der Win-Explorer den Header vor dem IPreview aus - und wenn dieser 20Bytes gross ist, wird das WMF nicht an die IPreview übergeben.

      Neu

      @Dideldum Probiere mal ein paar kleine Änderungen. Zum einen sind die Funktionen IsAlphaBitmap und GetAlphaBitmapFrom... entfallen. Dafür gibt es was neues.
      Spoiler anzeigen
      ​

      VB.NET-Quellcode

      1. ​
      2. Private Function GetBitmapFromHBitmap(nativeHBitmap As IntPtr) As Bitmap
      3. Dim bmp As Bitmap = Bitmap.FromHbitmap(nativeHBitmap)
      4. If Bitmap.GetPixelFormatSize(bmp.PixelFormat) = 32 Then
      5. Dim bmp2 As New Bitmap(GetAlphaBitmap(bmp))
      6. bmp.Dispose()
      7. Return bmp2
      8. End If
      9. Return bmp
      10. End Function
      12. Private Function GetAlphaBitmap(bmpIn As Bitmap) As Bitmap
      13. Dim bmpOut As Bitmap
      14. Dim bmpInData As BitmapData = bmpIn.LockBits(New Rectangle(0, 0, bmpIn.Width, bmpIn.Height), ImageLockMode.ReadOnly, bmpIn.PixelFormat)
      15. bmpOut = New Bitmap(bmpIn.Width, bmpIn.Height, bmpInData.Stride, PixelFormat.Format32bppArgb, bmpInData.Scan0)
      16. bmpIn.UnlockBits(bmpInData)
      17. Return bmpOut
      18. End Function


      Zum anderen könntest auch unter " ' Optional falls die PreviewHandler fehlschlagen!" folgendes machen
      Spoiler anzeigen
      ​

      VB.NET-Quellcode

      1. ​
      2. ' Optional falls die PreviewHandler fehlschlagen!
      3. If Not bolRet Then
      4. If m_PreviewFile.ToLower.EndsWith(".wmf") Then
      5. Dim bmp As New Bitmap(m_PreviewFile)
      6. If bmp IsNot Nothing Then
      7. If m_PreviewWindow.BackgroundImage IsNot Nothing Then m_PreviewWindow.BackgroundImage.Dispose()
      8. m_PreviewWindow.BackgroundImageLayout = ImageLayout.Center
      9. m_PreviewWindow.BackgroundImage = bmp
      10. bolRet = True
      11. End If
      12. Else
      13. Dim pIShellItemImageFactory As IntPtr
      14. If SHCreateItemFromParsingName(m_PreviewFile, IntPtr.Zero,
      15. New Guid(IID_IShellItemImageFactory),
      16. pIShellItemImageFactory) = S_OK Then
      17. Dim oIShellItemImageFactory As Object = Marshal.GetObjectForIUnknown(pIShellItemImageFactory)
      18. If oIShellItemImageFactory IsNot Nothing Then
      19. Dim hBitmap As IntPtr
      20. If CType(oIShellItemImageFactory, IShellItemImageFactory).GetImage(New Size(Math.Min(PrevSize.Width, PrevSize.Height),
      21. Math.Min(PrevSize.Width, PrevSize.Height)),
      22. SIIGBF.SIIGBF_RESIZETOFIT, hBitmap) = S_OK Then
      23. If hBitmap <> IntPtr.Zero Then
      24. If m_PreviewWindow.BackgroundImage IsNot Nothing Then m_PreviewWindow.BackgroundImage.Dispose()
      25. m_PreviewWindow.BackgroundImageLayout = ImageLayout.Center
      26. m_PreviewWindow.BackgroundImage = GetBitmapFromHBitmap(hBitmap)
      27. DeleteObject(hBitmap)
      28. bolRet = True
      29. End If
      30. End If
      31. Marshal.ReleaseComObject(oIShellItemImageFactory)
      32. End If
      33. Marshal.Release(pIShellItemImageFactory)
      34. End If
      35. End If
      36. End If


      Damit werden Dir zumindest Deine WMF, die nicht wollen, direkt geladen und auch als Bild angezeigt.
      Mfg -Franky-

      Neu

      Wie cool ist das denn? 8o

      Viiiiielen Dank @-Franky- - Das ist hypersuperoberklasse! :thumbsup:
      So funktioniert es superklasse - auch mit den uralt WMFs.

      Kann man diese WMF bzw. alle Bilder denn auch Formfüllend anzeigen lassen?
      Diese werden im Gegensatz zu anderen Formaten wie z.B. Docs nicht füllend, sondern nur in deren vorgegebener Grösse angezeigt.

      Edit:
      Ich verwende schon:

      VB.NET-Quellcode

      1. Private Sub Resize_WindowsViewer()
      2. If tsc_WindowsViewer.Visible = True Then
      3. tsc_WindowsViewer_PictureBox.Size = tsc_WindowsViewer.ContentPanel.Size
      4. Try
      5. Preview.ResizePreview(tsc_WindowsViewer_PictureBox.Size)
      6. Catch ex As System.Exception
      7. Dim form_fehler As New ICE_Eingabe
      8. form_fehler.Initialisiere(False, My.Resources.ICE_Common_ICEFehler, String.Format(My.Resources.ICE_Main_WindowsPreview_Fehler, ex.Message), MessageBoxButtons.OK, 8)
      9. End Try
      10. End If
      11. End Sub

      Aber das wirkt bei Bildchen nicht, da die WMFs m.W. im Header eine Grösse vorgaben und die anderen Bilder auch klare Dimensionen haben.

      Ich durchblicke zwar nicht wirklich, was Du gemacht hast - aber es funzt perfekt! :D

      Besten Merci! ^^

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

      Neu

      @-Franky-,
      jo, da hast schon recht - ich würde das daher gerne umschaltbar machen - wie in meinem Pic-Editor.

      1. Originalgrösse
      2. Originalgrösse (zentrieren)
      3. Anzeigegrösse (Verhältnis beibehalten)
      4. Anzeigegrösse (Verhältnis ignorieren)

      Aber mit dem Preview.ResizePreview aus meinem vorherigen Script funzt es nicht bei Bildern, nur bei anderen Formaten.
      Weisst Du, wo ich da Hand anlegen könnte?

      Neu

      Hi. Preview.ResizePreview funktioniert nicht bei allen Dateiformaten. Steht auch so als Kommentar im Code. Alternativ musst Du halt eine Weiche für Bilder einbauen damit Bilder nicht über den IPreviewHandler geladen werden. Bilder kannst ja ganz normal mit .NET Mitteln laden und passend skalieren. Allerdings verwendet VB.NET noch GDI+ für Bilder und da sind die Codecs fest vorgegeben. Also nicht erweiterbar. zB kannst Du per GDI+ keine HEIC/HEIF Bilder laden. Wenn dann würde ich auf die Windows Imaging Component (WIC) für Bilder wechseln. WIC kann von Haus aus mehr Bildformate lesen/schreiben und ist durch zusätzliche WIC-Codecs erweiterbar.
      Mfg -Franky-

      Neu

      Hi @-Franky-

      danke Dir - ja, so habe ich das auch gelöst.
      Die User können bei unverschlüsselt gespeicherten Bildern wählen, ob sie diese im IPreview oder dem Pic-Editor angezeigt bekommen wollen.
      Und im Pic-Editor können die ja auch das Anzeigeformat auswählen.

      Zu dem WIC muss ich noch recherchieren - aber ich denke, mit der regulären PicBox reichen die üblichen Bildformate auch aus.

      Vielen Dank für Deine Hilfe :)

      Neu

      Dideldum schrieb:

      Zu dem WIC muss ich noch recherchieren

      Vllt. mal nur so im Hinterkopf behalten falls Du das mal irgendwann benötigst. Auf meinem PC (Win10) kann WIC folgende Bildformate lesen:
      BMP Decoder: *.bmp;*.dib;*.rle
      GIF Decoder: *.gif
      ICO Decoder: *.ico;*.icon
      CUR Decoder: *.cur
      JPEG Decoder: *.jpeg;*.jpe;*.jpg;*.jfif;*.exif
      PNG Decoder: *.png
      TIFF Decoder: *.tiff;*.tif
      DNG Decoder: *.dng
      WMPhoto Decoder: *.wdp;*.jxr
      DDS Decoder: *.dds
      Microsoft HEIF Decoder: *.heic;*.heif;*.hif;*.avci;*.heics;*.heifs;*.avcs;*.avif;*.avifs
      Microsoft Webp Decoder: *.webp
      Microsoft Raw Image Decoder: *.3fr;*.ari;*.arw;*.bay;*.cap;*.cr2;*.cr3;*.crw;*.dcs;*.dcr;*.drf;*.eip;*.erf;*.fff;*.iiq;*.k25;*.kdc;*.mef;*.mos;*.mrw;*.nef;*.nrw;*.orf;*.ori;*.pef;*.ptx;*.pxn;*.raf;*.raw;*.rw2;*.rwl;*.sr2;*.srf;*.srw;*.x3f;*.dng
      Microsoft Camera Raw Decoder: *.arw;*.cr2;*.crw;*.erf;*.kdc;*.mrw;*.nef;*.nrw;*.orf;*.pef;*.raf;*.raw;*.rw2;*.rwl;*.sr2;*.srw;*.dng

      Und folgende schreiben:
      BMP Encoder: *.bmp;*.dib;*.rle
      GIF Encoder: *.gif
      JPEG Encoder: *.jpeg;*.jpe;*.jpg;*.jfif;*.exif
      PNG Encoder: *.png
      TIFF Encoder: *.tiff;*.tif
      WMPhoto Encoder: *.wdp;*.jxr
      DDS Encoder: *.dds
      Microsoft HEIF Encoder: *.heic;*.heif;*.hif
      Mfg -Franky-

      Neu

      Hi @-Franky-

      Danke Dir extremst für Deine Tips und Hilfe :)

      Güte, Güte - die Raw-Formate kenne ich alle nicht.
      Zu den Heif- und anderen Formaten muss ich auch erst mal meinen Browser ausquetschen, ob der was brauchbares dazu ausspuckt. :D
      Habe diesen Thread auf alle Fälle im ToDo geparkt - für spätere Updates. ;)

      Ich finde im Web keine Infos, wie ich die Schaltfläche im IPreview, die im Bild oben angezeigt ist ("Einige Bilder wurden geblockt...") so unterstützen kann, damit beim Anklickern die fehlenden Bilder in der HTML-IPreview Vorschau geladen werden. ;(
      Irgendwie müsste das doch zu machen sein...
      Hast Du vielleicht auch dazu eine Idee?

      Beste Grüsse
      Bilder

      • IPreview.jpg

        32,81 kB, 1.213×105, 9 mal angesehen

      Neu

      Dideldum schrieb:

      Ich finde im Web keine Infos, wie ich die Schaltfläche im IPreview,....
      Gute Frage. Du könntest das mal im Explorer in der Preview testen ob das dort funktioniert. Wenn es dort auch nicht funktioniert, dann geht das mit dem Code auch nicht.

      Das Heic/Heif Format ist dem Jpeg Format sehr ähnlich. Ist also auch ein verlustbehaftetes Verfahren. Die Bildqualität ist aber besser als bei Jpeg und die Dateigröße dabei viel kleiner.
      Mfg -Franky-

      Neu

      Hi @-Franky-,

      Danke Dir :)

      Für das IPreview habe ich im englischsprachigen Web eine Erklärung gefunden, die sich eigentlich auch ergibt, wenn man den angezeigten Satz ganz genau liest und versteht (das hatte ich nicht) :D
      "Einige Bilder wurden blockiert, damit der Absender Ihren Computer nicht identifizieren kann. Öffnen Sie diese Element, um die Bilder anzuzeigen"
      Der Satzsinn ging wohl mit der Translation stiften.
      Ich habe "diese Element" (als Plural "diese Elemente") als die nicht angezeigten Bilder interpretiert - dabei ist damit die gesamte Datei (im Singular "dieses Element") gemeint.
      Und "Öffnen" bezieht sich auf eine Dritt-Anwendung, in welcher das HTML-Objekt geöffnet werden soll.
      Das IPreview unterbindet bei HTML immer die eingebundenen Bilder.

      EDIT: Das ist auch gar keine Schaltfläche, auf der die Info ausgegeben wird, sondern nur eine Textbox, in welcher der Inhalt bei MouseOver gehighlightet wird.

      Na, ist ja auch kein wirkliches Problem - in meiner Anwendung kann der Benutzer wählen, ob er die HTML-Dokumente im IPreview oder im CeFSharp (mit Bildern) angezeigt bekomen möchte.

      Ah, mit Bild-Formaten bin ich nicht wirklich innig.
      Bislang haben mir immer die Standard-".bmp", ".dib", ".emf", ".gif", ".ico", ".jpe", ".jpg", ".jpeg", ".pcd", ".png", ".tif", ".tiff", ".wmf"-Endung ausgereicht.
      Wofür braucht man denn soviel weitere Formate?

      Einen schönen Papa-Tag @all

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

      Neu

      Dideldum schrieb:

      Wofür braucht man denn soviel weitere Formate?

      Die ganzen RAW Formate kommen hauptsächlich bei Digitalkameras vor (CR2/3 sind zB von Canon) wo das aufgenommene Bild später noch bearbeitet werden soll und von vornherein keine Verfälschungen, zB durch Komprimierung wie bei Jpeg, der Bilddaten geben soll. In RAW Formaten sind auch viel mehr Informationen gespeichert als nur die reinen Pixel des Bildes und sind daher auch sehr groß. Da jeder Hersteller sein eigenes Süppchen bei RAW kocht, gibt es auch soviele unterschiedliche Formate. Windows selbst hat ja auch so einige Audio-, Video- und Bildformate hevorgebracht die sich irgendwie nicht durchgesetzt haben. Ich wüsste zb nicht wo WMPhoto noch oder überhaupt zum Einsatz kommt.
      Mfg -Franky-

      Neu

      Dideldum schrieb:

      Wofür braucht man denn soviel weitere Formate?
      Das spiegelt auch eine historische Entwicklung wider.
      Am Anfang gab es nur Bitmap, Komprimierung gab es noch nicht.
      Die Komprimierung ging dann zwei Wege, verlustbehaftet (JPG) und verlustfrei (PNG);
      in der Mikroskopie wurde das Tiff-Format präferiert, weil da die weitere Bilder und viele Aufnahme-Informationen zusammen gepackt werden konnten;
      usw.
      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!

    Facebook
    Telefonspende