Tutoriel : Implémentation d'une application client EMS FireDAC

De Appmethod Topics
Aller à : navigation, rechercher

Remonter à Application client EMS


Vous pouvez créer un client pour établir une connexion avec le serveur EMS via l'API de développeur FireDAC que vous avez précédemment installée en utilisant un package EMS.

Il s'agit d'un exemple d'application client basé sur la ressource créée dans Tutoriel: Implémentation d'une ressource EMS FireDac. Créez une application FireMonkey et ajoutez un TDataModule au projet :

  1. Fichier > Nouveau > Application multi-périphérique - Object Pascal
  2. Dans le Gestionnaire de projets, cliquez avec le bouton droit sur Ajouter nouveau > Autre > Nouveaux éléments.
  3. Choisissez Projets Object Pascal > Fichiers Object Pascal > Module de données et cliquez sur OK.

Sur le TDataModule, placez les composants FireDAC dont vous avez besoin pour passer aux données JSON à partir du serveur EMS.

Ajoutez les composants suivants :

  • Un composant TFDGUIxWaitCursor.
  • Un composant TFDSchemaAdapter - pour adapter le résultat de l'objet JSON.
  • Deux composants TFDTableAdapter - pour adapter le contenu des deux tables.
    • Dans la propriété DatSTableName, définissez le nom des TFDQuery à partir du TDataModule.
    • Dans la propriété SchemaAdapter, définissez le nom du TFDSchemaAdapter.
  • Deux composants TFDMemTable.
    • Dans la propriété Adapter, définissez le nom du TFDTableAdapter correspondant.
    • Définissez la propriété CachedUpdates sur True. Vous devez activer cette option pour mettre à jour les informations à partir des tables.
ClientModuleSample.png

Dans la fiche client, incluez le TDataModule dans la section implementation :

implementation

{$R *.dfm}

uses Unit3;

Ajoutez les composants suivants à la fiche client :

  • Deux composants TGrid pour afficher et mettre à jour les données des tables.
    • Choisissez voir > Concepteur LiveBindings et connectez les composants TGrid avec les composants TFDMemTable. Cette étape est nécessaire pour afficher les données sur la grille.
  • Deux composants TButton : l'un pour obtenir les données, l'autre pour valider les mises à jour.
  • Un composant TEMSProvider pour définir la configuration sur le serveur EMS.
    • Définissez la propriété URLHost sur l'IP du serveur, localhost par défaut.
    • Définissez la propriété URLPort sur le port du serveur, 8080 par défaut.
  • Un TEMSFireDACClient pour établir la connexion avec le TFDSchemaAdapter à partir du TDataModule client.
    • Définissez la propriété Provider sur le nom du TEMSProvider.
    • Définissez la propriété Resource sur le nom de la ressource à laquelle vous souhaitez accéder.
    • Définissez la propriété SchemaAdapter sur le nom du TFDSchemaAdapter à partir du TDataModule, par exemple ClientModule.FDSchemaAdapter2.
  • Un composant TActionList pour définir les actions permettant d'obtenir et de mettre à jour les données.
    • Cliquez avec le bouton droit et sélectionnez Editeur de liste d'actions....
    • Créez deux nouvelles actions et redéfinissez la propriété name des actions sur ActionGetTables et ActionPostUpdates.
    • Double-cliquez sur le gestionnaire d'événement OnExecute des actions pour créer les procédures.
  • Ecrivez le code pour la procédure GetTablesExecute :
procedure TClientForm.ActionGetTablesExecute(Sender: TObject);
begin
  EMSFireDACClient1.GetData;
end;
  • Ecrivez le code pour la procédure PostUpdatesExecute :
procedure TClientForm.ActionPostUpdatesExecute(Sender: TObject);
begin
  EMSFireDACClient1.PostUpdates;

end;
  • Définissez la propriété Action du bouton Get Tables sur ActionGetTables et le gestionnaire d'événement OnClick sur ActionGetTablesExecute.
  • Définissez la propriété Action du bouton Post Updates sur ActionPostUpdates et le gestionnaire d'événement OnClick sur ActionPostUpdatesExecute.

Voir aussi