Noname > 01-09-10, 09:27 AM
Sub getPicture(url As String)
Set WinHttpReq = New WinHttpRequest
' Tạo một mảng chứa dữ liệu trả về
Dim d() As Byte
' Mở 1 thủ tục một yêu cầu lấy dữ liệu
WinHttpReq.Open "GET", url, False
' Gửi yêu cầu đó tới server
WinHttpReq.Send
' Lấy về tiến trình tải về .
Text1.Value = WinHttpReq.Status & " - " & WinHttpReq.StatusText
' Đưa dữ liệu nhận được vào mảng đã khai báo với file tạm là temp.gif trong bộ nhớ
Open "temp.jpg" For Binary As #1
d() = WinHttpReq.ResponseBody
Put #1, 1, d()
Close
' gán file vào giá trị đối tượng picture tạo sẵn
Picture1.Picture = "temp.jpg"
End Sub
Private Sub Command1_Click()
getPicture "http://i39.photobucket.com/albums/e193/duytuan2002/Access/Thuthuataccess.jpg"
End Sub