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

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ذخیره و نمایش عکس (/showthread.php?tid=3544)



ذخیره و نمایش عکس - aleas - 05-11-2014

سلام خسته نباشید دوستان این آدرس عکسه
http://irnews110.ir/hcf

چطور میتونم این عکس ذخیره کنم و در Picture1 نمایش بدم با این کد انجام میدم ذخیره میکنه ولی نمایش نمیده



کد:
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")


 

 


RE: ذخیره و نمایش عکس - Amin_Mansouri - 05-12-2014

درود
عکستو JPG کن
نمونه :



کد پی‌اچ‌پی:
Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As LonglpCLSID As Any) As Long
Private Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As LongByVal punkCaller As LongByVal dwReserved As LongByVal clrReserved As OLE_COLORByRef riid As AnyByRef 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 
 


RE: ذخیره و نمایش عکس - aleas - 05-19-2014

سلام
ممنون یه مثال از نحوه استفاده میزنی؟ من هر کار کردم نتونستم