رفتن به مطلب
  • 0

دانلود عکس از اینترنت


kh11

سوال

سلام به استادان بزگوار

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

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

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

*قلب*

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

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

ارسال های توصیه شده

ابتدا باید فایل عکس رو توی پوشه ی اپلیکیشن سرچ کنی اگه file_exists نبود سپس دانلود کنی

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

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

کد پایینی میگه برو توی مسیر فلان دانلود کن . و توی ساب Sub FinishDownload فایلمون دانلود شد اومده اون رو بکگراند اکتیویتی کرده . شما باید توی این ساب کد ذخیره کردن عکس رو هم بزاری. من راستش نمیدونم کد ذخیره کردن فایلی که از نت دانلود شده به گوشی رو نمیدونم..... دوستان کسی هست بگه فایلی که در پایین با نام image.png دانلود کرده رو با چه دستوری به یک مسیر حافظه گوشی انتقال بدیم

Sub Process_Globals
Dim image As Bitmap
End Sub

Sub Globals
Dim btnDownload As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
'check if we already loaded the image previously.
If image.IsInitialized Then
	Activity.SetBackgroundImage(image)
End If
End Sub

Sub Activity_Resume
'check if download has finished while the activity was paused
If btnDownload.Enabled = False AND DownloadService.JobStatus = DownloadService.STATUS_DONE Then
	FinishDownload
End If
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnDownload_Click
Activity.Color = Colors.Black
DownloadService.URL = "http://www.basic4ppc.com/basic4android/images/designer1.png"
DownloadService.Target = File.OpenOutput(File.DirInternalCache, "image.png", False)
StartService(DownloadService)
btnDownload.Enabled = False
End Sub

Sub FinishDownload
'Load the saved image
If DownloadService.DoneSuccessfully = True Then
	image = LoadBitmapSample(File.DirInternalCache, "image.png", _
	 100%x, 100%y)
	'Activity.SetBackgroundImage(image)
	File.MakeDir(File.DirRootExternal , "/Android/mm")' ساخت پوشه در حافظه گوشی
	File.Copy(File.DirAssets,"image.png", File.DirRootExternal, "/Android/mm/image.png") ' این دستور اشتباهه و باید یک دستور درست بهش بدیم

End If
btnDownload.Enabled = True
DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub

اینم دستور شرطی

	If File.Exists (File.DirRootExternal,"/Android/mm/image.png") Then

End If

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

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

اینم دستور شرطی

 If File.Exists (File.DirRootExternal,"/Android/mm/image.png") Then

End If

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

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

بجایimage.png چی بنویسیم که متن داخل لیبل رو بجاش بنویسه

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...