Lazarus: чтение и разбор Json
Задача: прочитать Json с URL и распарсить его
Решение:
На неком удалённом ресурсе находится файл вида:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
{ "error": false, "result": [ { "dt": "2023-01-16T10:49:14", "url": "https://rfefe.грибовы.рф/?p=41", "title": "Очень важное уведомление", "text": "Олала", "read": true }, { "dt": "2023-01-15T10:49:14", "url": "https://erferf.грибовы.рф/?p=40", "title": "Очень важное уведомление 2", "text": "Олала 2", "read": false } ] } |
Сначала прочитаем файл в строку, а затем распарсим полученный json и переберем его в виде массива или выведем текст ошибки:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
procedure TForm1.LoadJson(Sender: TObject); var url, json : String; jsd: TJSONData; error : Boolean; Arr:TJSONData; i : integer; begin url := 'http://ewrdfwerf.xn--90acbu5aj5f.xn--p1ai/get_events.php'; Try json := TFPCustomHTTPClient.SimpleGet(url); Except json:='{"error": true,"result": "Ошибка получения данных"}'; end; jsd:=GetJSON(json); error := jsd.FindPath('error').AsBoolean; if error=true then begin MessageDlg(jsd.FindPath('result').AsString, mtInformation,[mbOk],0); end; if error=false then begin for i:=0 to jsd.FindPath('result').Count-1 do begin MessageDlg(jsd.FindPath('result').Items[i].FindPath('title').AsString, mtInformation,[mbOk],0); end; end; end; |
|
1 2 |