Извлечение/анализ данных, возвращаемых как JSON из PHP

Question

Я получаю данные JSON с PHP-вызова с использованием TIdHTTP. Я ожидаю использовать TJSONObject, но не могу решить, как использовать его для этой цели. И примеров в XE3 нет.

Пример JSON данные

[{"fleet_id":"2","fleet":"EMB195"},{"fleet_id":"3","fleet":"EMB175"},{"fleet_id"‌:"1","fleet":"DHC84-400Q"}] 

Я уверен, что это просто, но как!

Спасибо.

Answer 1

Использование TJsonObject.ParseJsonValue для преобразования входной строки в значение JSON:

var 
    val: TJsonValue; 

s := '[{"fleet_id":"2","fleet":"EMB195"},{"fleet_id":"3","fleet":"EMB175"},{"fleet_id"‌:"1","fleet":"DHC84-400Q"}]'; 
val := TJsonObject.ParseJsonValue(s); 

В этом случае JSON происходит представлять массив, так что вы можете печатать отливка его к тому, что:

var 
    arr: TJsonArray; 

arr := val as TJsonArray; 

Вы можете получить доступ к элементам массива с помощью Get и напечатать результаты на TJsonObject.

var 
    i: Integer; 
    elem: TJsonObject; 

for i := 0 to Pred(arr.Size) do begin 
    elem := arr.Get(i) as TJsonObject; 
end; 

Чтобы проверить свойство объекта, вы можете использовать Get метод, который возвращает TJsonPair, содержащее имя и значение.