Sub postgambar
Dim j As HttpJob
Dim img As String = filename
Dim mp As MultipartFileData
mp.Initialize
mp.Dir = File.DirRootExternal & "/Android"
mp.FileName = img
mp.KeyName = "file"
mp.ContentType = "image/jpg"
j.PostMultipart("
http://pertanian.tech/uploaddata.php", Null, Array(mp))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
If img = j.GetString Then
ToastMessageShow("Imagen Cargada.", False)
Else
ToastMessageShow("Error al cargar Imagen.", False)
End If
End If
j.Release
End Sub