امتیاز موضوع:
  • 21 رای - 2.33 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
ذخیره و نمایش عکس
نویسنده پیام
aleas آفلاین
کاربر 1 ستاره
*

ارسال‌ها: 66
تاریخ عضویت: Nov 2011
اعتبار: 0
.وضعیت من: هیچکدام
ارسال: #1
ذخیره و نمایش عکس
درود خسته نباشید دوستان این آدرس عکسه
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")


 

 
(آخرین تغییر در ارسال: 05-12-2014، 08:46 AM توسط aleas.)
05-11-2014، 09:17 PM
ارسال‌ها پاسخ
Amin_Mansouri آفلاین
مدیر کل سایت
*

ارسال‌ها: 4,842
تاریخ عضویت: Apr 2011
اعتبار: 158
.وضعیت من: Artistic
ارسال: #2
RE: ذخیره و نمایش عکس
درود
عکستو 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 
 
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
05-12-2014، 08:12 PM
وب‌سایت ارسال‌ها پاسخ
aleas آفلاین
کاربر 1 ستاره
*

ارسال‌ها: 66
تاریخ عضویت: Nov 2011
اعتبار: 0
.وضعیت من: هیچکدام
ارسال: #3
RE: ذخیره و نمایش عکس
درود
سپاسگزار یه مثال از نحوه استفاده میزنی؟ من هر کار کردم نتونستم
05-19-2014، 01:26 PM
ارسال‌ها پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  ذخیره و فرخوانی فایل تکست aghamali 3 2,845 11-01-2014، 01:58 PM
آخرین ارسال: aghamali
  سورس کد ذخیره میخوام روشنا 5 5,976 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  محاسبه یا نمایش فضای خالی cd خام mhad 1 2,133 12-19-2012، 10:50 PM
آخرین ارسال: Amin_Mansouri
  ذخیره عکسه داخل یه لینک با vb !_!_batman_!_! 3 3,532 02-19-2012، 07:44 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان

تماس با ما | ParsiCoders (Persian Team) For Programming ,Security,Cracking,Network,Pars Civilization,Medical,Science,Entertaining | بازگشت به بالا | | حالت آرشیو | پیوند سایتی RSS
This forum uses Lukasz Tkacz MyBB addons.