Implémentation d'une application ThingPoint simple

De RAD Studio
Aller à : navigation, rechercher

Remonter à Présentation des ThingPoint


Vous pouvez créer une nouvelle application ThingPoint pour écouter les requêtes du serveur EMS et répondre avec les données nécessaires.

Vous avez besoin des composants suivants dans votre application ThingPoint :

  • Le composant TEMSProvider est utilisé pour configurer la connexion au serveur EMS.
  • Le composant TEMSEdgeService est utilisé pour écouter les requêtes du serveur EMS.

Vous avez besoin des composants suivants dans votre application client EMS :

  • Le composant TEMSProvider est utilisé pour configurer la connexion au serveur EMS.
  • Le composant TBackendEndpoint est utilisé pour accéder à une ressource particulière de l'application ThingPoint.

Le serveur EMS doit être configuré et en cours d'exécution pour cet exemple.

Création d'une application ThingPoint

  1. Créez une nouvelle application multi-périphérique.
    • Pour Delphi : ouvrez Fichier > Nouveau > Application multi-périphérique - Delphi
    • Pour C++ : ouvrez Fichier > Nouveau > Application multi-périphérique - C++Builder
  2. Dans la palette d'outils, recherchez un composant TEMSProvider et déposez-le sur la fiche.
  3. Dans l'inspecteur d'objets, configurez les paramètres du serveur EMS en fonction de la configuration du serveur EMS : 
    • URLHost : localhost
    • URLPort : 8080
    • URLProtocol : http
  4. Cliquez sur le bouton Tester la connexion. Si la connexion est correctement configurée, vous obtiendrez un message avec la version en cours du serveur EMS.
  5. Dans la palette d'outils, recherchez un composant TEMSEdgeService et déposez-le sur la fiche.
  6. Dans l'inspecteur d'objets, configurez les paramètres du TEMSEdgeService suivants :
    • Provider : EMSProvider1
    • ModuleName : WinEdge1
  7. Dans l'inspecteur d'objets, configurez les paramètres du TEMSEdgeService pour écouter les requêtes du serveur EMS :
    • ListenerProtocol : http
    • ListenerService.Host : localhost
    • ListenerService.Port : 8081
  8. Construisez et exécutez votre application. Cliquez sur F9 ou Exécuter.
    Remarque : Vous pouvez exécuter une application ThingPoint seulement sur les plates-formes cible Windows 32 bits, Windows 64 bits et OS X.

Création d'une application client EMS pour récupérer les données ThingPoint

  1. Créez une nouvelle application multi-périphérique :
    • Pour Delphi : ouvrez Fichier > Nouveau > Application multi-périphérique - Delphi
    • Pour C++ : ouvrez Fichier > Nouveau > Application multi-périphérique - C++Builder
  2. Dans la palette d'outils, recherchez un composant TEMSProvider et déposez-le sur la fiche.
  3. Dans l'inspecteur d'objets, configurez les paramètres du serveur EMS en fonction de la configuration du serveur EMS :
    • URLHost : localhost
    • URLPort : 8080
    • URLProtocol : http
  4. Déposez un composant TBackendEndpoint sur la fiche.
  5. Dans l'inspecteur d'objets, définissez les paramètres suivants de l'application TBackendEndpoint afin d'utiliser la ressource ThingPoint :
    • Provider : dans la liste déroulante, sélectionnez le nom du composant TEMSProvider (EMSProvider1).
    • Resource : edgemodules/WinEdge1/version
    • Resource suffix : laissez ce paramètre vide pour ce tutoriel.
    • Method : rmGET
    TBackendEndpointConfigurationThingPointVersion.png

Liaison visuelle des données de réponse

  1. Ouvrez le Concepteur LiveBindings pour lier visuellement les données de réponse de l'application ThingPoint. Sélectionnez Voir > Concepteur LiveBindings.
  2. Dans le Concepteur LiveBindings, cliquez avec le bouton droit sur la propriété Response.JSONText du composant TBackendEndpoint et choisissez l'option Lier à un nouveau contrôle pour lier la réponse à un nouveau composant TMemo.
    EMSClientDesignViewThingPoint.png
  3. Déposez un nouveau composant TButton sur votre fiche.
  4. Créez l'événement OnClick du composant TButton (double-cliquez dessus) et ajoutez le code suivant :
    • Delphi :
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        BackendEndpoint1.Execute;
    end;
    
    • C++ :
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        BackendEndpoint1->Execute();
    }
    
  5. Construisez et exécutez votre application.
    EMSClientExecutionThingPoint.png

Voir aussi