Italian java.lang.RuntimeException: JSON Array expected.

drgottjr said:

è necessario sapere (o conoscere) prima il formato della risposta del server. json? sì o no.
qual è il formato esatto della risposta? no c'è maniera di indovinare. nel tuo caso, invia un json
array (si suppone...).

un json array (normalmente) sarebbe composto di una serie di oggetti json.
il formato della risposto te dice dove si trovano questi oggetti (e possibilmente altri array).
metti una risposta intera dentro di uno .zip e lascialo qui nel forum. o dammi il "query"
(job.PostString("https://appmacro.netsons.org/app/connessione.php", Query)) lo faro io.
___/

Click to expand...

Sub FetchCountriesList

    Dim fSql As String
    ProgressDialogShow("Fetching lista service")
    
    Log(" FetchCountriesList 218")
    
    lblTmp.text ="Elenco per data"
    
    
        fSql=" SELECT idcall, datacall, app_service.idcli, ragsociale , datasched, idserv, idagente, noterichiesta ,flagclose, flagtodo  "
        fSql=fSql & " FROM app_service INNER JOIN app_clienti on app_service.idcli = app_clienti.codice "
        fSql=fSql & " WHERE flagclose ='0' AND idserv ='1' AND flagtodo ='0' ORDER BY datacall, idcli "
           
    ExecuteRemoteQuery(fSql, service_list)
    
    ToastMessageShow("...carico lista",False)
    Log("FetchCountriesList-----")
    
End Sub

Sub ExecuteRemoteQuery(Query As String, JobName As String)
    
    Log(" ExecuteRemoteQuery line 342")
    Dim job As HttpJob
    job.Initialize(JobName, Me)
    job.PostString("https://appmacro.netsons.org/app/connessione.php", Query)
End Sub

drgottjr said:

il progetto + 2 screen caps

Click to expand...

Sagenut said:

[OT]
Voglio fare i miei Complimenti a @drgottjr per l'impegno che mette nell'aiutare su un problema scrivendo in Italiano. Sei Spagnolo?

I want to Congratulate with @drgottjr for his effort to help on a problem writing in Italian.
Are you Spanish?
[/OT]

Click to expand...

MARCO CORRIAS said:

Sei un grande ..... G R A Z I E

Click to expand...

drgottjr said:

il progetto + 2 screen caps

Click to expand...

MARCO CORRIAS said:

Scusa ,@drgottjr

in qualche esempio nel forum ho trovato che a fine lettura inseriscono anche questo

wjob.Release

che dici ??

Grazie

Click to expand...

drgottjr said:

maledetto! non così grande sono; lo ho dimenticato:

B4X:

    Wait For (wjob) JobDone(wjob As HttpJob)
    If wjob.Success Then
        Dim text As String = wjob.GetString
'        Msgbox(text, "FYI:")

        wjob.release   ' <<<<<<<<<<<<<<< si elemina un archivio provissorio "invisibile"

si deve cancellare un archivio provissorio. la risposta del server è mantenuta in questo archivio (si deve guardar nella classe okhttputils2 per vederlo). altrimente, sono accumulati: temp1, temp2, temp3, ecc. wjob si da un numero contatore chi ascende. se si cancella l'archivio, il contatore ricomincia.
si cancella l'archivio quando la risposta è ben ricevuta.

Click to expand...

drgottjr said:

il progetto + 2 screen caps

Click to expand...

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
 
 
    Dim query As String = "SELECT idcall, datacall, app_service.idcli, ragsociale , datasched, idserv, idagente, noterichiesta ,flagclose, flagtodo FROM app_service INNER JOIN app_clienti on app_service.idcli = app_clienti.codice WHERE flagclose ='0' AND idserv ='1' AND flagtodo ='0' ORDER BY datacall, idcli"
    Dim wjob As HttpJob
    wjob.Initialize("",Me)
    wjob.PostString("https://appmacro.netsons.org/app/connessione.php", query)
    Wait For (wjob) JobDone(wjob As HttpJob)
    If wjob.Success Then
        Dim text As String = wjob.GetString
          
        Dim json As JSONParser
        Try
            json.Initialize( text )
        Catch
            ToastMessageShow("Text: Could not initialize json...", False)
            Return
        End Try
    
        Dim list As List
        Try
            list = json.NextArray
        Catch
            Log(LastException)
            ToastMessageShow("List: Error with json array: " & LastException.Message, "true")
            Return
        End Try
        '.... codice
        
        '       ... codice
    Else
        Msgbox("error: " & LastException.Message, "Uh oh")
    End If
 
    wjob.Release
 
End Sub

drgottjr said:

una richiesta prevede un json array.
inserire prevede un OK o qualcosa di simile. ossia testo.
ma il servir probabilmente risponderà con json, un oggetto json,
no un array.

fai una prova con wjob.getString per vedere esattamente qual'e
la risposta. {"answer":"ok"} e un oggetto json.

ho detto fa molto tempo che potresti avere 2 oppure 3 jobs:
uno che prevede array, altro che prevede un'oggetto, e uno che
prevede un testo semplice. dai un nome distinto ai jobs:
dopo cherchi el wjob.name

B4X:

    If wjob.Success Then
        Dim text As String = wjob.GetString
          
        Dim json As JSONParser
        Try
            json.Initialize( text )
        Catch
            ToastMessageShow("Text: Could not initialize json...", False)
            Return
        End Try

        select wjob.name
            case "richesta"
                    Dim list As List
                    Try
                       list = json.NextArray
                     ....

            case "inserire"
                     log("risposta: " & text)

                  OPPURE  (secondo il tipo di risposta ...)
                    Dim jmap As map
                    Try
                       jmap = json.NextObject
                     ....
        end select

per un "inserire", io no so come sara la risposta. presumo json.
fai una prova e guarda la risposta. lo faro io sta sera.
vediamo se riesci a farlo prima

Click to expand...

<?php

$databasehost = "xx.xx.xx.xx....";
$databasename = "dbname";
$databaseusername ="user";
$databasepassword = "password";

$con = mysqli_connect($databasehost,$databaseusername,$databasepassword, $databasename) or die(mysqli_error($con));
mysqli_set_charset ($con , "utf8");
$query = file_get_contents("php://input");
$sth = mysqli_query($con, $query);

if (mysqli_errno($con)) {
   header("HTTP/1.1 500 Internal Server Error");
   echo $query.'\n';
   echo mysqli_error($con);
}
else
{
   $rows = array();
   while($r = mysqli_fetch_assoc($sth)) {
     $rows[] = $r;
   }
   $res = json_encode($rows);
    echo $res;
    mysqli_free_result($sth);
}
mysqli_close($con);
?>

drgottjr said:

la richiesta e sbagliata. hai mai fatto un "insert"? come era la risposta? il codice che hai messo non ha niente a che fare con un "insert"; e la risposta a un "select". per il momento non posso dirte quello che non va. lo provaro fra poco. l'errore dice che il server aspettava certa cosa, ma tu gli hai dato altra cosa... questo è il motivo per cui si deve usare sempre "try". sicuro che la richiestra e buona? corretta? guardala attentamente

Click to expand...

drgottjr said:

capisco le parole, ma non il significato. devo domandarte di nuovo: hai mai fatto un insert con successo? e cual'era la risposta? ci sono aspetti della richiesta che hai fatto che non mi sembrano giuste. qual'e il formato del "table"? c'e documentazione che posso legere? (documentazione sul server, non su mysql, voglio dire.)
non si deve fare una richiesta ad un server senza sapere come sara la risposta. non e possibile fare una app senza sapere. riprova

Click to expand...