Sub mnuRefresca_Click()
Dim htJob As HttpJob
Dim strXML As String = File.ReadString(File.DirAssets, "ObtemEmpresas.xml")
'Dim strXML As String = File.ReadString(File.DirAssets, "Autenticacao.xml")
Log(strXML)
htJob.Initialize("htJob", Me)
htJob.PostString("http://www.*****.pt:82/ws/Autenticacao/AutenticacaoCliente.svc?wsdl", strXML)
htJob.GetRequest.SetContentType("text/xml; charset=utf-8")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
'print the result to the logs
Log(Job.GetString2("UTF8"))
ToastMessageShow(Job.GetString2("UTF8"),True)
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub