krapotkin, спасибо!
Публикую, может кому-то пригодится..
на стороне PHP:
$query1 = "SELECT ... FROM `...`;";
$query2 = "SELECT ... FROM `...`;";
$query3 = "SELECT ... FROM `...`;";
$query4 = "SELECT ... FROM `...`;";
function GetValuesAsJson($query, $Link)
{
if ($DBResult = mysqli_query($Link, $query)) {
$ResultArray = array();
$Index = 0;
while ($row = mysqli_fetch_array($DBResult, MYSQLI_ASSOC))
{
$ResultArray[$Index] = $row;
$Index++;
}
$ResultJSON = json_encode($ResultArray, JSON_PRETTY_PRINT | JSON_UNESCAPED_UNICODE);
return $ResultJSON;
mysqli_free_result($DBResult);
}
};
echo '{"Arr1":'. GetValuesAsJson($query1, $DBLink).', "Arr2":'.GetValuesAsJson($query2, $DBLink).', "Arr3":'.GetValuesAsJson($query3, $DBLink).', "Arr4":'.GetValuesAsJson($query4, $DBLink).'}';
mysqli_close($DBLink);
на стороне delphi:
xJS := SO(aJSON);
with xJS.A['Arr1'] do // имя массива
begin
for j := 0 to length - 1 do
begin
xObj := O[j];
Memo1.Lines.Add(xObj.S['cities_name']); // собираем нужные данные
...
end;