دانلود عکس

[mrabay 3]

سلام
میخوام یک عکس رو دانلود کنم و به صورت ( گرد ) نمایشش بدم یک ایمیج ویو انداختم و جنریتش کردم الان میخوام یک عکس رو با کتابخانه اریا و یا پیکاسو و غیره دانلود کنه و نمایشش بده بصورت گرد نمیخوام از کتابخونه های https و اینا استفاده کنم کسی هست راهنمایی کنه؟

 

[behnam_tr 172]

از کتابخانه   MSCircularImageView استفاده کنید

لینک دانلود کتابخانه

Dim civ As CircularImageView
	Dim b1 As BitmapDrawable
	b1.Initialize(LoadBitmap(File.DirAssets , "cover.png"))
	civ.Initialize("")
	civ.Color=Colors.Transparent
	civ.BorderWidth = 2dip
	civ.BorderColor = Colors.White
	civ.AddDefaultShadow
	civ.SetDrawable(b1)
	Panel1.AddView(civ,62%x,1%y,30%x,30%y)

 همچنین برای لود از نت با استفاده از اریا گلاید این کد رو بزنید

 

dim dll as ariaglide
dll.Load("url").AsBitmap.IntoTarget("dl","Ax1")

Sub dl_OnBitmapReady(bitmap As Bitmap,Tag As Object)

	b1.Initialize(bitmap)
	b1.Gravity=Gravity.FILL
	civ.Initialize("")
	civ.Color=Colors.Transparent
	civ.BorderWidth = 2dip
	civ.BorderColor = Colors.White
	civ.AddDefaultShadow
	
	civ.SetDrawable(b1)
	Panel1.AddView(civ,62%x,1%y,30%x,30%y)
	
End Sub

 

[mrabay 3]

در 5 دقیقه قبل، behnam_tr گفته است :

از کتابخانه   MSCircularImageView استفاده کنید

لینک دانلود کتابخانه

Dim civ As CircularImageView
	Dim b1 As BitmapDrawable
	b1.Initialize(LoadBitmap(File.DirAssets , "cover.png"))
	civ.Initialize("")
	civ.Color=Colors.Transparent
	civ.BorderWidth = 2dip
	civ.BorderColor = Colors.White
	civ.AddDefaultShadow
	civ.SetDrawable(b1)
	Panel1.AddView(civ,62%x,1%y,30%x,30%y)

 همچنین برای لود از نت با استفاده از اریا گلاید این کد رو بزنید

 

dim dll as ariaglide
dll.Load("url").AsBitmap.IntoTarget("dl","Ax1")

Sub dl_OnBitmapReady(bitmap As Bitmap,Tag As Object)

	b1.Initialize(bitmap)
	b1.Gravity=Gravity.FILL
	civ.Initialize("")
	civ.Color=Colors.Transparent
	civ.BorderWidth = 2dip
	civ.BorderColor = Colors.White
	civ.AddDefaultShadow
	
	civ.SetDrawable(b1)
	Panel1.AddView(civ,62%x,1%y,30%x,30%y)
	
End Sub

 

ببخشید روش دوم غلط املایی داره؟ لاین هاشو میشه برام توضیح بدین؟ اون ax1 چیه  و لاین های دیگشو بهم توضیح میدی

[behnam_tr 172]

ax1 یه تگ هست ساب پایینی میتونیبد لوگ بگیرید متوجه میشید  log(tag)

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

 

لاین اول که دانلود هست

ساب هم مربوط به دانلود هست

بقیه لاین ها تنظیمات عکس گرد هست  . خط اخر افزودن به پنل یا اکتیویتی

من اینو داخل پنل گذاشتم میتونید به اکتیویتی اضافه کنید

 

Dim b1 As BitmapDrawable

چون عکس گردالی فقط BitmapDrawable قبول میکنه برای همین این متغیر تعریف شده

[mrabay 3]

در ۱ ساعت قبل، behnam_tr گفته است :

ax1 یه تگ هست ساب پایینی میتونیبد لوگ بگیرید متوجه میشید  log(tag)

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

 

لاین اول که دانلود هست

ساب هم مربوط به دانلود هست

بقیه لاین ها تنظیمات عکس گرد هست  . خط اخر افزودن به پنل یا اکتیویتی

من اینو داخل پنل گذاشتم میتونید به اکتیویتی اضافه کنید

 

Dim b1 As BitmapDrawable

چون عکس گردالی فقط BitmapDrawable قبول میکنه برای همین این متغیر تعریف شده

خب الان من رو اکتیویتی ایمیج ویو گذاشتم اون پنل نیازه؟ برچیه دقیقا

[mrabay 3]

در 1 ساعت قبل، behnam_tr گفته است :

ax1 یه تگ هست ساب پایینی میتونیبد لوگ بگیرید متوجه میشید  log(tag)

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

 

لاین اول که دانلود هست

ساب هم مربوط به دانلود هست

بقیه لاین ها تنظیمات عکس گرد هست  . خط اخر افزودن به پنل یا اکتیویتی

من اینو داخل پنل گذاشتم میتونید به اکتیویتی اضافه کنید

 

Dim b1 As BitmapDrawable

چون عکس گردالی فقط BitmapDrawable قبول میکنه برای همین این متغیر تعریف شده

خب الان اونجا امده civ رو اضافه کرده . اون چیه؟ چرا ازپنل؟ من ی ایمیج ویو دارم تو اکتیویتی میخوام عکسش گرداشه و دانلود شه متوجه لاین اخر نشدم!

[behnam_tr 172]

نه داداش پنل رو کلا بیخیال اون مربوط به اپ خودم بوده

شما اضافه کن به اکتیویتی

من تو برنامه خودم اضافه کرده بودم به پنل

 

activity.AddView(civ,62%x,1%y,30%x,30%y)