[JSON] Utilisation de l'API SuperObject

Bonjour,
J'essaye d'utiliser l'API SuperObject de Progdigy, mais sans succès :(.
D'abord j'ai essayé comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure Test1(); var soJSON: TSuperObject; begin soJSON := TSuperObject.Create('{"toto":"tutu"}'); try WriteLn(soJSON.S['toto']); finally soJSON.Free(); end; end;

---

Mais je n'ai aucun résultat.

Alors j'ai suivis l'aide succincte disponible sur le Wiki.

Code:

---

1 2 3 4 5 6 7

procedure Test2(); var soJSON: ISuperObject; begin soJSON := SO('{"toto":"tutu"}'); WriteLn(soJSON.S['toto']); end;

---

Mais là j'ai droit à une violation d'accès :cry:.

Quelqu'un a déjà utilisé cette API. Et si oui, comment ?

Code:

---

1 2 3 4 5 6 7

procedure Test2(); var soJSON: ISuperObject; begin soJSON := SO('{"toto":"tutu"}'); WriteLn(soJSON.AsObject.S['toto']); end;

---

C'est pas mieux ?
cf le wiki justement
mais de mémoire il y a plein d'exemples et de tests dans les sources

:cry: Ça marche toujours pas. J'ai le message d'erreur :

Citation:

---

Notification d'une exception du débogueur
Le projet TestJSON.exe a provoqué une classe d'exception EIntOverflow avec le message 'Débordement d'entier'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

---

L'API fonctionne avec Delphi 7 ou il me faut une version plus récente ?

Delphi 7 , normalement oui, puisque cela fonctionne aussi avec FreePascal

mais chez moi en 2010 c'est sans pb et très efficace

Code:

---

1 2 3 4 5 6 7 8 9

procedure TMainForm.btn1Click(Sender: TObject); var soJson: ISuperObject; begin soJSON := SO('{"toto":"tutu"}'); ShowMessage(soJson.AsString); ShowMessage(soJson.AsJSon(true)); ShowMessage(soJson.AsObject.S['toto']); end;

---