Programming Forums - View Single Post

kyndig · Dec 16th, 2006, 7:32 PM

Using the "Microsoft Internet Transfer Protocol Control" you can grab web images.

Dim bytData() As Byte
bytData() = Inet1.OpenURL("http://www.somesite.com/images/image1.gif", icByteArray)
Open App.Path & "\example.gif" For Binary Access Write As #1
Put #1, , bytData()
Close #1

Dec 16th, 2006, 7:32 PM	#3
kyndig Newbie Join Date: Jan 2006 Posts: 7 Rep Power: 0	Using the "Microsoft Internet Transfer Protocol Control" you can grab web images. (Toggle Plain Text) Dim bytData() As Byte bytData() = Inet1.OpenURL("http://www.somesite.com/images/image1.gif", icByteArray) Open App.Path & "\example.gif" For Binary Access Write As #1 Put #1, , bytData() Close #1 Dim bytData() As Byte bytData() = Inet1.OpenURL("http://www.somesite.com/images/image1.gif", icByteArray) Open App.Path & "\example.gif" For Binary Access Write As #1 Put #1, , bytData() Close #1