¿Programa en la nube?

[pacopenin]

Realmente no hay demasiado que explicar. Un pequeño ejemplo :

Código PHP:

    $mysql = new mysql;
    $mysql->server   = $servidor;
    $mysql->user     = $usuario_base;
    $mysql->pass     = $password_base;
    $mysql->connect();
    $mysql->select($bd);
    
    $sql= "SELECT * FROM CLIENTES";
            
    $query = $mysql->query($sql);   
    
    $rows = array();
    while($r = mysql_fetch_assoc($query)) {
        $rows[] = $r;
    }
    print json_encode($rows); 


Código Delphi [-]

  Response := TMemoryStream.Create;
  try
    TCli.EmptyTable;

    URL := 'http://localhost/test_json/test_json.php';
    Params := '';

{    Params := Params + '&nombre=' + EncodeURLElement('Francisco Penín');
    Params := Params + '&app=' + EncodeURLElement('1');
    Params := Params + '&id=' + EncodeURLElement('52b350356d63e');}

    if HttpPostURL(URL, Params, Response) then
     begin
      P:=TJSONParser.Create(StreamToString(Response));
      try
        P.Strict:=True;
        D:=P.Parse;
        TCli.disableControls;
        for i:=0 To D.Count-1 do
         begin
           T := D.Items[i];
           TCli.append;
           TCliID.asInteger := T.Items[0].AsInteger;
           TCliNombre.asString := QuitaComillas(T.Items[3].AsJSON);
           TCliDomicilio.asString := QuitaComillas(T.Items[9].AsJSON);
           TCliPoblacion.asString := QuitaComillas(T.Items[8].AsJSON);
           TCliTelefono.asString := QuitaComillas(T.Items[12].AsJSON);
           TCli.post;
         end;
      finally
        P.Free;
        TCli.enableControls;
      end;
    end;

  finally
    Response.Free;
  end;