مشکل در ذخیره عکس دانلود شده

[yuones 0]

با سلام نیاز به یک سورس دانلود عکس و ذخیره آن در حافظه گوشی دارم در واقعه دانلود کردم و در امیج ویو هم نمایشش دادم ولی نوبت به ذخیره که میرسه در تابع جاب دان در قسمت فایل اوت پوت که نام عکس و مسیر مشخص است خطا می دهد ممنون می شوم یک سورس سالم بدید تا گیر این قسمت رفع شود و آیا راهی است که خود تصویر را از امیج ویو ذخیره کرد؟

[محمدرضا شاهپیری 5,579]

سرچ کنید عزیز

 

[yuones 0]

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

[Mr Mansour 325]

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

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

البته توی انجمن کلی موضوع در این باره مطرح شده که میتونی خیلی راحت با یه جستجوی کوچیک پیداشون کنی

[yuones 0]

این روش را قبلا استفاده کردم با تصاویر تو گوشی مشکل نداره مشکل من اینه که تصویر از اینترنت تو image نمایش داده می شود و درست قسمت file.open... خطا می گیرد کتابخانه دوستمون شاهپیری هم جواب نداد فقط یک سورس درست می خوام که شلوغ کاری نباشه و تنها یک عکس را پس از دانلود ذخیره کند همین

[M-CAP7AIN 537]

در 21 ساعت قبل، yuones گفته است :

این روش را قبلا استفاده کردم با تصاویر تو گوشی مشکل نداره مشکل من اینه که تصویر از اینترنت تو image نمایش داده می شود و درست قسمت file.open... خطا می گیرد کتابخانه دوستمون شاهپیری هم جواب نداد فقط یک سورس درست می خوام که شلوغ کاری نباشه و تنها یک عکس را پس از دانلود ذخیره کند همین

تکه کد زیر رو هم تست کردید؟

Sub SaveBitmap(bitmap1 As Bitmap,Dir As String,Filename As String,Format As String)
	Dim b1 As Bitmap
	Dim out As OutputStream
	b1 = bitmap1
	out = File.OpenOutput(Dir,Filename,False)
	b1.WriteToStream(out,70,Format)
	out.Close
End Sub

[behnam_tr 172]

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

 

AriaGlide.Load("http://s2.picofile.com/file/8263958676/list_0_.png").AsBitmap.IntoTarget("Glide","Ax1")


Sub Glide_OnBitmapReady(bitmap As Bitmap,Tag As Object) 
'Save Bitmap and ... 
imageView.Bitmap = bitmap 
Log(Tag) 

Dim out As OutputStream 
out = File.OpenOutput(Dir,Filename,False) 
bitmap.WriteToStream(out,70,Format) 
out.Close

End Sub

[yuones 0]

در 6 ساعت قبل، M-CAP7AIN گفته است :

تکه کد زیر رو هم تست کردید؟

Sub SaveBitmap(bitmap1 As Bitmap,Dir As String,Filename As String,Format As String)
	Dim b1 As Bitmap
	Dim out As OutputStream
	b1 = bitmap1
	out = File.OpenOutput(Dir,Filename,False)
	b1.WriteToStream(out,70,Format)
	out.Close
End Sub

به صورت sub تست نکردم ولی مستقیم تست کردم جواب نداد . این روش را نیز تست می کنم و خبر می دهم

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

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

 

AriaGlide.Load("http://s2.picofile.com/file/8263958676/list_0_.png").AsBitmap.IntoTarget("Glide","Ax1")


Sub Glide_OnBitmapReady(bitmap As Bitmap,Tag As Object) 
'Save Bitmap and ... 
imageView.Bitmap = bitmap 
Log(Tag) 

Dim out As OutputStream 
out = File.OpenOutput(Dir,Filename,False) 
bitmap.WriteToStream(out,70,Format) 
out.Close

End Sub

تست می کنم و خبر می دهم چی شد

[yuones 0]

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

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

 

AriaGlide.Load("http://s2.picofile.com/file/8263958676/list_0_.png").AsBitmap.IntoTarget("Glide","Ax1")


Sub Glide_OnBitmapReady(bitmap As Bitmap,Tag As Object) 
'Save Bitmap and ... 
imageView.Bitmap = bitmap 
Log(Tag) 

Dim out As OutputStream 
out = File.OpenOutput(Dir,Filename,False) 
bitmap.WriteToStream(out,70,Format) 
out.Close

End Sub

این روش ها هم همانند  روش قبل کار نمیده و درست قسمت file.openoutput... خطا میده 

[behnam_tr 172]

پرمیژن ها رو اضافه کردید ؟؟

امولاتور نسخه اندرویدش چنده ؟

[yuones 0]

در 12 دقیقه قبل، yuones گفته است :

این روش ها هم همانند  روش قبل کار نمیده و درست قسمت file.openoutput... خطا میده 

دقیقا مشکل از خود b4a بود نسخه من 8 است حالا چش بود نفهمیدم ولی با نصب مجدد حل شد از همه دوستان سپاسگذارم

[behnam_tr 172]

بفرمایید این سورس خدمت شما

 

download and save image

تست شده

اگر خطایی پیش اومد حتما از امولاتور شماست یا خود نرم افزار بیسیک فور اندروید

[M-CAP7AIN 537]

در 11 ساعت قبل، yuones گفته است :

دقیقا مشکل از خود b4a بود نسخه من 8 است حالا چش بود نفهمیدم ولی با نصب مجدد حل شد از همه دوستان سپاسگذارم

از اول همین ارور رو میزاشتید! مشکل از پرمیشن بود ، باید دسترسی خواندن و نوشتن رو به حافظه میدادید.

[yuones 0]

در در 1397/06/31, 17:17:58، behnam_tr گفته است :

بفرمایید این سورس خدمت شما

 

download and save image

تست شده

اگر خطایی پیش اومد حتما از امولاتور شماست یا خود نرم افزار بیسیک فور اندروید

مرسی اوکی شد فقط یک سوال اگر بخواهم چند عکس را پشت سر هم ذخیره کنم چطور می شود؟ کتابخانه آقای شاهپیری در حالت دیباگ درسته ولی وقتی نصب کامل میشه خطا میده

[behnam_tr 172]

برای اینکار و دانلود لیستی از عکسها از aria volley استفاده کنید

 

 

[yuones 0]

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

برای اینکار و دانلود لیستی از عکسها از aria volley استفاده کنید

 

 

سپاسگذارم بابت راهنمایی کتابخانه خوبی است اما باز به sub ارسال می کنه میدونی عزیز من آدرس عکس ها را ندارم و از میان کد html می کشم بیرون و می خواهم همون موقع در تابع sub test_done که innerhtml کد میفرسته من با حلقه آدرس عکسها را در می آورم همون جا ذخیره کنم

[yuones 0]

در 15 دقیقه قبل، yuones گفته است :

سپاسگذارم بابت راهنمایی کتابخانه خوبی است اما باز به sub ارسال می کنه میدونی عزیز من آدرس عکس ها را ندارم و از میان کد html می کشم بیرون و می خواهم همون موقع در تابع sub test_done که innerhtml کد میفرسته من با حلقه آدرس عکسها را در می آورم همون جا ذخیره کنم

سپاس گذارم حل شد با کمی خلاقیت اوکی شد

[behnam_tr 172]

خوب شما باید یه ساب دانلود عکس درست کنید

بعد هر موقع ادرس رو گرفتید ارسال کنید به ساب