似乎是bmp格式的问题，我也弄不清楚
好像只能用bmp格式的图片
本帖最后由 Duvet 于 2010-8-17 17:52 编辑
回复 45# xiaoy
四樓的代碼還有網路上找到的都是 Bmp:HBITMAP，如果要實現只能將jpg轉成bmp在調用
回复 48# sanmoking
persits.jpeg只能輸出jpg、gif的格式;_JPG2BMP($jpg,$bmp) 函數取自 顽固不化 改成的
;http://www.autoitx.com/forum.php?mod=redirect&goto=findpost&ptid=11315&pid=115901&fromuid=7653106]
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
#Include <WinAPI.au3>
#include <GDIPlus.au3>
Local $a = 497
Local $b = 54
_ScreenCapture_Capture(@TempDir & "\GDIPlus_Image0.bmp",0,0,$a,$b)
_Photo_Flip(@TempDir & "\GDIPlus_Image0.bmp",1,@TempDir & "\GDIPlus_Image1.jpg")
_JPG2BMP(@TempDir & "\GDIPlus_Image1.jpg",@TempDir & "\GDIPlus_Image1.bmp")
$Form1 = GUICreate("",497,54)
$t = _WinAPI_LoadImage(0,@TempDir & "\GDIPlus_Image1.bmp",0,0,0,0x2010)
$d = DllOpen(@ScriptDir&"\waterctrl.dll")
$d = DllCall($d,"int","enablewater","HWND",$Form1,"int",0,"int",0,"ptr",$t,"int",3,"int",50)
GUISetState()
While GUIGetMsg() <> $GUI_EVENT_CLOSE
Sleep(100)
WEnd
Func _Photo_Flip($Path,$Dire,$OutPath)
If Not FileExists($Path) Then Return -1
$Jpeg=_Photo_OpenCalss($Path)
With $Jpeg
If $Dire=1 Then
.FlipV
Else
.FlipH
EndIf
.Save($OutPath)
EndWith
$Jpeg.Close
EndFunc;;;;;;;上下左右翻转 _Photo_Flip("7.jpg","","x.jpg")
Func _Photo_OpenCalss($Path)
If Not FileExists($Path) Then Return -1
$Jpeg = ObjCreate("Persits.Jpeg")
If Not IsObj($Jpeg) Then
FileCopy(@ScriptDir&"\aspjpeg.dll",@SystemDir,1)
RunWait("Regsvr32 /s "& @SystemDir & "\aspjpeg.dll")
RegWrite("HKLM\SOFTWARE\Persits Software\AspJpeg\RegKey","","REG_SZ","48958-77556-02411")
$Jpeg = ObjCreate("Persits.Jpeg")
EndIf
If $Jpeg.Version = "1.9.0.0" Then $Jpeg.PreserveMetadata = True
$Jpeg.Interpolation=2 ;;;图像加强(0-2)
$Jpeg.Quality=100 ;;;;图片质量(0-100)
$Jpeg.Open ($Path)
Return $Jpeg
EndFunc
Func _JPG2BMP($jpg,$bmp)
Local $hImage, $CLSID
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($jpg)
$CLSID = _GDIPlus_EncodersGetCLSID("BMP")
_GDIPlus_ImageSaveToFileEx($hImage, $bmp, $CLSID)
_GDIPlus_Shutdown()
EndFunc ;==>_JPG2BMP
回复rolaka
Duvet 发表于 2010-8-17 14:44 http://www.autoitx.com/images/common/back.gif
明白了 要用dllopen dllcall不行- -
本帖最后由 afan 于 2010-8-18 11:09 编辑
根据Duvet 大虾调用dll的例子修改，将dll文件写进了函数“waterctrl.dll.au3”，不再需要dll文件，方便调用，需要的可以下载测试~
有时间再完善~
afan:
回复 52# afan
A版就是牛X效果很好哦。。
本帖最后由 afan 于 2010-8-18 11:12 编辑
回复 53# xiaoy
Au3Check 一直都对函数内申明的全局变量报错，完全可以无视~ 继续运行 或 直接运行
或者可以重现下载，我已修改了这个问题
本帖最后由 afan 于 2010-8-18 13:04 编辑
回复 53# xiaoy
话说 If $___sDll___Filename = -1 Then ...怎么在你那成了 If $___sDll___Filename = __1 Then ...，真是怪异哦
已增加详细参数，更方便调用。http://www.autoitx.com/thread-17705-1-1.html
另外发现出错很可能是Au3版本过旧原因，可更换高版本测试
感谢版主精心回复，支持！