Sub Button7_Click
Dim job2 As HttpJob
'Send a POST request
job2.Initialize("Job2", Me)
job2.GetRequest.SetContentEncoding("text/xml")
job2.PostFile("http://192.168.0.101/dir/add.xml",File.DirRootExternal, "upload.xml")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Log(Job.GetString)
ToastMessageShow("Uploaded OKi!", False)
Else
'Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub