网页中的png图片直截保存体积很小，用这种au3方法保存却很大[已解决]

ccxw1983 · 发表于 2010-10-6 21:34:14

本帖最后由 ccxw1983 于 2010-10-8 09:14 编辑

我的目的是：在打开一个有图片的页面后，再用au3程序保存页面的图片到本地，希望au3保存的图片的大小和手工保存的一样大。
现在只找到下面这种方式可以保存网页中的图片，但是这种方式保存的图片比较大，并且用了粘贴板，在保存图片的过程中我再用粘贴板的话可能造成程序运行错误，程序用InetGet的方式又不合适（google book的一些限制会导致下载效果不好，用页面的话可以从缓存读取图片）。
希望高手们赐教！

#include <GDIPlus.au3>
#include <ScreenCapture.au3>

#include <IE.au3>

#include <GuiConstantsEx.au3>
#include <ClipBoard.au3>
#include <WindowsConstants.au3>


;浏览器中浏览图片
;http://books.google.com.hk/books?id=CHswO9obwk8C&pg=PR5&img=1&zoom=3&hl=zh-CN&sig=ACfU3U2fo1zQrISnmSnUuXmvCad8n9ygMA&w=1025
;另存为才142k
;这样保存却有526k
;为什么？

Opt('MustDeclareVars', 1)

Local $f = @ScriptDir & "\ask_test_1.html"
If FileExists($f) == 0 Then
        FileWrite($f, "<html> <head><title>Googlebook</title></head> <body> <img  border=1 src=http://books.google.com.hk/books?id=CHswO9obwk8C&pg=PR5&img=1&zoom=3&hl=zh-CN&sig=ACfU3U2fo1zQrISnmSnUuXmvCad8n9ygMA&w=1025  /> </body> </html>")
        Sleep(1000)
EndIf

Local $oIE = _IECreate($f)
Sleep(1000)

setClipboard()
Sleep(1000)
_Main()

Func _Main()
        Local $hBitmap, $hImage, $sCLSID, $tData, $tParams

        _GDIPlus_Startup()

        _ClipBoard_Open(0)
        $hImage = _ClipBoard_GetDataEx($CF_BITMAP);$CF_BITMAP ;$CF_METAFILEPICT
        If $hImage == 0 Then
                MsgBox(0, "", "粘贴板没找到")
        Else
                $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hImage)

                $sCLSID = _GDIPlus_EncodersGetCLSID("PNG")

                Local $tt = @ScriptDir & "\GDIPlus_Image2.jpg"
                ConsoleWrite($tt & @CRLF)
                _GDIPlus_ImageSaveToFileEx($hImage, $tt, $sCLSID)

                _ClipBoard_Close()
        EndIf

        _GDIPlus_Shutdown()
EndFunc   ;==>_Main


;设置粘贴板
Func setClipboard()
        Local $oIE = _IEAttach("Googlebook")
        If @error = 0 Then
                Local $oImgs = _IEImgGetCollection($oIE)
                For $oImg In $oImgs
                        ;复制图片
                        Local $oPic = $oIE.Document.body.createControlRange()
                        $oPic.Add($oImg)
                        $oPic.execCommand("Copy")
                        MsgBox(0, "", "图片复制了", 2)

                        ExitLoop
                Next
        Else
                MsgBox(0, "", "html测试页码没找到", 2)
        EndIf
EndFunc   ;==>setClipboard

republican · 发表于 2010-10-7 07:31:06

本帖最后由 republican 于 2010-10-7 07:32 编辑

#include <Array.au3>
#include <WinHttp_GetRespond.au3>

$MyOpen=_WinHttpOpen()        
$rContext=_WinHTTP_GetRespond($MyOpen,"http://books.google.com.hk/books?id=CHswO9obwk8C&pg=PR5&img=1&zoom=3&hl=zh-CN&sig=ACfU3U2fo1zQrISnmSnUuXmvCad8n9ygMA&w=1025",0,2)
FileWrite(@ScriptDir & "\5.jpeg",Binary($rContext[0]))
_WinHttpCloseHandle($MyOpen)

google book有什么限制呢？

保存文件大是因为你使用GDI重新渲染了。

ccxw1983 · 发表于 2010-10-7 15:10:06

回复 2# republican

这样和InetGet差不多吧？仍然是直截连服务器去下载的吧？如果是调用浏览器下载的话或许还可能从缓存里面取的数据。
google book是这样的，这个图片的url，这会儿能够访问，待会儿可能就不能访问了，用浏览器去下载是为了能够从缓存里面取到文件。
如果能够直截复制浏览器的临时文件夹的文件的话，更好，我是找不到方法，才想到这种间接的方式的。

afan · 发表于 2010-10-7 15:23:26

这个是获取指定URL在缓存里的路径问题吧，可以看看这个，我不懂~
http://hi.baidu.com/lbird/blog/item/87d81108cf541238e8248808.html

republican · 发表于 2010-10-7 17:07:04

其实InetGet就可以用缓存的了。

republican · 发表于 2010-10-7 17:08:13

本帖最后由 republican 于 2010-10-7 17:10 编辑

回复 4# afan

原来是wininet的成员，这就简单了，有现成的UDF.

#include <WinINet.au3>

$Test=_WinINet_GetUrlCacheEntryInfo("http://books.google.com.hk/books?id=CHswO9obwk8C&pg=PR5&img=1&zoom=3&hl=zh-CN&sig=ACfU3U2fo1zQrISnmSnUuXmvCad8n9ygMA&w=1025")
If Not @error Then 
        ShellExecute($Test[2])
Else
        MsgBox(0,"Error",@error)
EndIf

忘了说，wininet库有点旧了，需要对$AU3_UNICODE进行修改。
编译好的文件：

afan · 发表于 2010-10-7 17:44:00

回复 6# republican

要修改什么地方么？我这没修改也正常啊

ccxw1983 · 发表于 2010-10-7 18:04:01

我也刚看到 WinINet 的东东，不过用http://www.autoitx.com/forum.php ... p;highlight=Wininet的附件的东西会报错：
+>18:02:05 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0804 Keyboard:00000804 OS:WIN_7/ CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Program Files\AutoIt3
C:\Users\lenovo\Downloads\WinINet_2010_01_02\WinINetConstants.au3(5,102) : ERROR: undefined macro.
Global Const $AU3_UNICODE = Number($AU3_VERSION[2] & "." & $AU3_VERSION[3]) >= 2.13 Or @AutoItUnicode

ccxw1983 · 发表于 2010-10-7 18:11:50

我修改了WinINetConstants.au3的这行
Global Const $AU3_UNICODE = Number($AU3_VERSION[2] & "." & $AU3_VERSION[3]) >= 2.13 Or @AutoItUnicode
去掉了
Or @AutoItUnicode
可以运行了。

在帮助文档里面有说明：
16th May, 2008 - v3.2.12.0
AutoIt:
Changed: @Unicode renamed to @AutoItUnicode. @Unicode is an alias for now. It will be removed > 3.2.14.0

ccxw1983 · 发表于 2010-10-7 18:20:15

回复 2# republican

谢谢，我已按照这种方式搞定。

republican · 发表于 2010-10-7 19:05:20

回复 7# afan

同8-9楼的问题。

afan · 发表于 2010-10-7 19:07:11

回复 11# republican

那个不算问题吧，SciTE的报错也鸟它？

republican · 发表于 2010-10-7 19:14:00

回复 12# afan

@AutoItUnicode 本身就不存在，程序不可能运行的。

退出代码: [CODE]:2

afan · 发表于 2010-10-7 19:16:14

回复 afan

@AutoItUnicode 本身就不存在，程序不可能运行的。

退出代码: [CODE]:2
republican 发表于 2010-10-7 19:14

直接运行 MsgBox(0, 0, @AutoItUnicode) 试试

republican · 发表于 2010-10-7 19:24:44

回复 14# afan

不好意思，刚才编译错文件了，所以才有此结论。

代码少的话，可以直接忽略sicte的报错。

但我不认为忽略sicte的错误报错对写一个“大型程序”有多大帮助，你仍然需要从错误中分辨哪些是正确的报错，哪些是不用管的，所以对于isdeclare类的报错我通常都遵循sicte，这样会省下很多无谓的思考。

		自动登录	找回密码
密码			加入

[图形处理] 网页中的png图片直截保存体积很小，用这种au3方法保存却很大[已解决]

相关帖子

评分

本帖子中包含更多资源

评分