Dim ApiKey As String="111111111111111111111"
Dim service As String="service"
Dim location As String="location"
Dim Url As String="https://api.service.com/service"
Dim job As HttpJob
Dim fd As MultipartFileData
job.Initialize("UploadHTTP_File", Me)
fd.Initialize
fd.KeyName = "file"
fd.Dir = File.DirAssets
fd.FileName = "car.png"
fd.ContentType = "image/png"
Dim Img As List
Img.Initialize
Img.Add(fd)
Dim m As Map
m.Initialize
m.Put("location", location)
m.Put("service", service)
m.Put("Api-Key", ApiKey)
'm.Put("image", Img)
job.PostMultipart(Url, m, Img)
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Log(job.GetString)
Else
Log("ERROR")
End If