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

[kh11 22]

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

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

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

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

*قلب*

[sajjad3011 29]

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

[kh11 22]

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

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

[salmana 174]

کد پایینی میگه برو توی مسیر فلان دانلود کن . و توی ساب 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

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

[majid08 266]

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

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

End If

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

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

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