دانلود دیتابیس

[mashgholom 34]

سلام به همه دوستای گلم

ببخشید که چند وقتی نبودم و نیستم خیلی درگیرم هم دانشگاه هم پروژه

یه سوال از محضرتون داشتم یه دیتابیس دارم که در هاستم قرار داره با چه کدی میتونم کل دیتابیس دانلود و در مسیری ذخیره کنم؟

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

جهت اطلاع : میخوام دیتابیس توی گوشی قرار بدم که راحت بتونم ازش استفاده کنم و اینکه چرا دیتابیس توی هاست میذارم و بعد دانلود میکنم بخاطر این که هر 2 یا 3 هفته دیتابیس اپدیت میشه تنها روشی هم که من راحت میتونم پروژم تکمیل کنم این که دیتابیس دانلود کنم و کارایی که میخوام انجام بدم.

تشکر از همه

و باز هم معذرت بابت غیبتم*give_rose*

:o

[مجید آرتا 5,874]

سلام عماد جان

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

فقط باید یک Service Module به پروژت اضافه کنی و از کتابخانه HttpUtils2 استفاده کنی

یکم به کدها که توجه کنی میفهمیشون

کدهای اکتیویتی :

'Activity module
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)
   End If
   btnDownload.Enabled = True
   DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub

کدهای Service Module :

'Service module
Sub Process_Globals
   Dim HC As HttpClient
   'Activity is expected to set URL
   Dim URL As String
   Dim Target As OutputStream
   Dim JobStatus As Int
   Dim STATUS_NONE, STATUS_WORKING, STATUS_DONE As Int
   STATUS_NONE = 0
   STATUS_WORKING = 1
   STATUS_DONE = 2
   Dim DoneSuccessfully As Boolean
   Dim Notification1 As Notification
End Sub
Sub Service_Create
   HC.Initialize("HC")
   Notification1.Initialize
   Notification1.Icon = "icon" 'use the application icon file for the notification
   Notification1.Vibrate = False
End Sub

Sub Service_Start
   'URL and Target should be set by the calling module
   Dim request As HttpRequest
   request.InitializeGet(URL)
   HC.Execute(request, 1)
   JobStatus = STATUS_WORKING
   Notification1.SetInfo("Download Service example", "Downloading: " & URL, Main)
   Notification1.Sound = False
   'Make sure that the process is not killed during the download
   'This is important if the download is expected to be long.
   'This will also show the status bar notification
   Service.StartForeground(1, Notification1) 
End Sub

Sub HC_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
   ToastMessageShow("Error downloading file: " & Reason, True)
   DoneSuccessfully = False
   Finish
End Sub

Sub HC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
   'Asynchronously download the stream
   Response.GetAsynchronously("Response", Target, True, TaskId)
End Sub

Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
   If Success = False Then
       ToastMessageShow("Error downloading file: " & LastException.Message, True)
   Else
       ToastMessageShow("Download successfully.", True)
   End If
   DoneSuccessfully = Success
   Finish
End Sub

Sub Finish
   Log("Service finished downloading")
   JobStatus = STATUS_DONE
   'Notify the activity that the download has finished.
   'It will do nothing if the activity is currently paused.
   CallSub(Main, "FinishDownload")
   Service.StopForeground(1) 'Return the service to the "background" (also removes the ongoing notification)
   If IsPaused(Main) Then
       'The activity is paused. The user is probably busy with some other activity.
       'Notify the user that the download has finished
       Notification1.Sound = True
       Notification1.SetInfo("Download Service", "Download complete", Main)
       Notification1.AutoCancel = True
       Notification1.Notify(1)
   End If
End Sub
Sub Service_Destroy

End Sub

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

امیدوارم مفید باشه عمادجان

[mashgholom 34]

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