loadpicture from web?

[simonp]

Is it possible to use loadpicture with an image on the web?

eg:

pic1.Picture = LoadPicture("http://www.somewebsite.com/somepicture.gif")

Simon

[chemicalNova]

No. You would have to download the picture to your HDD first, then load it.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = False
End Function
 
Sub Form_Load()
DownloadFile "http://www.somewebsite.com/somepicture.gif", App.Path & "\somepicture.gif"
Picture.Picture = LoadPicture(App.Path & "\somepicture.gif")
End Sub

Phreak