Sub Class_Globals
Dim myHttp As HttpJob
Private myAnswer As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
myAnswer=""
End Sub
public Sub GentAnswer () As String
Return myAnswer
End Sub
public Sub GetFromServer(pParm As String ) As ResumableSub
myHttp.Initialize("http",Me)
myHttp.PostString( "https://www.fabioalbanese.it/api/apitest.php",pParm)
myHttp.GetRequest()
Wait For (myHttp) JobDone (myResp As HttpJob)
If myResp.Success Then
myAnswer=myResp.GetString
End If
Return 1
End Sub