КАРТИНКА ИЗ ИНТЕРНЕТА

[xfolder]

КАК ЗАГРУЗИТЬ КАРТИНКУ ИЗ ИНТЕРНЕТА B PICTURE ИЛИ IMAGE CONTROL?

[Dagobert]

Есть функция, давно пользуюсь.

Код: Выделить всё

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

Public Function LoadURLPicture(ByVal URL As String) As IPictureDisp
    Dim sFName As String
    If Len(URL) = 0 Then Exit Function
    sFName = App.Path & "\url~" & ((Rnd * 1000) + 1) & ".tmp"
    URLDownloadToFile 0, URL, sFName, 0, 0
    If Len(Dir$(sFName)) > 0 Then
        Set LoadURLPicture = LoadPicture(sFName)
        Kill sFName
        End If
    End Function

[xfolder]

spasibo