Работа с JSON

[nibufep]

Есть ли в delphi стандартные модули для работы с JSON, если есть то покажите пример как распарсить например такой код:

{
  "name": "named1234",
  "id1": 0,
  "id2": 269296463
}

[VIK_aka_TOR]

это добавляем в uses

{$IF CompilerVersion >= 27}System.JSON{$ELSE}DBXJSON{$IFEND}

затем

var
  JsonObj: TJSONObject;
  name: string;
  id1, id2: integer;
begin
  // AJsonString - JSON текст приведенный вами выше 
  JsonObj := TJSONObject.ParseJSONValue(AJsonString) as TJSONObject;
  try
    if Assigned(JsonObj) then
    begin
      name := JsonObj.Get('name').JsonValue.Value;
      id1 := JsonObj.Get('id1').JsonValue.Value;
      id2 := JsonObj.Get('id2').JsonValue.Value;
    end
    else
      ShowMessage('Некорректная структура данных');
  finally
    JsonObj.Free; // не забываем чистить за собой
  end;
end;

сей код справедлив для XЕ2, возможно и раньше, но нужно гуглить. если дельфа старше - библиотека SuperObject в помощь.

[nibufep]

а если например код будет такой:

{
  "response": [
    {
      "id": 123,
      "name": "qw",
      "name2": "qw2"
    }
  ]
}

[VIK_aka_TOR]

что-то подобное тогда

var
JsonObj: TJSONObject;
JsonArr: TJsonArray;

begin
...
    JsonObj := TJSONObject.ParseJSONValue(AJsonString) as TJSONObject;
    if Assigned(JsonObj) then
    begin
      JsonArr := JonObj.Get('response').JsonValue as TJSONArray;
      // в массиве нумерация начинается с 0, можно узнать 
     // JsonArr.Size -кол-во элементов в массиве, и запихнуть все это в цикл и тому подобное
      name := (JsonArr.Get(0).JsonValue as  TJSONObject).Get('name').JsonValue.Value;
      id1 := (JsonArr.Get(0).JsonValue as  TJSONObject).Get('id1').JsonValue.Value;
      id2 := (JsonArr.Get(0).JsonValue as  TJSONObject).Get('id2').JsonValue.Value;
    end

в XE7 упростили и оптимизировали работу с JSON

[Человек_Борща]

ТС, изучайте что такое JSON, а то так и будите не знать что перед вами за структура и как её разобрать.

[Dmitry33RU]

[nibufep]

Сообщение от VIK_aka_TOR

что-то подобное тогда

Получаю кучу ошибок

Сообщение от VIK_aka_TOR

в XE7 упростили и оптимизировали работу с JSON

у меня XE7

[VIK_aka_TOR]

Сообщение от nibufep

Получаю кучу ошибок

у меня XE7

было бы неплохо увидеть что в тех строках

[nibufep]

Сообщение от VIK_aka_TOR

было бы неплохо увидеть что в тех строках

procedure TForm1.Button1Click(Sender: TObject);
var
JsonObj: TJSONObject;
JsonArr: TJsonArray;
id1, id2:string;
begin
    JsonObj := TJSONObject.ParseJSONValue(memo1.Text) as TJSONObject;
    if Assigned(JsonObj) then begin
      JsonArr := JsonObj.Get('response').JsonValue as TJSONArray;
      name := (JsonArr.Get(0).JsonValue as  TJSONObject).Get('name').JsonValue.Value;
      id1 := (JsonArr.Get(0).JsonValue as  TJSONObject).Get('id1').JsonValue.Value;
      id2 := (JsonArr.Get(0).JsonValue as  TJSONObject).Get('id2').JsonValue.Value;
    end
end;

[VIK_aka_TOR]

тогда так:

procedure TForm1.Button1Click(Sender: TObject);
var
JsonObj: TJSONObject;
JsonArr: TJsonArray;
id1, id2:string;
begin
    JsonObj := TJSONObject.ParseJSONValue(memo1.Text) as TJSONObject;
    try
    if Assigned(JsonObj) then begin
      JsonArr := JsonObj.Get('response').JsonValue as TJSONArray;
      name := (JsonArr.Get(0) as  TJSONObject).Get('name').JsonValue.Value;
      id1 := (JsonArr.Get(0) as TJSONObject).Get('id1').JsonValue.Value;
      id2 := (JsonArr.Get(0) as  TJSONObject).Get('id2').JsonValue.Value;
    end
    finally
      JsonObj.Free; // учитесь за собой убирать
    end;
end;