Android Question OkHttpUtils2

[Angelo Messina]

Double updates

public static int ClientPost(String Sito,String nanno,String nmese,String ngiorno,String nkwh) throws IOException
{
    try
     {
      // Dati da inviare al server
        String anno   = nanno;
        String mese   = nmese;
        String giorno = ngiorno;
        float kwh     = Float.parseFloat(nkwh);
        String requestBody = "anno=" + anno + "&mese=" + mese + "&giorno=" + giorno + "&kwh=" + kwh;
        // Creazione dell'URL del server
        URL url = new URL(Sito+"/"+requestBody);
        // Creazione della connessione HTTP
        HttpURLConnection conn = (HttpURLConnection) url.openConnection();
        conn.setRequestMethod("POST");
        conn.setDoOutput(true);
        conn.setRequestProperty("Content-Type", "text/plain");
         System.out.println("POST Richiesta " + requestBody);

        // Invio del corpo della richiesta
        try (OutputStream os = conn.getOutputStream())
        {
               byte[] input = requestBody.getBytes(StandardCharsets.UTF_8);
               os.write(input);
            os.flush();
        }
        // Controllo della risposta del server
        int responseCode = conn.getResponseCode();
        // System.out.println("Response Code: " + responseCode);
        // Chiusura della connessione
        conn.disconnect();
        return responseCode;
    }
    catch (Exception e)
    {
        System.out.println("Errore del Server");
        return 500;
    }
}

public static int ClientPut(String Sito,int ID,String nanno,String nmese,String ngiorno,String nkwh) throws IOException
{
    try
      {
          // Dati da inviare al server
          int id1    = ID;
        String anno   = nanno;
        String mese   = nmese;
        String giorno = ngiorno;
        float kwh     = Float.parseFloat(nkwh);
        String requestBody = "id=" + id1 + "&anno=" + anno + "&mese=" + mese + "&giorno=" + giorno + "&kwh=" + kwh;
        // Creazione dell'URL del server
        URL url = new URL(Sito+"/"+requestBody);
        // Creazione della connessione HTTP
        HttpURLConnection conn = (HttpURLConnection) url.openConnection();
        conn.setRequestMethod("PUT");
        conn.setDoOutput(true);
        conn.setRequestProperty("Content-Type", "text/plain");
         // System.out.println("PUT Richiesta " + requestBody);
        // Invio del corpo della richiesta
        try (OutputStream os = conn.getOutputStream())
        {
               byte[] input = requestBody.getBytes(StandardCharsets.UTF_8);
               os.write(input);
            os.flush();
        }
        // Controllo della risposta del server
        int responseCode = conn.getResponseCode();
        // System.out.println("Response Code: " + responseCode);
        // Chiusura della connessione
        conn.disconnect();
        return responseCode;
    }
    catch (Exception e)
    {
        e.printStackTrace();
        return 500;
    }
}

 

[aeric]

Why are you posting Java code?

Please follow this tutorial for OkHttpUtils2

[B4X] OkHttpUtils2 with Wait For

Downloading resources is simpler with the new Resumable Subs feature. Using Wait For we can wait for the JobDone event in the same sub that started the download. No longer is it needed to have a single sub that handles all requests results. Simplest example: Dim j As HttpJob j.Initialize(""...

www.b4x.com

or check some similar threads.

[SOLVED]Poststring problem

hi I am trying to post json data using poststring method. It is returning always as false and the poststring method is not hitting the url at all.(ResponseError. Reason: , Response: ) However when tested from postman it works fine. Kindly help me in solving the issue. B4A...

www.b4x.com

 

[Angelo Messina]

I apologize for the inconvenience

Sub SendPut(Sito As String,n_anno As String, n_mese As String, n_giorno As String, n_kwh As String)

    Dim a As Int = 0   
    If (Vecchio>0 And Vecchio<=Cosa) Then   
        Dim job1 As HttpJob
        Dim requestBody As String
        Dim Id1 As Int = Vecchio
        job1.Initialize("job1", Me)
        Dim kwh As Float = n_kwh
        ' Costruzione del corpo della richiesta
        Dim requestBody As String = $"Id=${Vecchio}&anno=${n_anno}&mese=${n_mese}&giorno=${n_giorno}&kwh=${n_kwh}"$
        Log("PUT requestBody: " & requestBody)
        job1.PostString(Sito,"PUT")
        job1.PutString(Sito, requestBody)
        job1.GetRequest.SetContentType("text/plain")       
        Wait For (job1) JobDone(job1 As HttpJob)
        If job1.Success Then
            Log("✅ Risposta job1: " & job1.GetString)
        Else
            Log("❌ Errore job1: " & job1.ErrorMessage)
        End If
        job1.Release
    Else
        Dim job5 As HttpJob
        Dim requestBody As String
        job5.Initialize("job5", Me)
        Dim kwh As Float = n_kwh
        requestBody = $"anno=${n_anno}&mese=${n_mese}&giorno=${n_giorno}&kwh=${kwh}"$
        Log("POST Richiesta " & requestBody)
        job5.PostString(Sito,"POST")
        ' Costruzione URL completo (se il server accetta parametri nella URL)
        Dim fullUrl As String = Sito & "/" & requestBody
        ' Invio POST con corpo identico ai parametri
        Dim requestBytes1() As Byte = requestBody.GetBytes("UTF8")
        job5.PostBytes(fullUrl, requestBytes1)
        job5.GetRequest.SetContentType("text/plain")   
        Wait For (job5) JobDone(job5 As HttpJob)
        If job5.Success Then
            Log("✅ Risposta job5: " & job5.GetString)
            Return
        Else
            Log("❌ Errore job5: " & job5.ErrorMessage)
        End If
        job5.Release
        Return
    End If
End Sub

 

[Daestrum]

Try taking out this line (2 places job1 and job5) (not 100% sure as I don't do this stuff normally)

job1.PostString(Sito,"PUT")

 

[Angelo Messina]

Ok

 

[Angelo Messina]

Try

 

[Angelo Messina]

RESOLVED !!
Thank you - perfect