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 := '';
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;