Por ejemplo:
Donde Imagenes es un List, inicializado antes y el script PHP devuelve 0 cuando no ha podido guardar la imagen.
Un saludo.
B4X:
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "check"
fd.Dir = File.DirInternal
fd.FileName = Filename
fd.ContentType = "image/jpg"
Imagenes.Add(fd)
Dim j As HttpJob
j.Initialize("",Me)
j.PostMultipart("http://checkcondo.descartexapps.es/api/action",CreateMap("action":"file","item_id":FileName(1),"task_id":FileName(0)),Imagenes)
Wait For (j) JobDone(Done As HttpJob)
Log(Done.GetString)
If Done.GetString<>"0" Then
Log(File.Delete(File.DirInternal,f))
End If
Un saludo.