Viewing TIF images.

[ttleser]

I'm pretty brand new to programming (I'm slowly learning) and new to AutoIT. I'm looking for a way to preview a thumbnail of TIF images, but for now I'd just be interested in just viewing them. I've searched the forums and couldn't find anything, other than my previous post that Larry suggested using GUICtrlCreateObj. So I tried it and it doesn't work.

I found this post that someone needed help with GIFs and GAFrost helped him out.

http://www.autoitscript.com/forum/index.ph...hl=animated+gif

Which the code looked like this:

_Main()

Func _Main()
    Local $pheight, $pwidth, $oIE, $GUIActiveX, $gif = @ScriptDir & '\Happy_Birthday_Gross.gif'
    _GetGifPixWidth_Height($gif, $pwidth, $pheight)

    $oIE = ObjCreate("Shell.Explorer.2")
    GUICreate("Embedded Web control Test", 640, 580)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth + 16, $pheight + 21)
    $oIE.navigate ($gif)
    $oIE.document.body.scroll = "no"
    GUISetState()
    While GUIGetMsg() <> -3
    WEnd
EndFunc   ;==>_Main

Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight)
    If FileGetSize($s_gif) > 9 Then
        Local $sizes = FileRead($s_gif, 10)
        ConsoleWrite("Gif version: " & StringMid($sizes,1,6) & @LF)
        $pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
        $pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
        ConsoleWrite($pwidth & " x " & $pheight & @LF)
    EndIf
EndFunc   ;==>_GetGifPixWidth_Height

I modifed some of the variables to what I thought would work for TIFs instead of GIF, but of course it didn't work.

Any suggestions?

[jlorenz1]

Hi,

I've the nearly the same problem. Look at lazycat http://www.autoitscript.com/fileman/users/Lazycat/udfs.html

His UDF_ImageGetSize($sFile) mentions TIFF-Files too. I know it isn't directly a solution, but perhaps it could be a help for you :Johannes

[jlorenz1]

I found this subject .tif-image. I tested the script but without success.Johannes