Wie liest man denn bestehende JSON Daten aus?
Hab durch nen GET an ne
API einiges an JSON-Daten zurückgeliefert bekommen und werd aus der Readme nicht sonderlich schlau.
{
"id": 3,
"description": "Mithilfe des Gitlab
API Tester Programm ist es simpel Gitlab
API Issues automatisiert zu erstellen. Das folgende Programm dient zu Veranschaulichung & Funktionsweise der Parameter.",
"default_branch": "master",
"public": false,
"archived": false,
Möchte in dem Fall "id" also die "3" auslesen, funktioniert aber leider nicht so wie es sollte:
Delphi-Quellcode:
procedure TMainForm.GetAllProjects(APIUrl, Token: String);
var
HTTP : TIdHTTP;
Cookie : TIdCookieManager;
SSL : TIdSSLIOHandlerSocketOpenSSL;
GetRes : String;
Params : TStringList;
data : ISuperObject;
dataArray : TSuperArray;
test: String;
i, i2: Integer;
Item : TListItem;
begin
HTTP := TIdHTTP.Create(NIL);
Cookie := TIdCookieManager.Create(HTTP);
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
HTTP.CookieManager := Cookie;
HTTP.IOHandler := SSL;
HTTP.HandleRedirects := True;
HTTP.Request.UserAgent :=
'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
HTTP.AllowCookies := True;
Params := TStringList.Create;
Cookie.CookieCollection.Clear;
APIUrl := APIUrl + 'projects/all?private_token=' + Token;
GetRes := HTTP.Get(APIUrl);
data := SO(GetRes);
test := data..AsObject.S['id']; // get a string; //crap will net :(
HTTP.Free;
end;