GIFObject (windows only)

[ts-soft]

1 GIF Objekt, das wird ganz am Ende Destroyt, mehrere Images mit ID, die werden mit obj\FreeImage(ID) freigegeben.
Die Frames sind unabhängig und werden mit FreeImage(ID) freigegeben.
Vor einem Destroy() braucht man nichts freigeben, alle nicht freigegeben Images werden automatisch freigegeben,
mit Ausnahme, der mit GetFrame erzeugten, aber die werden am Ende auch von PB freigegeben .

1 Objekt, viele Images die zum Objekt gehören, noch mehr Frames, die aber nicht zum Objekt gehören

[Nino]

Hallo ts-soft,

ist dies quasi Ersatz und Nachfolger des AnimGIFGadgets mit zusätzlichen Funktionen, oder bietet das AnimGIFGadget irgendwelche Möglichkeiten, die das GIFObject nicht hat?

Grüße, Nino

[ts-soft]

AnimGIFGadget erstellt autom. ein animiertes GIFGadget. Nicht mehr und nicht weniger.

GIFObject ermöglicht Zugriff auf alle Arten von GIFs, sowie evtl. Frames.
Diese können dann in PB genutzt werden wie alle anderen Images.
Also ein Ersatz für das fehlende UseGIFImageDecoder()

[Nino]

Ah, jetzt hab' ich's verstanden.
Vielen Dank!

[ts-soft]

Wenn Du mal hier: http://www.purebasic.fr/german/viewtopi ... 00#p300200
guckst und dann mal das Beispiel ausprobierst, siehste welche Möglichkeiten sich
daraus ergeben, die AnimGadget natürlich nicht bietet, z.B. eine GIF-Datei als
Progressbar-Ersatz benutzen.

[ts-soft]

Neues Beispiel!

Einfaches Programm um alle Frames eines Gifs als PNG zu speichern:

Code: Alles auswählen

EnableExplicit

UsePNGImageEncoder()
XIncludeFile "GIFObject.pbi"

Procedure GifFrames2Png(GifFile.s, OutputDir.s)
  Protected.GIFObject obj = NewGIFObject()
  Protected.i img, buffer, count, i, png
  Protected.s File = GetFilePart(GifFile)
  File = Left(File, Len(File) - Len(GetExtensionPart(File)) - 1)
  
  If Right(OutputDir, 1) <> "\" : OutputDir + "\" : EndIf
  CompilerIf #PB_Compiler_Unicode
    buffer = AllocateMemory(StringByteLength(OutputDir, #PB_Ascii) + 1)
    If buffer
      PokeS(buffer, OutputDir, -1, #PB_Ascii)
      MakeSureDirectoryPathExists_(buffer)
      FreeMemory(buffer)
    EndIf
  CompilerElse
    MakeSureDirectoryPathExists_(@OutputDir)
  CompilerEndIf

  If obj
    img = obj\LoadImage(#PB_Any, GifFile)
    If img
      count = obj\CountFrames(img) - 1
      For i = 0 To count
        png = obj\GetFrame(img, i)
        SaveImage(png, OutputDir + File + Str(i + 1) + ".png", #PB_ImagePlugin_PNG)
        FreeImage(png)
      Next
      obj\FreeImage(img)
    EndIf
    obj\Destroy()
  EndIf
EndProcedure

Define.s File = OpenFileRequester("Select GIF-File", "", "GIF-File (*.gif)|*.gif", 0)
If File
  Define.s Dir = PathRequester("Select Outputdir", "")
  If Dir
    GifFrames2Png(File, Dir)
    RunProgram(Dir)
  EndIf
EndIf

[RSBasic]

²
Ich staune über deine Motivation und Zeit.

[ts-soft]

Bevor ich mir das dämliche Fernsehprogramm reinziehe
Kreuzworträtsel ist auch nicht das wahre Gehirnjogging, also
macht man das was Spaß macht. Als gegenwärtiger Solist, bleibt
nur progammieren übrig

[dige]

@ts-soft: vielen Dank! Mit Deinem Engagement bewirkst Du hier noch eine Renaissance des GIF Formates

[Bisonte]

@ts-soft: vielen Dank! Mit Deinem Engagement bewirkst Du hier noch eine Renaissance des GIF Formates

Wenn du nur noch die klitzekleinekleinigkeit der möglichen Transparenz bei Gif89a hinbekommen würdest ....