The Demo Services/Simple works well.
But the exact same Code in my Application compiled fine.
At runtime i get an Error in the browser and it dont work.
Part of the code:
procedure TForm1.WebHttpRequest1Response(Sender: TObject; AResponse: string);
var
js: TJSON;
ja: TJSONArray;
jo: TJSONObject;
i: integer;
begin
js := TJSON.Create;
try
ja := TJSONArray(js.Parse(AResponse));
ShowMessage('Retrieved items:' +inttostr(ja.Count));
var
js: TJSON;
ja: TJSONArray;
jo: TJSONObject;
i: integer;
begin
js := TJSON.Create;
try
ja := TJSONArray(js.Parse(AResponse));
ShowMessage('Retrieved items:' +inttostr(ja.Count));
The error message is :
ERROR
TypeError: ja.GetItem$1 is not a function
TypeError: ja.GetItem$1 is not a function