.DDS Datei Laden (DevIL)

xX-Nick-Xx · 28. Januar 2021, 11:38

Moin zusammen.

Ich habe ein Problem, ich möchte ein .DDS Bild in einer Picturebox Laden, aber die .dll will nicht so recht.

Fehlermeldung:

System.IO.FileNotFoundException: "Die Datei oder Assembly "DevIL.dll" oder eine Abhängigkeit davon wurde nicht gefunden. Das angegebene Modul wurde nicht gefunden."

Als Verweis hinzugefügt: Ja

Im Internet habe ich nichts gefunden, nur das diese .DLL nicht mehr Unterstützt wird.
Gibt es noch eine andere Möglichkeit ein .dds Bild in eine PB zu Laden? bzw. Anzuzeigen.

Danke im Voraus.

RodFromGermany · 28. Januar 2021, 11:48

xX-Nick-Xx schrieb:

"Die Datei oder Assembly "DevIL.dll" oder eine Abhängigkeit davon wurde nicht gefunden. Das angegebene Modul wurde nicht gefunden."

Ich denke mal, dass da Satelliten-DLLs einer entsprechenden Installation fehlen.
Zieh mal die DLL auf den Dependency Walker: dependencywalker.com/
Der sagt dann, was fehlt.

xX-Nick-Xx · 28. Januar 2021, 11:52

Error: At least one required implicit or forwarded dependency was not found.
Warning: At least one delay-load dependency module was not found.
Warning: At least one module has an unresolved import due to a missing export function in a delay-load dependent module.

Und

Hier sagt er nicht gefunden für folgende Dateien

Spoiler anzeigen

RodFromGermany · 28. Januar 2021, 11:57

xX-Nick-Xx schrieb:

nicht gefunden für folgende Dateien

Dann musst Du zunächst das entsprechende Paket installieren.

xX-Nick-Xx · 28. Januar 2021, 12:08

Ich denke mal die hier Fehlen?

RodFromGermany · 28. Januar 2021, 13:46

@xX-Nick-Xx Oben steht Devil.dll, hier steht Devil.Net.dll.
Ich denke mal, diese beiden brauchst Du als Minimum.

-Franky- · 28. Januar 2021, 14:20

Hi

DDS Bilder kannst Du mit der "Windows Imaging Componet" - API (kurz WIC) laden und auch erzeugen. Schaust Du hier: docs.microsoft.com/en-us/windo…out-windows-imaging-codec WIC stellt dafür Interfaces und Funktionen bereit.
Interfaces : docs.microsoft.com/en-us/windows/win32/wic/-wic-codec-ifaces
Funktionen: https://docs.microsoft.com/en-us/windows/win32/wic/-wic-codec-functions

xX-Nick-Xx · 28. Januar 2021, 15:52

Schau ich mir später mal an.

-Franky- · 29. Januar 2021, 16:12

Hi

Ich hab mal auf die schnelle meinen VB6 Code auf .NET umgeschrieben. Ich weis selbst wie schwierig der Einstieg in WIC ist wenn man noch nie damit zu tun hatte. Ich benutze für dieses Beispiel nur die entsprechenden WIC-Proxy-Funktionen. Mit diesem Bsp lassen sich alle von WIC unterstützte Bildformate laden.

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Option Explicit On
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
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
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strPicture As String = "Pfad\File.dds zu Deiner DDS-Bilddatei"
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
' 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
Dim bmp As Bitmap = 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
PictureBox1.Image = bmp
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
End Sub
End Class

Spoiler eingefügt ~VaporiZed

xX-Nick-Xx · 1. Februar 2021, 21:35

Vielen Dank, hat geklappt.

-Franky- · 2. Februar 2021, 08:28

Moin moin

Du könntest die APIs CreateFormatConverter und InitializeFormatConverter auch durch folgende API ersetzen:

VB.NET-Quellcode

<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

Die GUID ist die gleiche wie beim InitializeFormatConverter. pISrc ist pIWICBitmapFrame und ppIDst ist pIWICFormatConverter wobei ich diese dann in pIWICBitmapFrame32bppBGRA umbenennen würde. Das spart im Code eine API und zwei Enums ein. CreateFormatConverter und InitializeFormatConverter braucht man eher wenn man zB von einer höheren BPP (zB. 32bpp) auf eine kleinere BPP (zB. 8bpp) konvertieren möchte da man hier noch einen Dither- und Palette-Type angeben kann. Also eher was wenn man von einem 24bpp Bitmap ein 8bpp GIF erstellen möchte. Wenn es nur um das anzeigen eines Bildes geht, reicht auch ConvertBitmapSource.

.DDS Datei Laden (DevIL)

.DDS Datei Laden (DevIL)

xX-Nick-Xx schrieb:

xX-Nick-Xx schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben