Bild in Picturebox laden als Thread

RodFromGermany · 27. Juli 2021, 05:33

xX-Nick-Xx schrieb:

Aber das .GIF (jetzt als Beispiel) soll halt weiter Funktionieren.

Es gibt 3 Sorten von GIF-Dateien in .NET:
Die, die laufen,
die, die einen GIF-Animator benötigen, um zu laufen
und die, die nicht laufen.
Was ist Deine GIF für eine?

-Franky- · 27. Juli 2021, 08:04

@xX-Nick-XxnullDu könntest das laden der DDS, bzw auch anderer Bildformate die WIC unterstützt, etwas beschleunigen. Zum einen musst Du ja nicht jedesmal WIC starten/beenden wenn Du ein Bild laden möchtest. Es reicht wenn Du WIC einmal beim Start der MainForm initialisierst bzw im Closing beendest. WIC steht nach Initialisierung Programmweit zur Verfügung. Du könntest auch die APIs CreateFormatConverter und InitializeFormatConverter durch die API WICConvertBitmapSource ersetzen. Die ersten beiden APIs braucht man nur wenn man Pixelformatmäßig downgraden (32bpp -> 8bpp) möchte da man hier noch ein Ditherformat und Palettetype für die Konvertierung angeben kann. Bei der anderen API entfällt entsprechende Optimierung beim konvertieren was schneller sein dürfte. Evtl ist das erstellen der .NET-Bitmap aus dem ByteArray etwas schneller wenn Du das ByteArray direkt bei New Bitmap an Scan0 übergibst anstelle das ByteArray über LockBits/UnlockBits an Scan0 zu kopieren. Das alles könnte evtl. noch mal ein paar Millisekunden pro Bild herauskitzeln.

Edit: Hab mal meinen ursprünglichen Code etwas umgebaut. Kannst ja mal mit einer StopWatch messen ob dieser etwas schneller ist als der alte Code.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.ComponentModel
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class Form1
Private Const S_OK As Integer = &H0
Private Const WINCODEC_SDK_VERSION2 As Integer = &H237
Private GUID_WICPixelFormat32bppBGRA As Guid = New Guid("{6fddc324-4e03-4bfe-b185-3d77768dc90f}")
Private Enum WICAccessOption As Integer
GENERIC_READ = &H80000000
GENERIC_WRITE = &H40000000
End Enum
Private Enum WICDecodeOptions As Integer
WICDecodeMetadataCacheOnDemand = &H0
WICDecodeMetadataCacheOnLoad = &H1
End Enum
<DllImport("windowscodecs.dll", EntryPoint:="WICCreateImagingFactory_Proxy")>
Private Shared Function CreateImagingFactory(
<[In]> ByVal SDKVersion As Integer,
<Out> ByRef ppIImagingFactory As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICImagingFactory_CreateDecoderFromFilename_Proxy")>
Private Shared Function CreateDecoderFromFilename(
<[In]> ByVal pFactory As IntPtr,
<[In]> <MarshalAs(UnmanagedType.LPWStr)> ByVal wzFilename As String,
<[In]> ByVal pguidVendor As IntPtr,
<[In]> ByVal dwDesiredAccess As WICAccessOption,
<[In]> ByVal metadataOptions As WICDecodeOptions,
<Out> ByRef ppIDecoder As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICBitmapDecoder_GetFrameCount_Proxy")>
Private Shared Function GetFrameCount(
<[In]> ByVal pIWICDecoder As IntPtr,
<Out> ByRef pCount As Integer) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICBitmapDecoder_GetFrame_Proxy")>
Private Shared Function GetFrame(
<[In]> ByVal pIWICDecoder As IntPtr,
<[In]> ByVal index As Integer,
<Out> ByRef ppIBitmapFrame As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICBitmapSource_GetSize_Proxy")>
Private Shared Function GetSize(
<[In]> ByVal pIWICBitmapSource As IntPtr,
<Out> ByRef puiWidth As Integer,
<Out> ByRef puiHeight As Integer) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="WICConvertBitmapSource")>
Private Shared Function ConvertBitmapSource(
<[In]> ByRef dstFormat As Guid,
<[In]> ByVal pISrc As IntPtr,
<Out> ByRef ppIDst As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICBitmapSource_CopyPixels_Proxy")>
Private Shared Function WicCopyPixels(
<[In]> ByVal pIWICBitmapSource As IntPtr,
<[In]> ByVal prc As IntPtr,
<[In]> ByVal cbStride As Integer,
<[In]> ByVal cbBufferSize As Integer,
<Out> ByVal pbBuffer As IntPtr) As Integer
End Function
Private m_WICInit As Boolean = False
Private m_pIImagingFactory As IntPtr = IntPtr.Zero
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
' WIC starten
If CreateImagingFactory(WINCODEC_SDK_VERSION2, m_pIImagingFactory) = S_OK Then
m_WICInit = True
End If
End Sub
Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
' ist WIC initialisiert?
If m_WICInit = True Then
' WIC beenden
Marshal.Release(m_pIImagingFactory)
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strImage As String = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_ImageLoader\test.dds"
PictureBox1.Image = LoadImage(strImage)
End Sub
Private Function LoadImage(ByVal sImagePath As String) As Bitmap
Dim intWidth As Integer = 0
Dim intHeight As Integer = 0
Dim intFrameCount As Integer = 0
Dim pIWICBitmap As IntPtr = IntPtr.Zero
Dim pIWICDecoder As IntPtr = IntPtr.Zero
Dim pIWICBitmapFrame As IntPtr = IntPtr.Zero
Dim bmp As Bitmap = Nothing
Dim arrData As Byte() = New Byte() {}
' ist WIC initialisiert?
If m_WICInit = True Then
' einen Decoder vom Bild erstellen
If CreateDecoderFromFilename(m_pIImagingFactory, sImagePath, IntPtr.Zero,
WICAccessOption.GENERIC_READ,
WICDecodeOptions.WICDecodeMetadataCacheOnLoad,
pIWICDecoder) = S_OK Then
' Anzahl der Frames ermitteln
If GetFrameCount(pIWICDecoder, intFrameCount) = S_OK Then
' mindestens ein Frame vorhanden?
If intFrameCount > 0 Then
' erstes Frame laden
If GetFrame(pIWICDecoder, 0, pIWICBitmapFrame) = S_OK Then
' Frame in das 32bppBGRA PixelFormat konvertieren
If ConvertBitmapSource(GUID_WICPixelFormat32bppBGRA, pIWICBitmapFrame,
pIWICBitmap) = S_OK Then
If GetSize(pIWICBitmap, intWidth, intHeight) = S_OK Then
' Stride berechnen
Dim intStride As Integer = intWidth * 4
' ByteArray entsprechend redimensionieren
Array.Resize(arrData, intHeight * intStride)
' ByteArray pinnen
Dim hPinnedData As GCHandle = GCHandle.Alloc(arrData, GCHandleType.Pinned)
' Pointer von gepinnten ByteArray
Dim pPinnedData As IntPtr = hPinnedData.AddrOfPinnedObject
' Pixeldaten vom WIC-Bitmap in das ByteArray kopieren
If WicCopyPixels(pIWICBitmap, IntPtr.Zero, intStride,
arrData.Length, pPinnedData) = S_OK Then
' neues Bitmap vom ByteArray in gleicher Größe und Pixelformat
' wie das WIC-Bitmap erstellen
bmp = New Bitmap(intWidth, intHeight, intStride,
PixelFormat.Format32bppArgb, pPinnedData)
End If
' ByteArray unpinnen
hPinnedData.Free()
End If
' WIC-Bitmap löschen
Marshal.Release(pIWICBitmap)
End If
' geladenes Frame löschen
Marshal.Release(pIWICBitmapFrame)
End If
End If
End If
' Decoder löschen
Marshal.Release(pIWICDecoder)
End If
End If
Return bmp
End Function
End Class

xX-Nick-Xx · 27. Juli 2021, 09:51

RodFromGermany schrieb:

Die, die laufen,

Dies läuft alleine

@-Franky- Teste ich Später mal, Danke.

dive26 · 2. August 2021, 14:41

Vieleicht versuchtst Du einen ganz anderen Ansatz.
Du könnstest alle Bilder in interne Variablen laden und während diesen Ladens einfach eine Statusanzeige zeigen.
Wenn die Bilder alle im Speicher sind, dann kannst Du die Form laden und befüllst direkt aus dem Ram-Speicher.
Somit entfällt die "Hauptbremse", das Laden von der Platte.

Ich habe mir gerade auch noch das Video angesehen.
Ich denke, dass nicht nur das Laden von der Platte so viele Zeit in Anspruch nimmt, sondern das Positionieren am Control.
Listboxen mit vielen Fotos kann schon seeeeehr langsam werden.
Ich befülle die Listboxen mit Grafiken und der User sieht dabei einen Fortschrittsbalken und nach jeder Zeile wird das Listbox aktualisiert.
Das dauert zwar insgesamt 1-2 Sekunden länger, aber da der User sieht "es tut sich was" ist es gefühlt für den User "schneller".

xX-Nick-Xx · 19. November 2021, 17:32

Ich muss den Thread doch nochmal wieder Eröffnen da sich mit der Funktion von @-Franky- ein Problem ergeben hat

und zwar lässt sich alles ohne Problem laden im Spiel 1

aber bei Spiel 2 bekomme ich einen Fehler von der Funktion, und ich hab keine Ahnung wieso oder weshalb...

evtl. kannst du mir ja Helfen @-Franky- oder ein anderer.

Aktuelle Funktion

VB.NET-Quellcode

Function LoadDDSX(ByVal DDSPath As String) As Bitmap '<- Hier soll die Zuständige Picturebox Zugewiesen werden
Dim strPicture As String = DDSPath
Dim intWidth As Integer = 0
Dim intHeight As Integer = 0
Dim intBuffSize As Integer = 0
Dim intFrameCount As Integer = 0
Dim tWICRect As WICRect = New WICRect
Dim pIWICLock As IntPtr = IntPtr.Zero
Dim pIWICBitmap As IntPtr = IntPtr.Zero
Dim pIWICDecoder As IntPtr = IntPtr.Zero
Dim pIImagingFactory As IntPtr = IntPtr.Zero
Dim pIWICBitmapFrame As IntPtr = IntPtr.Zero
Dim pIWICFormatConverter As IntPtr = IntPtr.Zero
Dim pData As IntPtr = IntPtr.Zero
Dim bmp As Bitmap = Nothing
' WIC starten
If CreateImagingFactory(WINCODEC_SDK_VERSION2, pIImagingFactory) = S_OK Then
' ein Decoder vom Bild erstellen
If CreateDecoderFromFilename(pIImagingFactory, strPicture, IntPtr.Zero,
WICAccessOption.GENERIC_READ,
WICDecodeOptions.WICDecodeMetadataCacheOnLoad,
pIWICDecoder) = S_OK Then
' Anzahl der Frames ermitteln
If GetFrameCount(pIWICDecoder, intFrameCount) = S_OK Then
' mindestens ein Frame vorhanden?
If intFrameCount > 0 Then
' erstes Frame laden
If GetFrame(pIWICDecoder, 0, pIWICBitmapFrame) = S_OK Then
' ein FormatConverter erstellen
If CreateFormatConverter(pIImagingFactory, pIWICFormatConverter) = S_OK Then
' FormatConverter initialisieren -> PixelFormat32bppBGRA
If InitializeFormatConverter(pIWICFormatConverter, pIWICBitmapFrame,
GUID_WICPixelFormat32bppBGRA,
WICBitmapDitherType.WICBitmapDitherTypeNone,
IntPtr.Zero, 0,
WICBitmapPaletteType.WICBitmapPaletteTypeMedianCut) = S_OK Then
' ein WIC-Bitmap vom FormatConverter erstellen
If CreateBitmapFromSource(pIImagingFactory, pIWICFormatConverter,
WICBitmapCreateCacheOption.WICBitmapCacheOnLoad, pIWICBitmap) = S_OK Then
' Dimensionen der WIC-Bitmap ermitteln
If GetSize(pIWICBitmap, intWidth, intHeight) = S_OK Then
With tWICRect
.X = 0
.Y = 0
.Width = intWidth
.Height = intHeight
End With
' WIC-Bitmap zum auslesen der Pixeldaten sperren
If WicLockBits(pIWICBitmap, tWICRect, WICBitmapLockFlags.WICBitmapLockRead, pIWICLock) = S_OK Then
' Pointer auf die Pixeldaten und Größe der Pixeldaten ermitteln
If GetDataPointer(pIWICLock, intBuffSize, pData) = S_OK Then
' entsprechend ein ByteArray dimensionieren
Dim arrData As Byte() = New Byte(intBuffSize - 1) {}
' Pixeldaten vom Pointer in das ByteArray kopieren
Marshal.Copy(pData, arrData, 0, intBuffSize)
' neues Bitmap in gleicher Größe und Pixelformat wie das WIC-Bitmap erstellen
bmp = New Bitmap(intWidth, intHeight, PixelFormat.Format32bppArgb)
' Bitmap zum schreiben der Pixeldaten sperren
Dim bmpdata As BitmapData = bmp.LockBits(New Rectangle(0, 0, intWidth, intHeight),
ImageLockMode.WriteOnly, bmp.PixelFormat)
' Pixeldaten aus dem ByteArray in das Bitmap schreiben
Marshal.Copy(arrData, 0, bmpdata.Scan0, intBuffSize)
' Sperre der Bitmap aufheben
bmp.UnlockBits(bmpdata)
' Bild ausgeben
'For Each C As Panel In FlowLayoutPanel1.Controls
' For Each TB As Control In C.Controls
' If TB.GetType() Is GetType(PictureBox) Then
' TB.Name = bmp
' End If
' Next
'Next
'For Each C As Panel In FlowLayoutPanel1.Controls
' For Each TB As Control In C.Controls
' If TB.GetType() Is GetType(PictureBox) Then
' TB.BackgroundImage = bmp
' End If
' Next
'Next
End If
' Sperre der WIC-Bitmap aufheben
Marshal.Release(pIWICLock)
End If
End If
' WIC-Bitmap löschen
Marshal.Release(pIWICBitmap)
End If
' FormatConverter löschen
Marshal.Release(pIWICFormatConverter)
End If
End If
' geladenes Frame löschen
Marshal.Release(pIWICBitmapFrame)
End If
End If
End If
' Decoder löschen
Marshal.Release(pIWICDecoder)
End If
' WIC beenden
Marshal.Release(pIImagingFactory)
End If
' Next
Return bmp
End Function

im Anhang habe ich eine Zip Hinzugefügt mit 2 DDS Dateien dabei lässt sich "canload" laden aber "cannotload" lässt sich nicht Laden.

Aufruf

VB.NET-Quellcode

Dim bt As Bitmap = LoadDDSUX.LoadDDSX("C:\Users\nico9\Desktop\store_manureDirector14.dds")
PictureBox9.Image = New Bitmap(bt)

Fehlermeldung bei "cannotload": System.NullReferenceException: "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

Danke im voraus

RodFromGermany · 19. November 2021, 17:37

@xX-Nick-Xx Das ist leider korrekt.
canload.dds wird vom IrfanView geladen, cannotload.dds nicht:

Ich frage mich, warum Du diesen Test nicht selbst gemacht hast.

xX-Nick-Xx · 19. November 2021, 18:05

RodFromGermany schrieb:

Ich frage mich, warum Du diesen Test nicht selbst gemacht hast.

Wusste bzw. weiß nicht wie.

Lässt sich das irgendwie beheben?

-Franky- · 19. November 2021, 18:33

Hi

Ich komme gerade nicht zum testen. Aber was ich sagen kann, es liegt nicht an der Funktion zum Laden der DDS. Die Funktion gibt stumpf ein Bitmap-Objekt zurück. Du prüfst aber nicht ob das Bitmap-Objekt <> Nothing ist bevor du die Bitmap der PB per New Bitmap zuweist. Du könntest auch die Funktion umbauen und zwar so das die Funktion ein Boolean zurück gibt und die Bitmap per ByRef Parameter.

Wie auch immer. Wenn die Funktion ein Bitmap = Nothing zurück gibt, dann ist entweder die DDS defekt oder es ist eine valide DDS die von WIC nicht decodiert werden kann.

Ich hatte Dir doch mal in einem anderen Thread eine etwas bessere Funktion zu laden von DDS Bilder gepostet. Die behebt zwar auch nicht das Problem, war aber etwas übersichtlicher und kürzer.

Edit: Ach ich sehe grade das der etwas bessere Code ja auch hier in diesem Thread ist.

RodFromGermany · 19. November 2021, 18:36

xX-Nick-Xx schrieb:

Lässt sich das irgendwie beheben?

Woher kommt denn das (Nicht-)Bild?
====
Die Header unterscheiden sich ein wenig, aber mir ist das Format nicht geläufig:

-Franky- · 19. November 2021, 19:11

Hi

Vllt kommt man ja hiermit weiter: docs.microsoft.com/de-de/windo…2/wic/dds-format-overview

Im speziellen -> Pixelformatunterstützung und dann schaust Du hier: docs.microsoft.com/de-de/windo…32/direct3ddds/dds-header wie der Header einer DDS Aufgebaut ist. Evtl wird ja für die DDS ein PixelFormat verwendet das vom WIC Deoder nicht unterstützt wird.

xX-Nick-Xx · 19. November 2021, 19:27

-Franky- schrieb:

Im speziellen -> Pixelformatunterstützung und dann schaust Du hier: docs.microsoft.com/de-de/windo…32/direct3ddds/dds-header wie der Header einer DDS Aufgebaut ist. Evtl wird ja für die DDS ein PixelFormat verwendet das vom WIC Deoder nicht unterstützt wird.

schau ich mir morgen mal an, Danke

Kannst du den "Etwas Besseren Code" nochmal Verlinken?

-Franky- · 19. November 2021, 19:31

Hi

Über meinem Handy kann ich die Post-Nummer nicht sehen. Aber es ist der 2 Post auf Seite 2 in diesem Thread im Spoiler.

-Franky- · 19. November 2021, 23:01

Hi

Hab mal etwas recherchiert. Falls der Aufruf von CreateDecoderFromFilename noch S_OK sein sollte, dann könnte man von pIWICDecoder per QueryInterface ein Interface IWICDdsDecoder erstellen. IWICDdsDecoder hat eine Funktion GetParameters mit der man eine Structure WICDdsParameters befüllen lassen kann. Diese Structure hat einen Member DxgiFormat -> Enum DXGI_FORMAT. Darüber sollte sich feststellen lassen welches PixelFormat die DDS hat. Nur so eine Idee falls die DDS ein PixelFormat enthält das von WIC für DDS nicht unterstützt wird.

xX-Nick-Xx · 20. November 2021, 20:08

-Franky- schrieb:

Hab mal etwas recherchiert. Falls der Aufruf von CreateDecoderFromFilename noch S_OK sein sollte, dann könnte man von pIWICDecoder per QueryInterface ein Interface IWICDdsDecoder erstellen. IWICDdsDecoder hat eine Funktion GetParameters mit der man eine Structure WICDdsParameters befüllen lassen kann. Diese Structure hat einen Member DxgiFormat -> Enum DXGI_FORMAT. Darüber sollte sich feststellen lassen welches PixelFormat die DDS hat. Nur so eine Idee falls die DDS ein PixelFormat enthält das von WIC für DDS nicht unterstützt wird.

Ähm... Ich Versteh nur Bahnhof xD
Ich würde mich um deine Hilfe dabei doch sehr Freuen, da du dich doch sehr gut in dem Bereich auskennst @-Franky-

-Franky- · 21. November 2021, 08:58

xX-Nick-Xx schrieb:

Ähm... Ich Versteh nur Bahnhof xD

Da bist Du nicht der einzige wenn ich schreibe verwende dieses oder jenes COM Interface.

Bevor ich da was zusammen bastel, müsstest Du folgende Hausaufgabe machen. Gibt die API CreateDecoderFromFilename noch ein S_OK zurück? Denn wenn nicht, brauchen wir nicht weiter machen da ein QueryInterface auf pIWICDecoder dann auch nicht aufgerufen werden kann.

Und selbst wenn CreateDecoderFromFilename ein S_Ok zurück gibt, erfährst Du maximal ein paar Info zur DDS wie das PixelFormat und anderes. Laden lässt sich die cannotload.dds dennoch nicht weil vermutlich dann nachfolgende APIs fehlschlagen weil die DDS entweder defekt oder ein nicht von WIC unterstütztes DDS Format ist.

Nur mal so eine Frage am Rande. Warum verwendest Du das DDS Format?

xX-Nick-Xx · 21. November 2021, 13:26

-Franky- schrieb:

Nur mal so eine Frage am Rande. Warum verwendest Du das DDS Format?

Das DDS Format wird vom Spiel "Farming Simulator 22" Verwendet, deswegen doof

Bei "Farming Simulator 19" hat alles Funktioniert, aber in der 22er Version wird jetzt wohl irgendwie DX 10 Verwendet (siehe Bild in Picturebox laden als Thread )

Laut Google soll S_OK wohl Funktionieren
Link (Ist C)
Link 2

-Franky- · 21. November 2021, 14:40

Hi

xX-Nick-Xx schrieb:

Laut Google soll S_OK wohl Funktionieren

Öhm. Klar kann die API S_OK zurück geben. Die Frage war, macht sie das auch bei der cannotload.dds. Nööö, macht sie nicht. Die API gibt einen Errorcode 0x88982F61 (WINCODEC_ERR_BADHEADER) zurück. Hätte man ganz leicht testen können.

VB.NET-Quellcode

Debug.Print("0x" & CreateDecoderFromFilename(pIImagingFactory, sImagePath, IntPtr.Zero,
WICAccessOption.GENERIC_READ,
WICDecodeOptions.WICDecodeMetadataCacheOnLoad,
pIWICDecoder).ToString("X2"))

Von daher gibt es "derzeit" keine Chance diese DDS per WIC zu laden oder ich weis nicht das es da noch andere Möglichkeiten gibt. Im übrigen ist diese cannotload.dds ein grüner Traktor auf transparentem Hintergrund.

Diese DDS habe ich mit Paint.NET laden können, und diese wieder als DDS (BC1 (Linear, DXT1)) gespeichert und dann klappt das auch wieder mit WIC.

Fazit: Es ist eine valide DDS die WIC derzeit nicht decodieren kann. Evtl. gibt es ja hier ein paar Spezialisten die Dir sagen können wie man so eine DDS mit DirectX lädt oder wie Paint.NET so eine DDS laden kann.

Bild in Picturebox laden als Thread

xX-Nick-Xx schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

RodFromGermany schrieb:

xX-Nick-Xx schrieb:

-Franky- schrieb:

-Franky- schrieb:

xX-Nick-Xx schrieb:

-Franky- schrieb:

xX-Nick-Xx schrieb:

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben