简体   繁体   English

basic4android下载文件代码

[英]basic4android download file code

how can i add download db file code for this codes from URL ? 如何从URL添加此代码的下载db文件代码?

=================================================================== { *Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lay1pezeshki") Dim jobname As String ======================================= = * =============== {*子Activity_Create(初次为布尔值)Activity.LoadLayout(“ lay1pezeshki”)昏暗的工作名称为字符串

    job.Initialize("downloadfile",Me)

    timer1.Initi
alize("t1",2000)
        timer1.Enabled=True 




        Dim ruta As String
        If File.ExternalWritable Then
                ruta = File.DirDefaultExternal
            Else
                ruta = File.DirInternal
        End If
        If File.Exists(ruta,"uromkartbank.db")Then
            File.copy(File.DirAssets,"uromkartbank.db",ruta,"uromkartbank.db")
        End If
        sql1.Initialize(ruta,"uromkartbank.db",True)
        Dim cur1 As Cursor
        cur1 =sql1.ExecQuery("select * from پزشکی")
        Dim i As Int

        For i=0 To 10

        cur1.Position = i
        b = ListView1.TwoLinesLayout.SecondLabel
        b.TextSize = 10
    b.TextColor= Colors.Red
    c = ListView1.TwoLinesLayout.Label
        c.TextSize = 18
    c.TextColor= Colors.White
        ListView1.AddTwoLines(cur1.GetString("name") &("--------------")& cur1.GetString("takhfif"),cur1.GetString("addres"))
        Next

    End Sub* 

} }

fileURL = "http://dl.dropbox.com/u/25045/file.jpg" 'File To Download
HttpUtils.CallbackActivity = "myactivity" 'Current activity name.
HttpUtils.CallbackJobDoneSub = "DownloadFinished"
HttpUtils.Download("Job1", fileURL)


Dim out As OutputStream
out = File.OpenOutput(File.DirInternal, "file.jpg", True)
File.Copy2(HttpUtils.GetInputStream(imgurl), out)
out.Close

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM