in this code:
if rename de sub jobdone2 to jobdone all is ok, but this code no stop in the wait for.
(i use okhttputils2 2.95 library)
B4X:
public Sub GetData() As ResumableSub
Dim J As HttpJob
Dim RequestSoapXML As String
J.Initialize(J.JobName ,Me)
RequestSoapXML =$"<?xml version='1.0' encoding='utf-8'?>
<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>
<soap:Body>
<GetProveedores xmlns='http://tempuri.org/' />
</soap:Body>
</soap:Envelope>"$
j.PostString("http://www.loquesea.com/proveedor.asmx",RequestSoapXML)
j.GetRequest.SetContentType ("text/xml; charset=utf-8")
j.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
wait for (j) JodDone(j As HttpJob) 'ERROR, JOBDONE <> JODDONE
'
If j.Success Then
Log(j.GetString)
'
Else
Log("Error:" & job.ErrorMessage)
'
End If
J.Release
Return True
End Sub
Sub JobDone2 (job As HttpJob)
Log(">JobDone EN FRM:" & job.JobName & ";FIN")
If job.Success = True Then
'Msgbox(job.GetString,"")
Log( job.GetString)
End If
End Sub
if rename de sub jobdone2 to jobdone all is ok, but this code no stop in the wait for.
(i use okhttputils2 2.95 library)
Last edited: