Buongiorno a tutti,
qualcuno mi sa dire perché nella seguente sub anche se ho incluso l'ultima versione della libreria okhttputils2 3.40 ricevo gli errori qui sotto riportati?
Main - 102: Membro sconosciuto: getstring
Main - 90: Impossibile convertire il tipo: {Type=String,Rank=1, RemoteObject=True} in: {Type=Byte,Rank=1, RemoteObject=True}
Main - 96: Variabile 'httputils2' non dichiarata, utilizzata prima che gli sia stato assegnato un valore.
qualcuno mi sa dire perché nella seguente sub anche se ho incluso l'ultima versione della libreria okhttputils2 3.40 ricevo gli errori qui sotto riportati?
Main - 102: Membro sconosciuto: getstring
Main - 90: Impossibile convertire il tipo: {Type=String,Rank=1, RemoteObject=True} in: {Type=Byte,Rank=1, RemoteObject=True}
Main - 96: Variabile 'httputils2' non dichiarata, utilizzata prima che gli sia stato assegnato un valore.
B4X:
Sub ControllaOperatore(username As String, password As String) As Boolean
' Esegui la richiesta HTTP al tuo server per verificare le credenziali
' Modifica la URL con il percorso del tuo script di autenticazione
Dim request As OkHttpRequest
request.InitializePost2("https://www.miosito.it/app/autenticazione.php", _
Array As String("username", "password"), _
Array As String(username, password))
' Invia la richiesta
Dim response As OkHttpResponse
response = HttpUtils2.Execute(request)
' Analizza la risposta
If response.StatusCode = 200 Then
' Il server ha risposto con successo, puoi elaborare ulteriormente la risposta se necessario
Dim result As String
result = response.GetString("UTF8")
' Modifica la logica di controllo in base alla risposta del tuo server
If result = "Success" Then
' Credenziali valide
idazienda = result ' Converte la stringa in intero
Log("ID Azienda: " & idazienda)
Return True
Else
' Credenziali non valide
Return False
End If
Else
' Errore nella richiesta HTTP
ToastMessageShow("Errore nella richiesta HTTP: " & response.StatusCode, True)
Return False
End If
End Sub