Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 0
♋Amir♋

دریافت تصویر از اینترنت

سوال

سلام

توی برنامه ایمیج ویو گذاشتم

حالا میخوام به اون ایمیج ویو  لینک یه تصویر رو بدم و داخل اون ایمیج ویو تصویر رو نمایش بده

ممنون میشم راهنمایی کنید

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تا کنون داده شده است

  • 0

ببینید منظورتون این سورس کده دانلود



Sub Globals
Dim ImageView3 As ImageView
Dim ImageView2 As ImageView
Dim ImageView1 As ImageView
Dim ImageView4 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub

Sub Activity_Resume
Dim links As Map
links.Initialize
links.Put(ImageView1, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
links.Put(ImageView2, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
links.Put(ImageView3, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
links.Put(ImageView4, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
CallSubDelayed2(ImageDownloader, "Download", links)
End Sub

Sub Activity_Pause (UserClosed As Boolean)
CallSub(ImageDownloader, "ActivityIsPaused")
End Sub 

اینم اسکرین شات 


sd.png


پسند شده توسط ♋Amir♋، H@mid.RS و ali.1020

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

سلام دوست عزیز  :give_rose: 


متاسفانه راهی برای نمایش عکس به شکل کاملا آنلاین نیست


اما راه حلمشکل شما دانلود عکس و سپس نمایشش هست 


با کتابخانه HttpUtils2



Dim Job1 As HttpJob
Job1.Initialize("Job1",Me)
Job1.Download("Url")


بعد یه ساب مینویسید :mail1: 



Sub JobDone (Job As HttpJob)
Img1.SetBackgroundImage(Job.GetBitmap)
End Sub

پایان :lol: 


لازم به ذکر است بجای url آدرس عکس


و بجای Img1 ایمج ویوتون رو قرار بدید :bye2: 


پسند شده توسط ♋Amir♋ و H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

 

ببینید منظورتون این سورس کده دانلود

Sub Globals
	Dim ImageView3 As ImageView
	Dim ImageView2 As ImageView
	Dim ImageView1 As ImageView
	Dim ImageView4 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
End Sub

Sub Activity_Resume
	Dim links As Map
	links.Initialize
	links.Put(ImageView1, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
	links.Put(ImageView2, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
	links.Put(ImageView3, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
	links.Put(ImageView4, "http://basic4x.ir/uploads/profile/photo-1.png?_r=1462867019")
	CallSubDelayed2(ImageDownloader, "Download", links)
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	CallSub(ImageDownloader, "ActivityIsPaused")
End Sub 

عه پس اینجوری هم میشه :pardon: 

(حالا دیدم)

پسند شده توسط ♋Amir♋

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

سلام

توی برنامه ایمیج ویو گذاشتم

حالا میخوام به اون ایمیج ویو  لینک یه تصویر رو بدم و داخل اون ایمیج ویو تصویر رو نمایش بده

ممنون میشم راهنمایی کنید

اگر فقط میخاید عکس از نت لود بشه (یا همون کش بشه) بهترین گزینه کتابخانه پیکاسو است چون خیلی سریع این کارو انجام میده

Dim pica As Picasso
	
pica.Initialize
	
pica.LoadUrl(cur1.GetString("link")).IntoImageView(imgdo)

ولی اگر دانلود هم میخاید دوستان گفتند 

پسند شده توسط m007moh، ♋Amir♋، Ho3ien و 1 کاربر دیگر

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

اگر فقط میخاید عکس از نت لود بشه (یا همون کش بشه) بهترین گزینه کتابخانه پیکاسو است چون خیلی سریع این کارو انجام میده

Dim pica As Picasso
	
pica.Initialize
	
pica.LoadUrl(cur1.GetString("link")).IntoImageView(imgdo)

ولی اگر دانلود هم میخاید دوستان گفتند 

cur1 As ???

پسند شده توسط ♋Amir♋

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

 

cur1 As ???

 

شرمنده یادم رقت بگم cur1 کروسر که برای sql 

اگر شما لینک عکس تو دیتابیس گذاشته باشی اینجوری عمل میکنی 

اگر نه که کلا خود لینک رو به جاش مینویسی 

اینجوری 

Dim pica As Picasso
	
pica.Initialize
	
pica.LoadUrl(http://s6.picofile.com/file/8253809476/Untitled_1.jpg).IntoImageView(imgdo)

اون imgdo هم خود ایمیج ویو شما است 

سولی بود در خدمتم

پسند شده توسط Ho3ien، ♋Amir♋ و H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری