Парсинг JSON и вывод token

[ffirstal4]

Доброго времени суток. Ребят подскажите как правильно спарсить данный json. Не могу вытащить token. Буду признателен за любую подсказку.

Сам JSON
{"success":true,"userName":"******* ","username":"*******","userId":"e0 1b8939-4a2d-488e-9ce2-e9d904dff767","seller":303692,"home Country":"CA","email":"6821652@mail .ru","token":"iWCoSnhuw+AuzG2MDGuNx Bvebd7p+3EDDZQP7J5Z9/hjbO2w0AtIit0Lg2gMSbdtkHw0zyqai+z/OXRGgduIA1EZubNhv/38y6T1DavhFAq6EHGM8POTew3nVgxEAcHwA iLpYEahqeyzDmbRngQPisZL6rEZ1jdvRfhP GUVYVU+ZoRnS+LAuLIUFr3s21OyZOiy6+57 ryHh43PSxt01fxh4Yt9XOl8GyPjsTerE9l0 sVSo3rhymALZTW+wZG+/YKlsc1YbwW1kEkcYYVnw4KPlYSYDGptnCJK ejUe3mCIG49sBwFz+c0k6gWyzwyP2rmdVh0 BCWVI2CDCdsmrIXVG25oU+vf9wgy6+Eh9FZ C9ReIPsSjPnYC7IRza7U6WnRWknMqu8IvfX wQvCfHbSHeKzuWGtxsvgjH4oxuHuX03E6wj LUw7TujYYSiFJKn83OrtEkSoetNznW+23NB cA1alCBgna9MVvBokNGf3ULSGlDl04wTTW4 HwXlPWVQibayyuaYrWuBUDGG3e7OHTblAih jJIGHcISEDFk829IeJt5e7Y+ZLUVubhb0eD puxImcGOqNq8kBzf/XFTBw1HNS8JH8+1LOoPDQEed5zVoKKFVDTX ZiAMXew5Fl1FhRAkdFjSGEoyqQ9wE+Q8acP 1xvzhj/7dwnWVa7+WS2+e+nyLTU=","sessionHand le":"eb341804-3290-4e59-b1ea-c41720dfba8f","tokenTtl":"0","provi so":128,"gravatar":"**************" ,"redirect":false,"redirectHost":nu ll}




Пытаюсь спарсить таким образом:

var
A: ISuperArray;
ItemS: ISuperObject;
i: Integer;
token_response: string;
begin
Form1.mmo2.Clear;
i := 0;
A := TSuperArray.Create(token); // В token находится сам JSON
ItemS := A.O[i];
token_response := ItemS.S['token'];
Form1.mmo2.Lines.Add(token_response );

PS заранее спасибо

[Sciv]

Может таки имеет смысл примером воспользоваться: http://www.webdelphi.ru/2012/04/pars...cos/#more-6796
или этим:
http://www.programmersforum.ru/showthread.php?t=293855

[ffirstal4]

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

Может таки имеет смысл примером воспользоваться: http://www.webdelphi.ru/2012/04/pars...cos/#more-6796
или этим:
http://www.programmersforum.ru/showthread.php?t=293855

Делаю так:

var
JSONObject, GContact: ISuperObject;
JsonArray: ISuperArray;
i: integer;
token_response: string;
begin
JSONObject := TSuperObject.Create;
JSONObject := SO(token);
token_response := JSONObject.O[''].S['token']; ///S['token'];
mmo2.Lines.Clear;
mmo2.Lines.Add(token_response);

Ругается на S


B Не понимаю что надо ставить в JSONObject.O[''] если там простой массив.



[dcc32 Error] Main.pas(98): E2251 Ambiguous overloaded call to 'SO'
[dcc32 Error] Main.pas(98): E2010 Incompatible types: 'XSuperObject.ISuperObject' and 'superobject.ISuperObject'

[Sciv]

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

B Не понимаю что надо ставить в JSONObject.O[''] если там простой массив.

.O[0].

Ни о чём не говорит?

[ffirstal4]

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

.O[0].

Это да я понял. Но чего тогда ошибка на JSONObject := SO(token);?
Прошу прощения за не знание данного момента.

[Sciv]

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

Но чего тогда ошибка на JSONObject := SO(token);?

Судя по ошибкам, она тащит SO не из того класса ('XSuperObject.ISuperObject' and 'superobject.ISuperObject').

Видимо, в обоих этих классах есть перегруженная SO.

Очень похоже, что это ошибка не в Вашем коде, а в исходниках ISuperObject.

[Sciv]

Посмотрел исходник SO на гитхабе (https://github.com/onryldz/x-superob...erObject.pas):

function SO(JSON: String): ISuperObject;
begin
  if JSON = '' then JSON := '{}';
  Result := TSuperObject.Create(JSON);
end;

Получается, что экземпляр интерфейса создаётся внутри функции. Следовательно, нужно убрать

JSONObject := TSuperObject.Create;

из кода. А то получается, что пытаемся в уже существующий объект засунуть ещё один объект