animierte GIF-Bildfolge wiederholt sich nicht

tron25 · 30. August 2024, 00:39

ausgelagert aus Tutorial: Animated Gif erstellen ~VaporiZed

Hallo,
vielen Dank für den Code. Ich habe ihn an meine Software angepaßt. Alles funktioniert prima. Allerdings wiederholt sich die Animation nicht selbständig. Was kann ich da tun? Die Animationen aus der Beispieldatei "Gifanimator.zip" werden automatisch wiederholt.

-Franky- · 30. August 2024, 16:58

Hi
Auch wenn die animierte GIF, wie im Tutorial gezeigt wird, funktioniert, ist es so nicht korrekt. Im Tutorial werden einfach Bilder hintereinander in eine GIF geschrieben. Normalerweise gehören zu jedem Bild in der GIF und für die animierte GIF selber zusätzliche Informationen (Blocks/Extension/Descriptor) die diverse Sachen Beschreiben. zB. wie lange ein Bild angezeigt werden soll, wie oft die Animation wiedergegeben werden soll bzw ob eine Endloswiedergabe erfolgen soll, Position und Größe der einzelnen Bilder, wie die Bilder gezeichnet werden sollen (nächstes Bild komplett anzeigen oder auf das alte Bild drüber zeichnen usw) und weitere Informationen. Du kannst natürlich entsprechende Informationen mit in den Stream schreiben. Eventuell sind auch entsprechende Funktionen im Namespace System.Windows.Media dafür vorhanden (glaub da wird ja die "Windows Imaging Component" verwendet). Du könntest ja mal in diesem Namespace nach einem MetadataQueryWriter suchen. Ansonsten hätte ich nur ein VB6 Beispiel wie man mit der "Windows Imaging Component" ein animiertes GIF erzeugt. Hier findes Du eine Beschreibung wie eine animierte GIF aufgebaut ist: w3.org/Graphics/GIF/spec-gif89a.txt Ansonsten dürftest Du auch in der MS-Doku oder Internet etwas finden wie man eine animierte GIF mit der "Windows Imaging Component" bzw über den Namespace System.Windows.Media erstellt.

RodFromGermany · 30. August 2024, 17:17

@-Franky- Genau genommen gibt es mindestens 3 Sorten von GIF-Dateien, die mehr oder weniger Animierungs-Information enthalten.
Der komplementäre Aufwand muss dann beim Einbetten von GIFs betrieben werden.
@tron25 Im IrfanView wiehert das Pferd pausenlos.

-Franky- · 30. August 2024, 17:49

@RodFromGermany Es könnte durchaus sein, das mit Deinem Code Standard-Blocks geschrieben werden. Dazu müsste man sich die GIF im HexEditor ansehen. Es wäre auch denkbar das der Browser oder auch andere Programme hier einfach die Standardwerte nehmen falls keine in der GIF vorhanden sind. Ich kenne das halt nur über den MetadataQueryWriter bzw man schreibt selbst die Daten in den Stream. Wie hier auch zu sehen: pixcl.com/oldsite/WIC-and-Animated-GIF-Files.htm

Edit: Warum verwendest Du keinen PixelFormat-Konverter in Deinem Code? Was ich mein ist, WIC konvertiert das Quell-PixelFormat automatisch zum Ziel-PixelFormat GIF (4bppIndexed = 256Farben). Allerdings wird dabei eine Standard- oder Halftone256 Palette verwendet. TrueColor Bilder sehen dann als GIF nicht besonders schön aus. Wenn Du bessere Ergebnisse erzeugen möchtest, konvertierst Du das Quellbild vor dem hinzufügen zum GIF-Encoder mit einem PixelFormatConverter wobei Du den PaletteTypeOptimal verwendest. PaletteTypeErrorDiffusion ginge auch, ist aber Geschmackssache. Quellbilder im (P)ARGB Format ist wieder eine andere Geschichte da nur eine Farbe aus der GIF-Palette transparent sein kann (pro GIF-Bild in der animierten GIF).

@tron25 Es gibt immer noch den "Microsoft GIF Animator 1.0" zum Download. Den kannst Du verwenden um animierte GIFs zu erstellen oder auch um animierte GIFs zu bearbeiten. Schau doch damit mal Deine GIF an und prüfe dort welcher Wert für den Loop eingestellt ist.

RodFromGermany · 31. August 2024, 10:17

-Franky- schrieb:

mit Deinem Code

Das ist ja nun schon ein paar Tage her, ich wollte das einfach mal probieren und habe später die anderen Möglichkeiten kennen gelernt.
Da ich üblicherweise nichts mit animierten GIFs zu tun habe, habe ich da aufgehört.

tron25 · 1. September 2024, 01:35

Danke, erst einmal für eure Tipps und Infos.

Ich habe mir den Microsoft GIF Animator heruntergeladen und darin meine GIF geöffnet. Leider ist das Programm nicht ganz barrierefrei. Daher habe ich etwas gebraucht, bis ich die Datei öffnen konnte. Weil Ich stark sehbehindert bin, arbeite ich daher mit einem Screenreader. Bei dem Programm sind die Schalter für Öffnen und Speichern nicht mit der TAB-Taste erreichbar.

"Loop" war nicht angehakt. Ich habe es aktiviert und als Anzahl "Forever" ausgewählt. Nach dem Speichern rennt das Pferd auch ohne Ende.

Was die Qualität angeht, muß sie nicht sehr gut sein, da die Grafik nur zweifarbig ist und aus Punkten besteht.

Ich habe eine Software geschrieben, mit der herkömmliche Grafiken in Braille für Blinde umgewandelt werden. Diese können dann entweder mit speziellen Braillezeilen bzw. Brailledisplays abgetastet werden oder über einen Brailledrucker in Blindenschrift ausgedruckt werden. Ich habe eine Möglichkeit gefunden, bewegte Bilder zum Tasten zu erstellen. Nun wollte ich ein solches Bild zum Versenden per beispielsweise Mail in eine GIF exportieren. Damit kann ich weitere Animationen an sehende Kollegen schicken, die mein Programm nicht installiert haben.

Was die zusätzlichen Informationen im Stream angeht, habe ich folgende Funktion gefunden:

VB.NET-Quellcode

System.Windows.Media.Animation.RepeatBehavior

Leider stehe ich da ein wenig auf dem Schlauch, wie ich das dem Stream hinzufügen kann.

Ich habe mir auch die Beschreibung angeschaut, auf die -Franky- verwiesen hat. Ich werde mal im Netz nach "Windows Media" und "Animationen" suchen.

Ihr findet unten drei weitere Grafiken und ihr dürft mal raten, was das sein soll.

DTF · 1. September 2024, 06:11

tron25 schrieb:

was das sein soll.

Sind verbrennungsprozesse von Motoren dargestellt. Da auf Bild 2 und 3 keine Zündkerze zu erkennen ist, glaube ich du zeigst den Unterschied zwischen Benzin und Dieselmotor, sollte dem so sein, könntest du auch noch einen Wankelmotor hinzufügen.

-Franky- · 1. September 2024, 09:54

tron25 schrieb:

Ich habe mir den Microsoft GIF Animator heruntergeladen und darin meine GIF geöffnet. Leider ist das Programm nicht ganz barrierefrei.

Das Programm ist schon sehr alt und da hat man noch nicht auf Barrierefreiheit geachtet. Dafür läuft das Programm heute noch. System.Windows.Media.Animation.RepeatBehavior dürfte nicht das richtige sein. Was einem WIC MetadataQueryWriter am nächsten kommt, könnte im Namespace System.Windows.Media.Imaging der InPlaceBitmapMetadataWriter, BitmapMetadata oder BitmapMetadataBlob sein. Wenn ich das richtig im Hinterkopf habe, ist der Namespace System.Windows.Media.Imaging Teil von WPF (nutzt ebenfalls WIC). Da könnten Dir evtl auch WPF Experten was zu sagen können wie das mit dem schreiben entsprechender Metadaten für animierte GIFs funktioniert bzw das man auch nach WPF Beispielen zum Erstellen von animierten GIFs ausschau halten müsste.

Alternativ wäre es auch möglich WIC direkt zu verwenden. WIC stellt neben den ganzen COM-Interfaces zum Teil auch entsprechende Proxy-APIs bereit. Ist dann allerdings etwas aufwendiger zu programmieren. Grob überschlagen, ca 15 - 20 APIs + ein paar Const, Enums und Structs. Eventuell gibt es auch ein passendes Nuget-Paket zur "Windows Imaging Component".

tron25 · 1. September 2024, 14:17

Vielen Dank für die Hinweise, aber ganz ehrlich gesagt, klingt das sehr kompliziert. Da muß ich mich erst einmal ordentlich hineinlesen.

Ja, es sind Verbrennungsprozesse. Den Wankelmotor werde ich auch noch erstellen. Allerdings muß ich ihn erst selbst so verstehen, dass ich mir im Geist ein Bild davon machen kann. Ich habe mir Erklärungen angehört und in der Theorie ist mir das schon klar, aber das Visuelle bereitet mir noch ein paar Schwierigkeiten.

Ich denke aber, das dieses Thema nicht in dieses Forum paßt.

tron25 · 2. September 2024, 11:27

Eigentlich wollte ich das nicht, weil ich gerne selbst meinen Code erarbeite, aber ich habe doch mal ChatGPT befragt.
Zum Thema "Animiertes PNG" sollte ich u.a. die APNG-Bibliothek meinem Projekt hinzufügen. Diese konnte ich aber nirgends finden, weder über Google, noch über den Verweismanager in VS.

Zu "Animierte GIF" habe ich folgenden Code bekommen:

----------

Um in Visual Basic .NET Bilder zu einer animierten GIF zu exportieren, kannst du die `System.Drawing`-Bibliothek verwenden. Hier ist ein grundlegendes Beispiel, wie du dies erreichen kannst:

1. **Bilder laden**: Lade die Bilder, die du animieren möchtest.
2. **GIF erstellen**: Verwende die `Image`-Klasse und `FrameDimension`-Klasse, um die Bilder zu einer GIF-Datei zu kombinieren.

Hier ist ein Beispielcode:

VB.NET-Quellcode

Imports System.Drawing
Imports System.Drawing.Imaging
Module Module1
Sub Main()
' Bilder laden
Dim images As New List(Of Image) From {
Image.FromFile("bild1.png"),
Image.FromFile("bild2.png"),
Image.FromFile("bild3.png")
}
' Erste Bild als Basis für die GIF-Datei verwenden
Dim gif As Image = images(0)
Dim encoder As ImageCodecInfo = GetEncoder(ImageFormat.Gif)
Dim encoderParams As New EncoderParameters(1)
encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CLng(EncoderValue.MultiFrame))
' GIF-Datei erstellen
gif.Save("animiert.gif", encoder, encoderParams)
' Weitere Bilder hinzufügen
encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CLng(EncoderValue.FrameDimensionTime))
For i As Integer = 1 To images.Count - 1
gif.SaveAdd(images(i), encoderParams)
Next
' GIF-Datei abschließen
encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CLng(EncoderValue.Flush))
gif.SaveAdd(encoderParams)
End Sub
Private Function GetEncoder(format As ImageFormat) As ImageCodecInfo
Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()
For Each codec As ImageCodecInfo In codecs
If codec.FormatID = format.Guid Then
Return codec
End If
Next
Return Nothing
End Function
End Module

----------

Leider bekomme ich in der Zeile

encoderParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CLng(EncoderValue.MultiFrame))

den folgenden Fehler:

"SaveFlag" ist kein Member von "ImageCodecInfo".

Leider finde ich keine andere Eigenschaft von "encoder", die passen könnte.

Hat jemand von euch eine Idee, woran das liegt?

CodeTags gesetzt ~VaporiZed

petaod · 2. September 2024, 11:38

tron25 schrieb:

Zum Thema "Animiertes PNG" sollte ich u.a. die APNG-Bibliothek meinem Projekt hinzufügen. Diese konnte ich aber nirgends finden, weder über Google, noch über den Verweismanager in VS.

Wenn du bei Google nach APNG nuget suchst, bekommst du eine ganze Auswahl an Bibliotheken, die du testen kannst.

VaporiZed · 2. September 2024, 12:02

Da Du Encoder als Variablenname verwendest, kann der Compiler nicht mehr erkennen, was Du meinst. Syntaktisch richtig wäre also nicht Encoder.SaveFlag, sondern System.Drawing.Imaging.Encoder.SaveFlag

-Franky- · 2. September 2024, 13:44

@tron25 APNG (animierte PNG) ist aber was anderes als eine animierte GIF. Da du sowieso nur 2 Farben (schwarz und weiß) verwendest, macht APNG wenig Sinn. APNG macht Sinn wenn Du Bilder im TrueColor-Format bzw mit mehr als 256 Farben animieren möchtest. APNG wird auch nicht von einigen Programmen oder Browser unterstützt. Zu Deinem Code bzw. zu dem was ChatGPT sich da zusammengesponnen hat: GDI+ bzw. der Namespace System.Drawing kann keine animierte GIFs erstellen. Nur lesen. EncoderValue.MultiFrame ist nur zum erstellen von Multiframe-TIFFs gedacht.

tron25 · 2. September 2024, 15:40

So, nun habe ich folgenden Code:

VB.NET-Quellcode

Try
' Bilder laden
Dim images As New List(Of system.Drawing.Image)
For Each Bild As String In Directory.GetFiles(Verzeichnis)
images.Add(System.Drawing.Image.FromFile(Bild))
Next
' Erste Bild als Basis für die GIF-Datei verwenden
Dim gif As System.Drawing.Image = images(0)
Dim encoder As ImageCodecInfo = GetEncoder(System.Drawing.Imaging.ImageFormat.Gif)
Dim encoderParams As New EncoderParameters(1)
encoderParams.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, CLng(EncoderValue.MultiFrame))
' GIF-Datei erstellen
gif.Save(DateiSpeichernDialog.FileName, encoder, encoderParams)
' Weitere Bilder hinzufügen
encoderParams.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, CLng(EncoderValue.FrameDimensionTime))
For i As Integer = 1 To images.Count - 1
gif.SaveAdd(images(i), encoderParams)
Next
' GIF-Datei abschließen
encoderParams.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, CLng(EncoderValue.Flush))
gif.SaveAdd(encoderParams)
Catch Fehler As Exception
InfoFormular.Text = My.Resources.Fehler
InfoFormular.InfoLabel.Text = My.Resources.GIF_zu_gross
InfoFormular.ShowDialog()
End Try

Bei mir läuft die Animation nur einmal durch.
Wenn die Bilder sehr groß sind, bekomme ich den Fehler, daß der Speicher zu klein sei. Diesen Fehler habe ich mit einem TRY-CATCH abgefangen.

-Franky- · 2. September 2024, 17:27

@tron25 Wenn Du Dir Deine GIF mal im HexEditor anschaust, dann wirst Du feststellen das am Anfang "GIF87a" oder "GIF89a" steht. Kurz danach sollte "NETSCAPE2.0" stehen und dahinter kommt der Block, der eine GIF zu einer animierten GIF macht. Wenn nicht, ist das keine konforme bzw. valide animierte GIF. Ich habe mal auf die schnelle, daher sehr wüst und verbesserbar, fix was mit WIC zusammen gebastelt bzw aus meinem VB6 Programm dazu übersetzt. Ich nutze hier GDI+ Funktionen, die nicht in .NET vorhanden sind, um ein Bild in ein 8bppIndexed-Format zu konvertieren. Das ersparrt Dir noch mehr WIC APIs zum konvertieren. Außerdem habe ich mich auf die schnelle für die WIC-Proxy-APIs entschieden da diese nur mit den Pointer auf die Interfaces arbeiten und so nicht extra Objekte erzeugt und entsorgt werden müssen. Mit den COM-Interfaces wäre es zwar übersichtlicher, das Ergebnis wäre aber das gleiche. Hoffe, wegen der schnelle, das der LoopCount so korrekt ist. Hab das nicht weiter ausprobiert da LoopCount = 0 eine Endloswiedergabe macht.

Als erstes benötigst Du ein Modul "BitmapExtensions"

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Reflection
Imports System.Drawing.Imaging
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Module BitmapExtensions
#Region "APIs"
<DllImport("gdiplus.dll", EntryPoint:="GdipInitializePalette")>
Private Function GdipInitializePalette(<[In]> pPalette As Integer(),
<[In]> ePaletteType As PaletteType,
<[In]> optimalColors As Integer,
<[In], MarshalAs(UnmanagedType.Bool)> useTransparentColor As Boolean,
<[In]> pBitmap As IntPtr) As Integer
End Function
<DllImport("gdiplus.dll", EntryPoint:="GdipBitmapConvertFormat")>
Private Function GdipBitmapConvertFormat(<[In]> pInBitmap As IntPtr,
<[In]> ePixelFormat As PixelFormat,
<[In]> eDitherType As DitherType,
<[In]> ePaletteType As PaletteType,
<[In]> pPalette As Integer(),
<[In]> alphaThresholdPercent As Single) As Integer
End Function
#End Region
#Region "Const"
Private Const Gdip_OK As Integer = &H0
#End Region
#Region "Enums"
Private Enum DitherType As Integer
DitherTypeNone = 0
DitherTypeSolid = 1
DitherTypeOrdered4x4 = 2
DitherTypeOrdered8x8 = 3
DitherTypeOrdered16x16 = 4
DitherTypeSpiral4x4 = 5
DitherTypeSpiral8x8 = 6
DitherTypeDualSpiral4x4 = 7
DitherTypeDualSpiral8x8 = 8
DitherTypeErrorDiffusion = 9
End Enum
Private Enum PaletteType As Integer
PaletteTypeCustom = 0
PaletteTypeOptimal = 1
PaletteTypeFixedBW = 2
PaletteTypeFixedHalftone8 = 3
PaletteTypeFixedHalftone27 = 4
PaletteTypeFixedHalftone64 = 5
PaletteTypeFixedHalftone125 = 5
PaletteTypeFixedHalftone216 = 7
PaletteTypeFixedHalftone252 = 8
PaletteTypeFixedHalftone256 = 9
End Enum
#End Region
#Region "Functions"
Private Function CreateGdipPalette(flag As PaletteFlags,
entries As Integer) As Integer()
Dim Ret As Integer() = New Integer(entries + 2 - 1) {}
Ret(0) = flag
Ret(1) = entries
Return Ret
End Function
#End Region
#Region "Extensions"
<Extension>
Private Function NativeHandle(bitmap As Bitmap) As IntPtr
Return bitmap.GetPrivateField(Of IntPtr)("nativeImage")
End Function
<Extension>
Private Function GetPrivateField(Of TResult)(Obj As Object, FieldName As String) As TResult
Dim Ret As TResult = Nothing
If Obj IsNot Nothing Then
Dim FieldInfo As FieldInfo = Obj.GetType.GetField(FieldName,
BindingFlags.GetField Or
BindingFlags.Instance Or
BindingFlags.NonPublic)
If FieldInfo IsNot Nothing Then
Ret = DirectCast(FieldInfo.GetValue(Obj), TResult)
End If
End If
Return Ret
End Function
<Extension>
Public Sub ConvertTo8bppIndexed(bitmap As Bitmap)
If bitmap IsNot Nothing Then
Dim pBitmap As IntPtr = bitmap.NativeHandle
Dim entries As Integer = 256
Dim paletteType As PaletteType = PaletteType.PaletteTypeOptimal
Dim ditherType As DitherType = DitherType.DitherTypeErrorDiffusion
Dim palette As Integer() = CreateGdipPalette(PaletteFlags.GrayScale, entries)
If GdipInitializePalette(palette, paletteType, entries, False, pBitmap) = Gdip_OK Then
If GdipBitmapConvertFormat(pBitmap, PixelFormat.Format8bppIndexed,
ditherType, paletteType, palette, 50) = Gdip_OK Then
End If
End If
End If
End Sub
#End Region
End Module

Dann benötigst Du eine Klasse "AnimGifCreator"

Spoiler anzeigen

Quellcode

Imports System.IO
Imports System.Text
Imports System.Runtime.InteropServices
Public Class AnimGifCreator
Implements IDisposable
#Region "APIs"
<DllImport("Shlwapi.dll", EntryPoint:="SHCreateStreamOnFileEx")>
<PreserveSig> Private Shared Function CreateStreamOnFile(<[In], MarshalAs(UnmanagedType.LPWStr)> pszFile As String,
<[In]> grfMode As STGM,
<[In]> dwAttributes As Integer,
<[In], MarshalAs(UnmanagedType.Bool)> fCreate As Boolean,
<[In]> pstmTemplate As IntPtr,
<Out> ByRef ppstm As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="WICCreateImagingFactory_Proxy")>
<PreserveSig> Private Shared Function CreateWicImagingFactory(<[In]> SDKVersion As UInteger,
<Out> ByRef ppIImagingFactory As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICImagingFactory_CreateBitmapFromHBITMAP_Proxy")>
<PreserveSig> Private Shared Function CreateWicBitmapFromHBITMAP(<[In]> pIImagingFactory As IntPtr,
<[In]> hBitmap As IntPtr,
<[In]> hPalette As IntPtr,
<[In]> options As WICBitmapAlphaChannelOption,
<Out> ByRef ppIBitmap As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICImagingFactory_CreateEncoder_Proxy")>
<PreserveSig> Private Shared Function CreateWicEncoder(<[In]> pIImagingFactory As IntPtr,
<[In]> ByRef guidContainerFormat As Guid,
<[In]> pguidVendor As IntPtr,
<Out> ByRef ppIEncoder As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapEncoder_Initialize_Proxy")>
<PreserveSig> Private Shared Function InitializeWicEncoder(<[In]> pIEncoder As IntPtr,
<[In]> pIStream As IntPtr,
<[In]> cacheOption As WICBitmapEncoderCacheOption) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapEncoder_CreateNewFrame_Proxy")>
<PreserveSig> Private Shared Function CreateNewWicFrameEncode(<[In]> pIEncoder As IntPtr,
<Out> ByRef ppIFrameEncode As IntPtr,
<Out> ByRef ppIEncoderOptions As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapFrameEncode_Initialize_Proxy")>
<PreserveSig> Private Shared Function InitializeWicFrameEncode(<[In]> pIFrameEncode As IntPtr,
<[In]> pIEncoderOptions As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapFrameEncode_WriteSource_Proxy")>
<PreserveSig> Private Shared Function WriteWicBitmapToFrameEncode(<[In]> pIFrameEncode As IntPtr,
<[In]> pIBitmapSource As IntPtr,
<[In]> prc As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapFrameEncode_SetSize_Proxy")>
<PreserveSig> Private Shared Function SetWicBitmapFrameEncodeSize(<[In]> pIFrameEncode As IntPtr,
<[In]> uiWidth As Integer,
<[In]> uiHeight As Integer) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapFrameEncode_Commit_Proxy")>
<PreserveSig> Private Shared Function CommitWicFrameEncode(<[In]> pIFrameEncode As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapEncoder_Commit_Proxy")>
<PreserveSig> Private Shared Function CommitWicEncoder(<[In]> pIEncoder As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapEncoder_GetMetadataQueryWriter_Proxy")>
<PreserveSig> Private Shared Function GetWicMetadataQueryWriter(<[In]> pIEncoder As IntPtr,
<Out> ByRef ppIMetadataQueryWriter As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICBitmapFrameEncode_GetMetadataQueryWriter_Proxy")>
<PreserveSig> Private Shared Function GetWicBitmapFrameEncodeMetadataQueryWriter(<[In]> pIFrameEncode As IntPtr,
<Out> ByRef ppIMetadataQueryWriter As IntPtr) As Integer
End Function
<DllImport("Windowscodecs.dll", EntryPoint:="IWICMetadataQueryWriter_SetMetadataByName_Proxy")>
<PreserveSig> Private Shared Function SetWicMetadataByName(<[In]> pIMetadataQueryWriter As IntPtr,
<[In], MarshalAs(UnmanagedType.LPWStr)> wzName As String,
<[In]> ByRef pvarValue As PROPVARIANT) As Integer
End Function
#End Region
#Region "Const"
Private Const S_OK As Integer = &H0
Private Const WINCODEC_SDK_VERSION2 As UInteger = &H237
Private Const GUID_ContainerFormatGif As String = "1f8a5601-7d4d-4cbd-9c82-1bc8d4eeb9a5"
#End Region
#Region "Enums"
Private Enum STGM As Integer
STGM_FAILIFTHERE = &H0
STGM_DIRECT = &H0
STGM_READ = &H0
STGM_WRITE = &H1
STGM_READWRITE = &H2
STGM_SHARE_EXCLUSIVE = &H10
STGM_SHARE_DENY_WRITE = &H20
STGM_SHARE_DENY_READ = &H30
STGM_SHARE_DENY_NONE = &H40
STGM_CREATE = &H1000
STGM_TRANSACTED = &H10000
STGM_CONVERT = &H20000
STGM_PRIORITY = &H40000
STGM_NOSCRATCH = &H100000
STGM_NOSNAPSHOT = &H200000
STGM_DIRECT_SWMR = &H400000
STGM_SIMPLE = &H8000000
STGM_DELETEONRELEASE = &H4000000
End Enum
Private Enum WICBitmapAlphaChannelOption As Integer
WICBitmapUseAlpha = &H0
WICBitmapUsePremultipliedAlpha = &H1
WICBitmapIgnoreAlpha = &H2
End Enum
Private Enum WICBitmapEncoderCacheOption As Integer
WICBitmapEncoderCacheInMemory = &H0
WICBitmapEncoderCacheTempFile = &H1
WICBitmapEncoderNoCache = &H2
End Enum
Private Enum VARENUM As UShort
VT_EMPTY = 0
VT_NULL = 1
VT_I2 = 2
VT_I4 = 3
VT_R4 = 4
VT_R8 = 5
VT_CY = 6
VT_DATE = 7
VT_BSTR = 8
VT_DISPATCH = 9
VT_ERROR = 10
VT_BOOL = 11
VT_VARIANT = 12
VT_UNKNOWN = 13
VT_DECIMAL = 14
VT_I1 = 16
VT_UI1 = 17
VT_UI2 = 18
VT_UI4 = 19
VT_I8 = 20
VT_UI8 = 21
VT_INT = 22
VT_UINT = 23
VT_VOID = 24
VT_HRESULT = 25
VT_PTR = 26
VT_SAFEARRAY = 27
VT_CARRAY = 28
VT_USERDEFINED = 29
VT_LPSTR = 30
VT_LPWSTR = 31
VT_RECORD = 36
VT_FILETIME = 64
VT_BLOB = 65
VT_STREAM = 66
VT_STORAGE = 67
VT_STREAMED_OBJECT = 68
VT_STORED_OBJECT = 69
VT_BLOB_OBJECT = 70
VT_CF = 71
VT_CLSID = 72
VT_TYPEMASK = 4095
VT_ILLEGALMASKED = 4095
VT_VECTOR = 4096
VT_ARRAY = 8192
VT_BYREF = 16384
VT_RESERVED = 32768
VT_ILLEGAL = 65535
End Enum
#End Region
#Region "Class"
Public Sub New()
If CreateWicImagingFactory(WINCODEC_SDK_VERSION2,
m_pIWicImagingFactory) <> S_OK Then
' Error
End If
End Sub
#End Region
#Region "Structs"
Private Structure CArray
Dim cElems As Integer
Dim pElems As IntPtr
End Structure
<StructLayout(LayoutKind.Explicit, Size:=16)>
Private Structure PROPVARIANT
<FieldOffset(0)> Dim vt As VARENUM
<FieldOffset(2)> Dim wReserved1 As UShort
<FieldOffset(4)> Dim wReserved2 As UShort
<FieldOffset(6)> Dim wReserved3 As UShort
<FieldOffset(8)> Dim ui2 As UShort
<FieldOffset(8)> Dim array As CArray
End Structure
#End Region
#Region "Variable"
Private m_DisposedValue As Boolean
Private ReadOnly m_pIWicImagingFactory As IntPtr
Private ReadOnly m_Bitmaps As New List(Of Bitmap)
#End Region
#Region "Functions"
Public Function CreateAnimGif(animGifFile As String) As Boolean
Dim Ret As Boolean
If Not String.IsNullOrEmpty(animGifFile) AndAlso m_pIWicImagingFactory <> IntPtr.Zero AndAlso m_Bitmaps.Count > 0 Then
Dim pIStream As IntPtr
Dim pIWicEncoder As IntPtr = CreateGifEncoder(animGifFile, pIStream)
If pIStream <> IntPtr.Zero Then
If pIWicEncoder <> IntPtr.Zero Then
' optional
' Signatur = GIF87a oder GIF89a
' Standard wird GIF89a geschrieben, auch ohne diese Funktion.
WriteGifSignature(pIWicEncoder)
' erforderlich!!!
' Metadaten für den Application Extension Block und LoopCount schreiben
' Loop = 0 (endlos Loop), max = 65535
WriteGifAppExtAndLoopCount(pIWicEncoder, 0)
For Each bitmap In m_Bitmaps
Dim pIPropertyBag2 As IntPtr
Dim pIWicFrameEncode As IntPtr
If CreateNewWicFrameEncode(pIWicEncoder,
pIWicFrameEncode,
pIPropertyBag2) = S_OK Then
If InitializeWicFrameEncode(pIWicFrameEncode,
pIPropertyBag2) = S_OK Then
If SetWicBitmapFrameEncodeSize(pIWicFrameEncode,
bitmap.Width,
bitmap.Height) = S_OK Then
' FrameDelay, 0 = Standard 100ms, min = 1 (10ms), max = 65535 (655350ms)
WriteGifFrameDelay(pIWicFrameEncode, 0)
Dim pIBitmap As IntPtr
If CreateWicBitmapFromHBITMAP(m_pIWicImagingFactory,
bitmap.GetHbitmap,
Nothing,
WICBitmapAlphaChannelOption.WICBitmapIgnoreAlpha,
pIBitmap) = S_OK Then
If WriteWicBitmapToFrameEncode(pIWicFrameEncode, pIBitmap, Nothing) = S_OK Then
Ret = True
Else
Ret = False
End If
Marshal.Release(pIBitmap)
End If
End If
CommitWicFrameEncode(pIWicFrameEncode)
Marshal.Release(pIWicFrameEncode)
Marshal.Release(pIPropertyBag2)
End If
End If
If Ret = False Then Exit For
Next
CommitWicEncoder(pIWicEncoder)
Marshal.Release(pIWicEncoder)
End If
Marshal.Release(pIStream)
End If
End If
If Not Ret AndAlso File.Exists(animGifFile) Then
File.Delete(animGifFile)
End If
Return Ret
End Function
Private Function CreateGifEncoder(animGifFile As String, ByRef pIStream As IntPtr) As IntPtr
Dim Ret As IntPtr
If CreateStreamOnFile(animGifFile,
STGM.STGM_CREATE Or STGM.STGM_WRITE,
0, False, Nothing, pIStream) = S_OK Then
Dim pIWicEncoder As IntPtr
If CreateWicEncoder(m_pIWicImagingFactory,
New Guid(GUID_ContainerFormatGif),
Nothing, pIWicEncoder) = S_OK Then
If InitializeWicEncoder(pIWicEncoder, pIStream,
WICBitmapEncoderCacheOption.WICBitmapEncoderNoCache) = S_OK Then
Ret = pIWicEncoder
End If
End If
End If
Return Ret
End Function
Private Function WriteGifSignature(pIWicEncoder As IntPtr) As Boolean
Dim Ret As Boolean
If pIWicEncoder <> IntPtr.Zero Then
Dim pIWicMetadataQueryWriter As IntPtr
If GetWicMetadataQueryWriter(pIWicEncoder, pIWicMetadataQueryWriter) = S_OK Then
Dim metaName As String = "/logscrdesc/Signature"
Dim metaBytes() = Encoding.ASCII.GetBytes("GIF87a")
Dim propVariant As New PROPVARIANT
Dim pinnedArray As GCHandle = GCHandle.Alloc(metaBytes, GCHandleType.Pinned)
With propVariant
.vt = VARENUM.VT_UI1 Or VARENUM.VT_VECTOR
.array.cElems = metaBytes.Length
.array.pElems = pinnedArray.AddrOfPinnedObject
End With
If SetWicMetadataByName(pIWicMetadataQueryWriter, metaName, propVariant) = S_OK Then
Ret = True
End If
pinnedArray.Free()
Marshal.Release(pIWicMetadataQueryWriter)
End If
End If
Return Ret
End Function
Private Function WriteGifAppExtAndLoopCount(pIWicEncoder As IntPtr,
Optional LoopCount As UShort = 0) As Boolean
Dim Ret As Boolean
If pIWicEncoder <> IntPtr.Zero Then
Dim pIWicMetadataQueryWriter As IntPtr
If GetWicMetadataQueryWriter(pIWicEncoder, pIWicMetadataQueryWriter) = S_OK Then
Dim metaName As String = "/appext/Application"
Dim metaBytes() = Encoding.ASCII.GetBytes("NETSCAPE2.0")
Dim propVariant As New PROPVARIANT
Dim pinnedArray As GCHandle = GCHandle.Alloc(metaBytes, GCHandleType.Pinned)
With propVariant
.vt = VARENUM.VT_UI1 Or VARENUM.VT_VECTOR
.array.cElems = metaBytes.Length
.array.pElems = pinnedArray.AddrOfPinnedObject
End With
If SetWicMetadataByName(pIWicMetadataQueryWriter, metaName, propVariant) = S_OK Then
Ret = True
End If
pinnedArray.Free()
If LoopCount < 0 Then LoopCount = 0
If LoopCount > 65535 Then LoopCount = 65535
Dim LoopBytes() = BitConverter.GetBytes(LoopCount)
metaName = "/appext/Data"
metaBytes = New Byte(4) {}
metaBytes(0) = 3
metaBytes(1) = 1
metaBytes(2) = LoopBytes(0)
metaBytes(3) = LoopBytes(1)
metaBytes(4) = 0
pinnedArray = GCHandle.Alloc(metaBytes, GCHandleType.Pinned)
With propVariant
.vt = VARENUM.VT_UI1 Or VARENUM.VT_VECTOR
.array.cElems = metaBytes.Length
.array.pElems = pinnedArray.AddrOfPinnedObject
End With
If SetWicMetadataByName(pIWicMetadataQueryWriter, metaName, propVariant) = S_OK Then
Ret = True
End If
pinnedArray.Free()
Marshal.Release(pIWicMetadataQueryWriter)
End If
End If
Return Ret
End Function
Private Function WriteGifFrameDelay(pIWicFrameEncode As IntPtr,
Optional Delay As UShort = 10) As Boolean
Dim Ret As Boolean
If pIWicFrameEncode <> IntPtr.Zero Then
Dim pIWicMetadataQueryWriter As IntPtr
If GetWicBitmapFrameEncodeMetadataQueryWriter(pIWicFrameEncode, pIWicMetadataQueryWriter) = S_OK Then
Dim metaName As String = "/grctlext/Delay"
Dim propVariant As New PROPVARIANT
If Delay <= 0 Then Delay = 10
If Delay > 65535 Then Delay = 65535
With propVariant
.vt = VARENUM.VT_UI2
.ui2 = Delay
End With
If SetWicMetadataByName(pIWicMetadataQueryWriter, metaName, propVariant) = S_OK Then
Ret = True
End If
Marshal.Release(pIWicMetadataQueryWriter)
End If
End If
Return Ret
End Function
#End Region
#Region "Properties"
Public WriteOnly Property AddImage As String
Set(ImageFile As String)
If File.Exists(ImageFile) Then
Using tempBitmap As New Bitmap(ImageFile)
Dim bitmap As New Bitmap(tempBitmap)
bitmap.ConvertTo8bppIndexed
m_Bitmaps.Add(bitmap)
End Using
End If
End Set
End Property
Public ReadOnly Property RemoveImage(Index As Integer) As Boolean
Get
Dim Ret As Boolean
If Index >= 0 AndAlso Index < m_Bitmaps.Count Then
Dim currentCount As Integer = m_Bitmaps.Count
m_Bitmaps.ElementAt(Index).Dispose()
m_Bitmaps.RemoveAt(Index)
If m_Bitmaps.Count < currentCount Then Ret = True
End If
Return Ret
End Get
End Property
Public ReadOnly Property RemoveAllImages As Boolean
Get
Dim Ret As Boolean
If m_Bitmaps.Count > 0 Then
For Each bitmap In m_Bitmaps
bitmap.Dispose()
Next
m_Bitmaps.Clear()
If m_Bitmaps.Count = 0 Then Ret = True
End If
Return Ret
End Get
End Property
Public ReadOnly Property ImageCount As Integer
Get
Return m_Bitmaps.Count
End Get
End Property
#End Region
#Region "IDisposable"
Protected Overridable Sub Dispose(disposing As Boolean)
If Not m_DisposedValue Then
If disposing Then
If m_Bitmaps.Count > 0 Then
For Each bitmap In m_Bitmaps
bitmap.Dispose()
Next
m_Bitmaps.Clear()
End If
End If
Marshal.Release(m_pIWicImagingFactory)
m_DisposedValue = True
End If
End Sub
Public Sub Dispose() Implements IDisposable.Dispose
Dispose(disposing:=True)
GC.SuppressFinalize(Me)
End Sub
#End Region
End Class

und als letztes eine Form mit einem Button drauf

VB.NET-Quellcode

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using animGifCreator As New AnimGifCreator
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_000.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_001.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_002.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_003.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_004.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_005.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_006.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_007.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_008.png"
animGifCreator.AddImage = "D:\Downloads\VBC_Prog\VBC_WIC\VBC_WIC_Image2AnimGIF\Images\frame_009.png"
If animGifCreator.ImageCount > 0 Then
If animGifCreator.CreateAnimGif("D:\test.gif") Then
Debug.Print("Fertig.")
Else
Debug.Print("Es ist ein Fehler beim erstellen der animierten GIF aufgetreten!")
End If
End If
End Using
End Sub
End Class

In diesem Code fehlen noch weitere WriteGifxxx-Funktionen für bestimmte GIF-Blöcke die aber für Dich nicht so wichtig sind.

Edit: Oha, Enum PaletteFlags im Modul vergessen. Naja, die gibt es hier: learn.microsoft.com/en-us/wind…pixelformats-paletteflags

Edit 2: So, nachdem Du Meinen WIC Code gesehen hast und welche WriteGifxxx- Funktion wann aufgerufen wird, sollte das hier learn.microsoft.com/en-us/dotn…r?view=windowsdesktop-8.0 -> SetQuery im Zusammenhang mit dem Code von @RodFromGermany klar sein, wo Du entsprechende Blocks schreiben musst.

-Franky- · 3. September 2024, 16:57

Der Vollstädigkeit halber. Das aufgeräumte Projekt zum Download. Wie immer: Keine zusätzlichen Referenzen oder Github-Pakete. Nur WIC- und GDI+ APIs. Erstellt halt eine animierte GIF aus Einzelbildern. Pfade zu den Bildern müsste Ihr entsprechend abändern. Bei Fragen: Bitte die "Windows Imaging Componet" in der MS-Doku aufsuchen.

tron25 · 3. September 2024, 18:08

Vielen Dank -Franky-.
Ich habe versucht, den Code nachzuvollziehen, aber ehrlich gesagt, ist das etwas zu viel für mich.
Ich habe eine Schleife gebastelt, um die Pferdebilder einzulesen. Das funktioniert auch, und die Grafik wird endlos abgespielt. Allerdings verwandelt sich das Pferd in einen Tausendfüßler. Irgendwie verschwinden die Punkte der vorherigen Grafik nicht und es kommen immer mehr Beine dazu. Außerdem wird der Kopf immer dicker.

Zudem habe ich noch eine Frage:
Kann ich die Anzeigedauer eines Bildes verändern? Ich habe im Code eine "Delay"-Variable gefunden, über die das funktionieren könnte. Allerdings weis ich nicht, wie ich diesen Wert der Funktion im Button mitgeben kann.
Hast du da eine Idee?

Ansonsten:
Vielen Dank für deine Mühe!

-Franky- · 3. September 2024, 22:26

Ich sehe nur weiße Punkte auf weißem Hintergrund.

tron25 schrieb:

Allerdings verwandelt sich das Pferd in einen Tausendfüßler. Irgendwie verschwinden die Punkte der vorherigen Grafik nicht und es kommen immer mehr Beine dazu. Außerdem wird der Kopf immer dicker.

Schätze das Du den TransparencyFlag mal auf False setzen musst. Mit True und dem zweiten Parameter 0 (Index zu Palette), wird schwarz transparent weswegen die weißen Punkte vom vorhergehenden Bild nicht gelöscht werden. Dann gibt es noch die DisposalMethod wo Du einstellen kannst, wie die Bilder übereinander gezeichnet werden. Bei Deinen Bildern die nur die Farben Schwarz und Weiß enthalten, sollte es reichen den TransparencyFlag auf False zu setzen.

tron25 schrieb:

Kann ich die Anzeigedauer eines Bildes verändern? Ich habe im Code eine "Delay"-Variable gefunden, über die das funktionieren könnte. Allerdings weis ich nicht, wie ich diesen Wert der Funktion im Button mitgeben kann.

Mein Code zeigt nur das Grundprinzip wie es funktioniert. Was Du möchtest lässt sich aber leicht implementieren. Erstell Dir eine Public Struct, die den Dateinamen und den Delay aufnehmen kann und eine Private Struct, die dann die Bitmap und den Delay aufnehmen kann. Bau AddImage entsprechend um das es die Public Struct annimmt und die Bitmap und den Delay in die Private Struct übergibt. Bau die List(Of Bitmap) auf List(Of Private Struct) um. Bau entsprechend alles andere, wo jetzt auf die List(Of Bitmap) zugegriffen wird, auf List(Of Private Struct) um. Speziell die For Each Schleifen. Denn da kommst ja wieder an die Daten der Privaten Struct und kannst so beim schreiben der Bitmap in den FrameEncode auch das Delay für dieses Bitmap schreiben.

tron25 schrieb:

Ich habe versucht, den Code nachzuvollziehen, aber ehrlich gesagt, ist das etwas zu viel für mich.

Ja, es ist viel Code. Du musst Dir halt vorstellen, das genau das im Hintergrund passiert, wenn Du eine entsprechende Referenz/Namespace nutzt, der ebenfalls WIC zum schreiben von animierten GIFs verwendet. Nur das Du das bei entsprechenden Referenzen/Namespaces nicht den ganzen Code siehst. Ich habe zumindest versucht meinen Code ein wenig zu kommentieren damit man nicht ganz im Dunkeln steht. Den Rest müsste man sich ergoogeln um zu verstehen, was da genau passiert.

tron25 · 3. September 2024, 23:33

Vielen Dank. Jetzt funktioniert es und das Pferd behält seine vier Beine.

An dieser Stelle möchte ich mich auch bei allen anderen für die Tips und Anmerkungen bedanken.

animierte GIF-Bildfolge wiederholt sich nicht

animierte GIF-Bildfolge wiederholt sich nicht

-Franky- schrieb:

VB.NET-Quellcode

tron25 schrieb:

tron25 schrieb:

VB.NET-Quellcode

tron25 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

tron25 schrieb:

tron25 schrieb:

tron25 schrieb:

Benutzer online 1

6 Benutzer haben hier geschrieben