Sign in to follow this  
Followers 0
Will66

Response.BinaryWrite

1 post in this topic

#1 ·  Posted (edited)

Hi, is there an equivelent to - Response.BinaryWrite BinData for autoit? Im attempting to utilise CxImageATL.dll has some nice image functions.

I can save the thumb to file, I believe its possible to display image without neccasary to save it first.

http://www.codeproject.com/asp/thumbtools2...13725&fr=51

#include <GUIConstants.au3>

$Form1 = GUICreate("AForm1", 633, 454, 193, 115,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPCHILDREN )
$Height=200
$Width=200

$objCxImage = ObjCreate("CxImageATL.CxImage")
$objCxImage.Load("C:\WINDOWS\Web\Wallpaper\Autumn.jpg",2)
$objCxImage.IncreaseBpp(24)
$widthOrig = $objCxImage.GetWidth()
     $heightOrig = $objCxImage.GetHeight()
;msgbox(0,"",$widthOrig & ", " & $heightOrig)
$fx = $widthOrig/$Width
     $fy = $heightOrig/$Height;subsample factors
; must fit in thumbnail size
     If $fx>$fy Then 
         $f=$fx 
     Else 
         $f=$fy; Max(fx,fy)
         EndIf
     If $f<1 Then 
         $f=1
     $widthTh = Int($widthOrig/$f)
     $heightTh = Int($heightOrig/$f)
  Else
     $widthTh = $Width
     $heightTh = $Height
 EndIf
  msgbox(0,"",$widthTh & ", " & $heightTh)
  $objCxImage.Resample($widthTh,$heightTh,2)     

;$objCxImage.Save("C:\Program Files\AutoIt3\Thumbnails\Purple flower3.jpg", 2)
$BinData = $objCxImage.ImageForASP(2,85)
$Obj1_ctrl = GUICtrlCreateObj($BinData,120, 32,$widthTh,$heightTh);<----
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
    EndSwitch
WEnd
Edited by Will66

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