private Sub CallWS(callMode As Int, WSName As String, Firmed As Boolean, JSONData As String)
LastCallType = callMode
Dim j As HttpJob
j.Initialize(WSName, Me)
Dim BC As ByteConverter
Dim Data() As Byte = BC.StringToBytes(JSONData, "utf-8")
If callMode = CALL_MODE_POST Then
'j.PostString(EndPoint & WSName, JSONData)
j.PostBytes(EndPoint & WSName, Data)
Else
j.Download(EndPoint & WSName & JSONData)
End If
j.GetRequest.Timeout = 25000
j.GetRequest.SetHeader("Content-Type", mContentType & ";charset=utf-8")
'j.GetRequest.SetContentType(mContentType)
'j.GetRequest.SetContentEncoding("UTF-8")
If Firmed = True Then
j.GetRequest.SetHeader("Authorization", "Bearer " & mFirm)
If callMode = CALL_MODE_POST Then
End If
End If
' Azzera le variabili impostate in precedenza
If mVars.IsInitialized = True Then mVars.Clear
mVars.Initialize
If mList.IsInitialized = True Then mList.Clear
mList.Initialize
End Sub