Bild in Picturebox laden als Thread

xX-Nick-Xx · 26. Juli 2021, 18:26

Moin,

Ich Versuche aktuell meinen Code etwas zu Verbessern (Da sich die Form immer aufhängt während dem Laden)

Der Code Erstellt erst eine Picturebox und lädt anschließend das entsprechende Bild.
Das ganze läuft als Thread.

VB.NET-Quellcode

PBI = New PictureBox
BeginInvoke(Sub() PanelI.Controls.Add(PBI))
' MsgBox(ModCheck.ToString)
BeginInvoke(Sub()
With PBI
.Name = i & "_Picturebox"
.Dock = DockStyle.Left
.BackColor = Color.FromArgb(40, 40, 40)
.Width = 160
.BringToFront()
If Filename.Contains("png") Then
If File.Exists(ModCheck & i & "\" & Filename) = True Then
.SizeMode = PictureBoxSizeMode.StretchImage
.Load(ModCheck & i & "\" & Filename)
Else
.SizeMode = PictureBoxSizeMode.CenterImage
.Image = .ErrorImage
End If
ElseIf Filename.Contains("dds") Then
If File.Exists(ModCheck & i & "\" & Filename) = True Then
' MsgBox("DDS, JA")
.SizeMode = PictureBoxSizeMode.StretchImage
.Image = New Bitmap(bt)
Else
.SizeMode = PictureBoxSizeMode.CenterImage
.Image = .ErrorImage
End If
Else
.SizeMode = PictureBoxSizeMode.CenterImage
.Image = .ErrorImage
End If
End With
End Sub)

*(bt) ist eine Klasse

VB.NET-Quellcode

Dim bt As Bitmap = LoadDDSUI.LoadDDSX(ModCheck & i & "\" & Filename)

Nur leider in diesem Versuch (So habe ich es mit dem Invoke gefunden) wird das ErrorImage Geladen statt das entsprechende Bild.

Ich Freue mich über Feedback, da ich nach 2Std jetzt Komplett Ratlos bin xD

mrMo · 26. Juli 2021, 18:29

So ein Quatsch sowas in einem (angeblichen) Thread zu machen und dann direkt zu Invoken… dann gehen ja alles Vorteile des Threads wieder verloren. Im übrigen wäre es schön den ganzen Code zu sehen und nicht nur Teile davon…

Edit:
Bring erstmal alles ohne Threading ans laufen, dann kann man wenigstens sauber debuggen und schauen wo der Fehler ist.

Deine Filename Prüfungen sind auch nicht optimal. Denn du willst ja die Extension prüfen und nicht ob irgendwo im Dateinamen png/dds vorkommt. Was wenn die Datei png.xls heiß?

xX-Nick-Xx · 26. Juli 2021, 18:46

mrMo schrieb:

Bring erstmal alles ohne Threading ans laufen, dann kann man wenigstens sauber debuggen und schauen wo der Fehler ist.

Der Code lief ja schon ohne Threading.
Da sich aber viele Nutzer beklagt hatten das die Form beim Laden immer einfriert habe ich es mal mit den Threads Versucht.

Der Restliche Code ist hier
(Also die .DDS Funktion von @-Franky-)

mrMo · 26. Juli 2021, 18:51

Kannst du bitte den aktuellen Stand vom Code der ganzen Methode hier posten? Ich will mir den nicht aus anderen Threads zusammen suchen um später festzustellen das irgendwas fehlt.

Friert die Form den jetzt nicht mehr ein?

RodFromGermany · 26. Juli 2021, 18:52

xX-Nick-Xx schrieb:

Der Code lief ja schon ohne Threading.

Belasse es dabei, denn die Manipulation von GUI-Controlös funktioniert nur im GUI-Thread.
Debugge mal den Code und Du wirst sehen, wo er rausfliegt.
Genau deswegen hast Du wohl das Error-Image geladen.

xX-Nick-Xx · 26. Juli 2021, 18:56

mrMo schrieb:

Kannst du bitte den aktuellen Stand vom Code der ganzen Methode hier posten? Ich will mir den nicht aus anderen Threads zusammen suchen um später festzustellen das irgendwas fehlt.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class LoadDDSU
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}")
Public ModCheck As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\FarmingStudio21\MCLoad\"
Private Enum WICAccessOption As Integer
GENERIC_READ = &H80000000
GENERIC_WRITE = &H40000000
End Enum
Private Enum WICDecodeOptions As Integer
WICDecodeMetadataCacheOnDemand = &H0
WICDecodeMetadataCacheOnLoad = &H1
End Enum
Private Enum WICBitmapLockFlags As Integer
WICBitmapLockRead = &H1
WICBitmapLockWrite = &H2
End Enum
Private Enum WICBitmapCreateCacheOption As Integer
WICBitmapNoCache = &H0
WICBitmapCacheOnDemand = &H1
WICBitmapCacheOnLoad = &H2
End Enum
Private Enum WICBitmapDitherType As Integer
WICBitmapDitherTypeNone = &H0
WICBitmapDitherTypeSolid = &H0
WICBitmapDitherTypeOrdered4x4 = &H1
WICBitmapDitherTypeOrdered8x8 = &H2
WICBitmapDitherTypeOrdered16x16 = &H3
WICBitmapDitherTypeSpiral4x4 = &H4
WICBitmapDitherTypeSpiral8x8 = &H5
WICBitmapDitherTypeDualSpiral4x4 = &H6
WICBitmapDitherTypeDualSpiral8x8 = &H7
WICBitmapDitherTypeErrorDiffusion = &H8
End Enum
Private Enum WICBitmapPaletteType As Integer
WICBitmapPaletteTypeCustom = &H0
WICBitmapPaletteTypeMedianCut = &H1
WICBitmapPaletteTypeFixedBW = &H2
WICBitmapPaletteTypeFixedHalftone8 = &H3
WICBitmapPaletteTypeFixedHalftone27 = &H4
WICBitmapPaletteTypeFixedHalftone64 = &H5
WICBitmapPaletteTypeFixedHalftone125 = &H6
WICBitmapPaletteTypeFixedHalftone216 = &H7
WICBitmapPaletteTypeFixedWebPalette = WICBitmapPaletteTypeFixedHalftone216
WICBitmapPaletteTypeFixedHalftone252 = &H8
WICBitmapPaletteTypeFixedHalftone256 = &H9
WICBitmapPaletteTypeFixedGray4 = &HA
WICBitmapPaletteTypeFixedGray16 = &HB
WICBitmapPaletteTypeFixedGray256 = &HC
End Enum
<StructLayout(LayoutKind.Sequential)>
Private Structure WICRect
Dim X As Integer
Dim Y As Integer
Dim Width As Integer
Dim Height As Integer
End Structure
<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:="IWICBitmap_Lock_Proxy")>
Private Shared Function WicLockBits(
<[In]> ByVal pIBitmap As IntPtr,
<[In]> ByRef prcLock As WICRect,
<[In]> ByVal lockFlags As WICBitmapLockFlags,
<Out> ByRef ppILock As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICBitmapLock_GetDataPointer_STA_Proxy")>
Private Shared Function GetDataPointer(
<[In]> ByVal pILock As IntPtr,
<Out> ByRef pcbBufferSize As Integer,
<Out> ByRef ppbData As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICImagingFactory_CreateFormatConverter_Proxy")>
Private Shared Function CreateFormatConverter(
<[In]> ByVal pFactory As IntPtr,
<Out> ByRef ppIFormatConverter As IntPtr) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICFormatConverter_Initialize_Proxy")>
Private Shared Function InitializeFormatConverter(
<[In]> ByVal pIFormatConverter As IntPtr,
<[In]> ByVal pISource As IntPtr,
<[In]> ByRef dstFormat As Guid,
<[In]> ByVal dither As WICBitmapDitherType,
<[In]> ByVal pIPalette As IntPtr,
<[In]> ByVal alphaThresholdPercent As Double,
<[In]> ByVal paletteTranslate As WICBitmapPaletteType) As Integer
End Function
<DllImport("windowscodecs.dll", EntryPoint:="IWICImagingFactory_CreateBitmapFromSource_Proxy")>
Private Shared Function CreateBitmapFromSource(
<[In]> ByVal pFactory As IntPtr,
<[In]> ByVal pIBitmapSource As IntPtr,
<[In]> ByVal cacheOption As WICBitmapCreateCacheOption,
<[In]> ByRef ppIBitmap As IntPtr) As Integer
End Function
Function LoadDDSX(ByVal DDSPath As String) As Bitmap '<- Hier soll die Zuständige Picturebox Zugewiesen werden
'For i = 0 To ListView1.Items.Count - 1
'Dim lines1() As String = System.IO.File.ReadAllLines(ModCheck & i & "\" & i & ".txt")
'Dim oldtext As String = lines1(0)
'Dim newtext As String = oldtext.Replace("/", "\")
' LoadDDS(i & "\" & newtext, .Image) 'Hier soll die Picturebox genannt werden) .Image =
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
End Class

mrMo schrieb:

Friert die Form den jetzt nicht mehr ein?

Einfrieren tut sie nun nicht mehr, aber sie lädt auch nicht alles

Ohne Thread:

Mit Thread:

RodFromGermany schrieb:

Belasse es dabei, denn die Manipulation von GUI-Controlös funktioniert nur im GUI-Thread.

Das hat mich jetzt mal auf eine Idee gebracht.

mrMo · 26. Juli 2021, 19:01

Ohje das ist aber arg viel code um nen paar Bildchen zu laden… keine Ahnung was das alles macht, sieht arg kompliziert aus. Aber egal…

Ich meinte den Code, wo das Bild in der Form geladen/verarbeitet/angezeigt wird.

xX-Nick-Xx · 26. Juli 2021, 19:04

RodFromGermany schrieb:

Belasse es dabei, denn die Manipulation von GUI-Controlös funktioniert nur im GUI-Thread.

ich habe mal die Vorarbeiten jetzt in einem Thread gelassen, und die Controls so laden lassen was auch sehr gut Funktioniert.
Nur noch den Fehler finden warum er nur 1x lädt.
EDIT: Fehler gefunden xD Hatte in der For Each statt "- 1" ein "= 1"

mrMo schrieb:

Ohje das ist aber arg viel code um nen paar Bildchen zu laden… keine Ahnung was das alles macht, sieht arg kompliziert aus. Aber egal…

ja, ist auch sehr viel Code (Diese Funktion ist dafür da um DDS Bilder zu laden was so leider nicht geht.)

Da wo er das Bild lädt ist doch oben?

EDIT: Funktioniert nun auch etwas Flüssiger:

mrMo · 26. Juli 2021, 19:07

xX-Nick-Xx schrieb:

Da wo er das Bild lädt ist doch oben?

Ja die Stelle meine ich. Da fehlt der Methoden Kopf und man sieht nicht wo Filename herkommt und auch nicht was ModCheck macht. Das ganze sieht nach Schleife aus, die sieht man auch nicht.

xX-Nick-Xx · 26. Juli 2021, 19:13

mrMo schrieb:

Ja die Stelle meine ich.

Achso, das habe ich raus gelassen da der Code noch viel Komplizierter und länger ist als die Klasse an sich.
Oben wird nur das Icon Extrahiert / die Beschreibung, sowie die Button und die Metro Elemente von @Gather
Während des Extrahieren läuft es nun Ganz gut, nur während die Controls geladen werden hängt es kurz.
Nur Bilder und Beschreibung laden sind jetzt schon 1200 Zeilen in VS

mrMo · 26. Juli 2021, 19:19

Ok, evtl. (sieht man ja nicht) wird hier in der Schleife ja immer die letzte Picturebox überschrieben und es bleibt immer nur die letzte übrig.

PBI = New PictureBox

Deklariere die mal innerhalb der Schleife (die es vielleicht gibt).

xX-Nick-Xx · 26. Juli 2021, 19:22

mrMo schrieb:

Deklariere die mal innerhalb der Schleife (die es vielleicht gibt).

Diese sind alle Außerhalb der Schleife Deklariert.

VB.NET-Quellcode

Dim PanelX As New Panel
Dim PanelY As New Panel
Dim RCTB As New RichTextBox
Dim btn As New Button
Dim btn2 As New Button
Dim PBI As New PictureBox
Dim Switch As New MetroSuite.MetroSwitch
Dim LoadBMP As Bitmap

~Sind jetzt in der Schleife

Ach ja und um auf deine Frage zurück zu kommen wofür ModCheck ist:

VB.NET-Quellcode

Public ModCheck As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\FarmingStudio21\MCLoad\"

mrMo · 26. Juli 2021, 19:23

xX-Nick-Xx schrieb:

Diese sind alle Außerhalb der Schleife Deklariert.

evtl. ist das ja das Problem.

xX-Nick-Xx · 26. Juli 2021, 19:25

mrMo schrieb:

evtl. ist das ja das Problem.

Also, das Bilder Laden Funktioniert jetzt ja (wie oben beschrieben)

Einige Bilder fehlen nur weil sie nicht in der Datei gefunden wurden, das ist aber aktuell noch Normal.

Und es wurde nur eine Datei geladen weil ich einen Fehler in der For Each hatte.

VB.NET-Quellcode

For i As Integer = 0 To ListBox1.Items.Count = 1

ein Peinlicher Fehler

mrMo · 26. Juli 2021, 19:28

Das ist das Problem wenn man Code weg lässt. Friert die Form denn jetzt noch ein?

@xX-Nick-Xx
For i As Integer = 0 To ListBox1.Items.Count = 1
-> Programmierst du etwa Option Strict Off? Zudem ist das, anders als du behauptest, keine For each Schleife.

xX-Nick-Xx · 26. Juli 2021, 19:34

mrMo schrieb:

Friert die Form denn jetzt noch ein?

Also die Ladezeit Betrug früher 30sek
jetzt Beträgt sie 9sek und 40ms
in den 9sek hängt die Form nur während die Controls erstellt werden.

Hier mal ein Video wo ich ein GIF Verwendet habe um zu Demonstrieren wann sie hängt.

~Nein Open Strict ist an. (zumindest jetzt wieder, VS Speichert das seit dem letzten Update nicht mehr)Programmierst du etwa Option Strict Off?

RodFromGermany · 26. Juli 2021, 19:38

xX-Nick-Xx schrieb:

in den 9sek hängt die Form nur während die Controls erstellt werden.

Du kannst doch die GUI am Updaten hindern, während die Controls erstellt werden.
Gugst Du .SuspendLayout() und .ResumeLayout(...).

xX-Nick-Xx · 26. Juli 2021, 19:43

RodFromGermany schrieb:

Gugst Du .SuspendLayout() und .ResumeLayout(...).

Ah, Praktisch.
Aber das .GIF (jetzt als Beispiel) soll halt weiter Funktionieren. was durch die Controls ja nicht geht.
Durch dein Vorschlag hängt es ja weiterhin

mrMo · 26. Juli 2021, 19:52

Man könnte mittels Lazy Loading Pattern immer nur die Bilder/Controls/Datensätze laden, die angezeigt werden. Müsstest also nicht mehr alle laden, sondern z.b. nur die Ersten 8. Beim Scrollen werden diejenigen die noch Fehlen dann immer nachgeladen.

xX-Nick-Xx · 26. Juli 2021, 19:53

Klingt Interessant, Google ich gleich mal.

Bild in Picturebox laden als Thread

Bild in Picturebox laden als Thread

VB.NET-Quellcode

VB.NET-Quellcode

mrMo schrieb:

xX-Nick-Xx schrieb:

mrMo schrieb:

VB.NET-Quellcode

mrMo schrieb:

RodFromGermany schrieb:

RodFromGermany schrieb:

mrMo schrieb:

xX-Nick-Xx schrieb:

mrMo schrieb:

mrMo schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

xX-Nick-Xx schrieb:

mrMo schrieb:

VB.NET-Quellcode

mrMo schrieb:

xX-Nick-Xx schrieb:

RodFromGermany schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben