• 34 Vote(s) - 2.24 Average
  • 1
  • 2
  • 3
  • 4
  • 5
ذخیره و نمایش عکس
#1
درود خسته نباشید دوستان این آدرس عکسه
http://irnews110.ir/hcf

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



Code:
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")


 

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



PHP Code:
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 
 

گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
  Reply
#3
درود
سپاسگزار یه مثال از نحوه استفاده میزنی؟ من هر کار کردم نتونستم
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  ذخیره و فرخوانی فایل تکست aghamali 3 3,194 11-01-2014، 01:58 PM
Last Post: aghamali
  سورس کد ذخیره میخوام روشنا 5 6,535 06-25-2014، 08:46 AM
Last Post: Amin_Mansouri
  محاسبه یا نمایش فضای خالی cd خام mhad 1 2,316 12-19-2012، 10:50 PM
Last Post: Amin_Mansouri
  ذخیره عکسه داخل یه لینک با vb !_!_batman_!_! 3 3,821 02-19-2012، 07:44 PM
Last Post: Amin_Mansouri

Forum Jump:


Users browsing this thread: 1 Guest(s)