Dim j As HttpJob
j.Initialize("j", Me)
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "xxxxxxx"
fd.Dir = File.DirInternal
fd.FileName = "xxxxx.db"
fd.ContentType = "application/octet-stream"
j.GetRequest.Timeout = 0
j.PostMultipart("https://abcd.mydomain.com/application/", CreateMap("uid": "12345","authkey":
"abcdef","appver":"1"), Array(fd))
ProgressDialogShow2("Uploading data. Please wait...",False)
Sub JobDone(job As HttpJob)
ProgressDialogHide
If(job.JobName = "j")Then
If job.Success Then
Msgbox("Data uploaded successfully","Success")
Else
Msgbox("Error: " & job.ErrorMessage, "Error")
End If
End If
End Sub