Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
res = Job.GetString
'' 'Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case fileUPLOAD_IMMAGINI
fx.Msgbox2(frm, "Immagine caricata correttamente","Risultato", "OK", "", "", fx.MSGBOX_INFORMATION)
Case Else
Log ("Job.JobName: " & Job.JobName )
End Select
Else
fx.Msgbox2(frm, Job.ErrorMessage, "[DATABASE] Errore", "OK", "", "", fx.MSGBOX_ERROR)
'Log ("Error: " & Job.ErrorMessage)
End If
Job.Release
End Sub