Create (TJSon)

<source lang="delphi">constructor Create(const iJsonString:string);</source>

Cette méthode instancie un objet TJSon et parse le document.

Exemples:

<source lang="delphi"> //Procedure JsonParser; var json:TJson; S,stag:string; idx:Integer; begin

 json := TJson.Create(
  '{
   "employees": [
   { "firstName":"John" , "lastName":"Doe" },
   { "firstName":"Anna" , "lastName":"Smith" },
   { "firstName":"Peter" , "lastName":"Jones" }
   ]
   }'
 );

 S := ;
 for idx:=0 to json.employees.count-1 do
  begin
    S := S+stag+json.employees[idx].firstName;
    stag := ',';
  end;
 showMessage(S);

end; </source>

Exemple, qualification d'une adresse avec Google geocode :

<source lang="delphi"> //Procedure TestGeocode; var http:THttpClient; json:TJson; lat,long:Double; begin

 http := ThttpClient.Create(nil);
 http.URL := 'https://maps.googleapis.com/maps/api/geocode/json?sensor=false&address=71 Route dEnghien,92160,France';
 try
   http.Execute;
   json := TJson.Create(http.ResponseStr);
   lat := StrToFloat(json.results[0].geometry.location.lat);
   long := StrToFloat(json.results[0].geometry.location.lng);
   ShowMessage(Format('%0.5f,%0.5f',[lat,long]));
 except
   ShowMessage(http.ErrorText);
 end;

end; </source>

Voir aussi: