Discussion :

[ILP]

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

Code Pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

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 Pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

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

[makowski]

Code Pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ILP]

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

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 ?

[makowski]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;