Downloading Files

[rodders45]

I'm getting really annoyed with this now. I want to download an .exe file from a HTTP server (NOT FTP), displaying how much is completed every second (e.g Downloaded 3K of 501K at 4.1K/Sec).

Please help me!

[Toot]

Well I'm pretty sure you can't do it with the internet transfer control, if that's what you're trying. I think that once you set it off, it doesn't come back til it's finished or failed. C'est la vie! Perhaps we'll get something a bit more sophisticated with VB7. Here's hoping!

Toot.

[Paul282]

The Inet Control will do this

Private Sub Command1_Click()

Dim Bytes() As Byte

Bytes = Inet1.OpenURL("http://www.ozemail.com.au/~devore/WIN32.zip", icByteArray)

Open "C:\This.zip" For Binary As #1
    Put #1, , Bytes
Close

End Sub

But if you need to graph it then you want an async download so with update event.

Start a new user control which can use the Read async. The object browser of an new usercontrol has this to say


Sub AsyncRead(Target As String, AsyncType As Long, [PropertyName], [AsyncReadOptions])
Member of Unknown2._UserControl
Read in data asynchronously from a path or a URL and receive AsyncReadComplete event.

and

Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)

End Sub

Cheers from the "land of the drunken bum!"'