Question

我最近意识到URLDownloadToFile使用IE代理设置。所以我正在寻找替代方案，并发现WinHttp.WinHttpRequest可能有效。

似乎ResponseBody属性包含获取的数据，我需要将其写入文件。问题是我找不到它的字节大小。

http://msdn.microsoft.com/en-us/library/windows/desktop/aa384106%28v=vs.85%29.aspx包含对象的信息，但我没有找到它的相关属性。

有人可以告诉你怎么样？

strURL := "http://www.mozilla.org/media/img/sandstone/buttons/firefox-large.png"
strFilePath := A_ScriptDir "\dl.jpg"

pwhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
pwhr.Open("GET", strURL) 
pwhr.Send() 

if (psfa := pwhr.ResponseBody ) {   
    oFile := FileOpen(strFilePath, "w")
    ; msgbox % ComObjType(psfa) ; 8209 
    oFile.RawWrite(psfa, strLen(psfa)) ; not working
    oFile.Close()   
}

Answer 1

我自己找到了一条路。

由于psfa是一个字节数组，因此只需元素数表示其大小。

msgbox % psfa.maxindex() + 1    ; 17223 bytes for the example file. A COM array is zero-based so it needs to add one.

但是，要保存存储在safearray中的二进制数据，使用文件对象不成功。（可能有一种方法，但我找不到它）相反，ADODB.Stream就像一个魅力。

strURL := "http://www.mozilla.org/media/img/sandstone/buttons/firefox-large.png"
strFilePath := A_ScriptDir "\dl.png"
bOverWrite := true

pwhr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
pwhr.Open("GET", strURL) 
pwhr.Send() 

if (psfa := pwhr.ResponseBody ) {   
    pstm := ComObjCreate("ADODB.Stream")
    pstm.Type() := 1        ; 1: binary 2: text
    pstm.Open()
    pstm.Write(psfa)
    pstm.SaveToFile(strFilePath, bOverWrite ? 2 : 1)
    pstm.Close()    
}

使用WinHttp.WinHttpRequest查找检索到的二进制数据的大小

1 个答案: