Sign in to follow this  
Followers 0
ttleser

Viewing TIF images.

3 posts in this topic

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?

Share this post


Link to post
Share on other sites



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


Johannes LorenzBensheim, Germanyjlorenz1@web.de[post="12602"]Highlightning AutoIt Syntax in Notepad++ - Just copy in your Profile/application data/notepad++[/post]

Share this post


Link to post
Share on other sites

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


Johannes LorenzBensheim, Germanyjlorenz1@web.de[post="12602"]Highlightning AutoIt Syntax in Notepad++ - Just copy in your Profile/application data/notepad++[/post]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0