https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=Create_%28TJSon%29
Create (TJSon) - Historique des versions
2026-04-26T01:35:10Z
Historique pour cette page sur le wiki
MediaWiki 1.18.6
https://frp.sage.fr/wiki1000/index.php?title=Create_(TJSon)&diff=9195&oldid=prev
Syfre le 6 janvier 2014 à 15:48
2014-01-06T15:48:19Z
<p></p>
<table class='diff diff-contentalign-left'>
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr valign='top'>
<td colspan='2' style="background-color: white; color:black;">← Version précédente</td>
<td colspan='2' style="background-color: white; color:black;">Version du 6 janvier 2014 à 15:48</td>
</tr><tr><td colspan="2" class="diff-lineno">Ligne 27 :</td>
<td colspan="2" class="diff-lineno">Ligne 27 :</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   showMessage(S);</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   showMessage(S);</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>end;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>end;</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></source></ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">Exemple, qualification d'une adresse avec Google geocode : </ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"><source lang="delphi"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">//Procedure TestGeocode;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">var http:THttpClient; json:TJson; lat,long:Double;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">begin</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  http := ThttpClient.Create(nil);</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  http.URL := 'https://maps.googleapis.com/maps/api/geocode/json?sensor=false&address=71 Route d''Enghien,92160,France';</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  try</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    http.Execute;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    json := TJson.Create(http.ResponseStr);</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    lat := StrToFloat(json.results[0].geometry.location.lat);</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    long := StrToFloat(json.results[0].geometry.location.lng);</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    ShowMessage(Format('%0.5f,%0.5f',[lat,long]));</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  except</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">    ShowMessage(http.ErrorText);</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  end;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">end;</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></source></div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div></source></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr>
</table>
Syfre
https://frp.sage.fr/wiki1000/index.php?title=Create_(TJSon)&diff=9072&oldid=prev
Syfre : a déplacé Create (TJson) vers Create (TJSon)
2013-12-06T12:15:13Z
<p>a déplacé <a href="/wiki1000/index.php/Create_(TJson)" class="mw-redirect" title="Create (TJson)">Create (TJson)</a> vers <a href="/wiki1000/index.php/Create_(TJSon)" title="Create (TJSon)">Create (TJSon)</a></p>
<table class='diff diff-contentalign-left'>
<tr valign='top'>
<td colspan='1' style="background-color: white; color:black;">← Version précédente</td>
<td colspan='1' style="background-color: white; color:black;">Version du 6 décembre 2013 à 12:15</td>
</tr></table>
Syfre
https://frp.sage.fr/wiki1000/index.php?title=Create_(TJSon)&diff=9071&oldid=prev
Syfre : Page créée avec « <source lang="delphi">constructor Create(const iJsonString:string);</source> Cette méthode instancie un objet TJSon et parse le document. Exemples: <source lang="delph... »
2013-12-06T12:15:01Z
<p>Page créée avec « <source lang="delphi">constructor Create(const iJsonString:string);</source> Cette méthode instancie un objet TJSon et parse le document. Exemples: <source lang="delph... »</p>
<p><b>Nouvelle page</b></p><div><source lang="delphi">constructor Create(const iJsonString:string);</source><br />
<br />
Cette méthode instancie un objet TJSon et parse le document.<br />
<br />
Exemples:<br />
<br />
<source lang="delphi"><br />
//Procedure JsonParser;<br />
var json:TJson; S,stag:string; idx:Integer;<br />
begin<br />
json := TJson.Create(<br />
'{<br />
"employees": [<br />
{ "firstName":"John" , "lastName":"Doe" },<br />
{ "firstName":"Anna" , "lastName":"Smith" },<br />
{ "firstName":"Peter" , "lastName":"Jones" }<br />
]<br />
}'<br />
);<br />
<br />
S := '';<br />
for idx:=0 to json.employees.count-1 do<br />
begin<br />
S := S+stag+json.employees[idx].firstName;<br />
stag := ',';<br />
end;<br />
showMessage(S);<br />
end;<br />
<br />
</source><br />
<br />
Voir aussi:<br />
<br />
[[Category:TJson]]</div>
Syfre