Dim imagens As List
imagens.Initialize
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "bawahan1.jpg"
fd.Dir = File.DirInternal
fd.FileName = "bawahan1.jpg"
fd.ContentType = "image/JPEG"
imagens.Add(fd)
Dim tempFilePath As String = File.DirInternal &"/"& "bawahan1.jpg"
Dim j As HttpJob
j.Initialize("j", Me)
Dim postData As Map
postData.Initialize
'postData.Put("textinfo","somedata")
'postData.Put("image",tempFilePath)
postData.Put("latitude",latitude)
postData.Put("longitude",longitude)
postData.Put("kategori",kategori)
postData.Put("jenis",jenis)
postData.Put("idTransaksi",idTransaksi)
postData.Put("nik",nik)
j.PostMultipart(url_absensi,postData,imagens)
j.GetRequest.SetHeader("Authorization",general.token)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
If j.Response.StatusCode =200 Then
Dim result As String =j.GetString
Log(result)
End If
Else
Log(j.ErrorMessage)
End If