WinHTTP OnResponseDataAvailable Event - Xtreme Visual Basic Talk

09-29-2008, 07:01 PM

viraco

Newcomer

Join Date: Sep 2008

Posts: 8

WinHTTP OnResponseDataAvailable Event

can someone instruct me how to construct/use this event... ive never done it before

i just need to find a way to get the size of the downloaded data.

i can already get the file size before downloading but want to make a progress bar... pb1.value = ubound(data())/tSize * 100

Here is the code im using to download a file:

Code:

Dim WinHttpReq As WinHttp.WinHttpRequest

Public Sub DLFile(strHTTPFile As String, strFileDest As String)
Set WinHttpReq = New WinHttpRequest
Dim FNum As Integer
FNum = FreeFile
' Create an array to hold the response data.
Dim d() As Byte
' Assemble an HTTP Request.
WinHttpReq.Open "GET", strHTTPFile, False
WinHttpReq.Send
' Put response data into a file.
d() = WinHttpReq.ResponseBody
Open strFileDest For Binary As FNum
Put FNum, 1, d()
Close FNum
NextFile = True
Set WinHttpReq = Nothing
End Sub

i would like someone to help me make it so i can monitor the size of the data being retrieved for a download progress bar...

thank you in advance...

09-30-2008, 01:12 PM

dilettante

Underclocked lifestyle

Forum Leader
* Guru *

Join Date: Feb 2005

Location: Michigan, USA

Posts: 4,184

To do something like update progress you have to use the object asynchronously. As data arrives you write it to disk or assemble it in chunks.

The simple example attached shows how to do this, discarding the response data but logging events as they occur. Note that you don't always get a length returned, so sometimes you have to fake a progress bar.

An example of this would be the page at http://www.google.com/ which is sent with chunked Transfer-Encoding, though the main image on that page is sent with a Content-Length header.

Attached Files

WinHTTP Async.zip (2.5 KB, 163 views)

09-30-2008, 03:54 PM

viraco

Newcomer

Join Date: Sep 2008

Posts: 8

Thank you... working perfectly now