GIF Animation

[mercessb]

Very nice UDF!

Well, my question is what should I do if I only wanted to loop all frames for one time only? Currently, from the UDF is like endless looping.

[trancexx]

Is the gif made to loop thru frames once?

[mercessb]

Is the gif made to loop thru frames once?

Yup

[trancexx]

Yup

Well, show it to me.

[mercessb]

attached

[trancexx]

And you still don't think you posted in the wrong thread?

[UEZ]

How to release the resources from the GIF animation properly to avoid memory leak when calling animation several times from same application?

Because each time I'm calling the animation it will not release approx. 8 mb of memory.

I used:

_GIF_DeleteGIF($hAnim)

_GIF_ExitAnimation($hAnim)

whereas $hAnim is the handle to the animated GIF!

Br,

UEZ

Edited September 10, 2011 by UEZ

[trancexx]

How to release the resources from the GIF animation properly to avoid memory leak when calling animation several times from same application?

Because each time I'm calling the animation it will not release approx. 8 mb of memory.

I used:

_GIF_DeleteGIF($hAnim)

_GIF_ExitAnimation($hAnim)

whereas $hAnim is the handle to the animated GIF!

Br,

UEZ

It's related to stream object used for inline/variable images. I'm not releasing it. If you have the latest AutoIt beta then you can add this line:

; Call Release on stream object
    DllCallAddress("dword", DllStructGetData(DllStructCreate("ptr QueryInterface; ptr AddRef; ptr Release;", DllStructGetData(DllStructCreate("ptr pObj;", $pStream), "pObj")), "Release"), "ptr", $pStream)

... before returning $pBitmap in _GIF_CreateBitmapFromBinaryImage.

edit: and $pStream should now be:

Local $pStream = _GIF_CreateStreamOnHGlobal($pMemory, 0)

Sorry for late reply. I'll rewrite this UDF when new AutoIt release happens to handle streams as they should be (as objects).

Edited September 13, 2011 by trancexx

[UEZ]

Yes, it is working with the beta version - the memory is released properly when calling the animation again.

No way to get it work without using DllCallAddress()? Because beta is beta and not final.

THANKS!

Br,

UEZ

Edited September 13, 2011 by UEZ

[UEZ]

This is also working:

; Call Release on stream object
Local $pStream = _GIF_CreateStreamOnHGlobal($pMemory, 0)
;~     DllCallAddress("dword", DllStructGetData(DllStructCreate("ptr QueryInterface; ptr AddRef; ptr Release;", DllStructGetData(DllStructCreate("ptr pObj;", $pStream), "pObj")), "Release"), "ptr", $pStream)
    Local $tVARIANT = DllStructCreate("word vt;word r1;word r2;word r3;ptr data; ptr")
    DllCall("oleaut32.dll", "long", "DispCallFunc", "ptr", $pStream, "dword", 8 + 8 * @AutoItX64, _
  "dword", 4, "dword", 23, "dword", 0, "ptr", 0, "ptr", 0, "ptr", DllStructGetPtr($tVARIANT))

Code by ProgAndy!

Br,

UEZ

[KaFu]

No way to get it work without using DllCallAddress()? Because beta is beta and not final.

That's what I thought too , thanks to you and ProgAndy for another solution... btw, the UDF looks really nice too !

[happytc]

Great work!

I tried it and found that it couldnot show some types of gif

like this GIF: http://min.us/mbgxauuI0D

like this GIF: http://min.us/mba4qH1JPa

Edited September 13, 2011 by happytc

[trancexx]

Both of those work for me. Are you sure you are using the function right?

#include <WindowsConstants.au3>
#include "GIFAnimation.au3"
 
Opt("GUICloseOnESC", 1); ESC to exit
Opt("MustDeclareVars", 1)
 
Global $bGif = InetRead("http://k.minus.com/i8VVTsnKNtfHo.gif")
Global $aGIFDimension = _GIF_GetDimension($bGif)
Global $hGui = GUICreate("GIF Animation", 4 * $aGIFDimension[0], 4 * $aGIFDimension[1], -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
 
Global $hGIF = _GUICtrlCreateGIF($bGif , "", 10, 10, 4 * $aGIFDimension[0], 4 * $aGIFDimension[1])
GUICtrlSetTip($hGIF, "Esc to Exit...")
GUICtrlSetPos($hGIF, 0, 0)
GUISetState()
 
While 1
    Switch GUIGetMsg()
      Case -3
       Exit
    EndSwitch
WEnd

Edited September 13, 2011 by trancexx

[happytc]

Both of those work for me. Are you sure you are using the function right?

I used the example code of post #1

Then I found some types of gif not to be shown.

The following gif could be shown on my computer

http://min.us/mbn1rs4ZOm

-------------------------

System: WinXP-SP3

[trancexx]

I used the example code of post #1

Then I found some types of gif not to be shown.

The following gif could be shown on my computer

http://min.us/mbn1rs4ZOm

-------------------------

System: WinXP-SP3

This works for you?

#include "GIFAnimation.au3"
 
Global $hGUI = GUICreate("Example", 500, 500)
Global $hImage = _GUICtrlCreateGIF(_Img(), "", 100, 100, Default, Default)
GUICtrlSetTip($hImage, "I'm on server")
 
GUISetState()
While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $hImage
            If $hImage Then MsgBox(0, 'Aha!', 'Clicked!', 0, $hGUI)
    EndSwitch
WEnd
 
Func _Img()
    Return InetRead("http://k.minus.com/i1wrAFXCYSSOF.gif")
EndFunc

Edited September 13, 2011 by trancexx

[happytc]

This works for you?

#include "GIFAnimation.au3"
 
Global $hGUI = GUICreate("Example", 500, 500)
Global $hImage = _GUICtrlCreateGIF(_Img(), "", 100, 100, Default, Default)
GUICtrlSetTip($hImage, "I'm on server")
 
GUISetState()
While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $hImage
            If $hImage Then MsgBox(0, 'Aha!', 'Clicked!', 0, $hGUI)
    EndSwitch
WEnd
 
Func _Img()
    Return InetRead("http://k.minus.com/i1wrAFXCYSSOF.gif")
EndFunc

Yeah, it's work fine!

what's different?

[trancexx]

Yeah, it's work fine!

what's different?

Different? Compared to what?

[happytc]

Oh, I was wrong.

I thought the file(http://k.minus.com/i1wrAFXCYSSOF.gif) was the file not to be shown(like: http://min.us/mba4qH1JPa)

[happytc]

But why some kinds of GIF files work, some kinds of GIF files don't work?

[trancexx]

But why some kinds of GIF files work, some kinds of GIF files don't work?

Do you have any GIF that it doesn't work for?