Sub CC_Result(Success As Boolean, Dir As String, FileName As String)
If Success Then
File.Copy(Dir, FileName, File.DirInternal, "sesizare.jpg")
ImageViewPoza.Bitmap = LoadBitmap(Dir.Internal, "sesizare.jpg")
End If
End Sub
Sub ButtonTrimite_Click
Dim jobSend As HttpJob
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "file"
fd.Dir = File.DirInternal
fd.FileName = "sesizare.jpg"
fd.ContentType = "image/jpeg"
Dim flist As List
flist.Initialize
flist.Add(fd)
Dim NameValues As Map
NameValues.Initialize
NameValues.Put("id", "1")
NameValues.Put("location", "home address")
jobSend.Initialize("JobSendSesizare", Me)
ProgressDialogShow2("Asteptati va rog...", False)
jobSend.PostMultipart("http://api.xxxxxxxx.eu/api/uploadfile",NameValues,flist)
jobSend.GetRequest.Timeout = 60000
Wait For (jobSend) JobDone(jobSend As HttpJob)
Dim data As String = jobSend.GetString
jobSend.release
Log(data)
ProgressDialogHide
End Sub