ذخیره و نمایش عکس - نسخه قابل چاپ

کد:

Dim n() As Byte n() = Inet1.OpenURL("http://irnews110.ir/hcf", 1)

Open App.Path & "\aa.jpg" For Binary As #1

Put #1, , n()

Close #1

Image1.Picture = LoadPicture(App.Path & "\aa.jpg")

کد پی‌اچ‌پی:

Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long

Public Function LoadPictureFromURL(ByVal url As String) As Picture
    Dim IPic(15) As Byte 'holds the IPicture interface
    CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IPic(0)
    OleLoadPicturePath StrPtr(url), 0&, 0&, 0&, IPic(0), LoadPictureFromURL
End Function

Private Sub Form_Load()
    Me.Picture = LoadPictureFromURL("http://parsicoders.com/logo.jpg")
End Sub