4

Чем парсить Json? Есть какие нибудь нормальные и легкие в освоении парсеры Json?

1

5 ответов 5

13

Все ведь на официальном сайте JSONа перечислены:

1
  • json-superobject оказался довольно простым и удобным спасибо.
    – zerpico
    10 сен 2012 в 2:12
2
uses
  Data.DBXJSON

//..
var
  JSONObject: TJSONObject;
begin
  JSONObject := TJSONObject.ParseJSONValue('{"name","value"}') as TJSONObject;
  ShowMessage(JSONObject.Get('name').JsonValue.Value)

но не хочет парсить данные типа {123:"value"} написал такой "патч":

class function TJSONObject.ParsePair(const Br: TJSONByteReader; const Parent: TJSONObject): Integer;
var
  Pair: TJSONPair;
  CommaPos: Integer;
begin
  Pair := TJSONPair.Create;
  Parent.AddDescendant(Pair);

//  CommaPos := ParseString(Br, Pair); /////////////////////////////////////////
{ Заміна щоб бачило рядки типу {33:33}
  ConsumeWhitespaces(Br);
  if Br.PeekByte in [Ord('0')..Ord('9')] then
    CommaPos := ParseNumber(Br, Pair)
  else
    CommaPos := ParseString(Br, Pair);
{/}

  if CommaPos > 0 then
  begin
    ConsumeWhitespaces(Br);
    if Br.Empty then
      Exit(-Br.Offset);
    if Br.PeekByte <> Ord(':') then
      Exit(-Br.Offset);
    Br.ConsumeByte;
    ConsumeWhitespaces(Br);
    CommaPos := ParseValue(Br, Pair);
  end;
  Result := CommaPos;
end;

Просто замени соответствующую функу (можешь сохранить в другом файле)

1

Начиная с Delphi 2010 присутствует встроенная поддержка json (модуль Data.DBXJSON) в рамках технологии dbExpress, также в дополнение к уже перечисленным библиотекам, появилась еще одна от Andreas Hausladen, автора IDE Tools для Delphi: Json Data Objects, поддерживаются версии начиная с 2009.

1

Результата стоило бы стыдиться, но меня не устроил ни один из имевшихся вариантов, поэтому я написал свой: https://github.com/badunius/myJSON

UPD: Не устроила прежде всего громоздкость, требующая для работы со вложенностью либо заводить орду переменных, либо выстраивать чересчур нечитаемые цепочки. Приведение типов хоть и прогрессивно, но тоже читабельности не добавляет. Я привык работать с JSON в JS, поэтому мне была важна максимальная сходность синтаксиса.

Ах да, и главным требованием, конечно, была совместимость с Delphi 7, потому что я всё ещё ею пользуюсь.

4
  • 2
    Пожалуй, вам стоит подробнее описать, чем именно вас не устроили имеющиеся варианты и чем хороша ваша версия. Пока пост скорее рекламного характера, чем информационного.
    – A K
    7 янв 2019 в 16:49
  • 1
    почему удаляются табы и переносы строк сразу со всей строки? а если одно из свойств будет строкой содержащей эти символы?
    – Grundy
    7 янв 2019 в 17:00
  • @Grundy насколько я помню, в JS-строках перенос строки, возврат каретки и табуляция передаются сочетаниями символов \n, \r и \t соответственно. То есть, когда я в блокноте набираю \t, он не превращается автоматически в $09. Соответственно $09 и $20 используются только для форматирования текста. VS Code, например, разорванную переносом строку-значение в JSON валидной не считает.
    – badunius
    8 янв 2019 в 22:47
  • @badunius, да, действительно. json более строг :-)
    – Grundy
    9 янв 2019 в 6:44
0

В последних версиях Delphi, есть встроенная библиотека JSON

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.