Création de l'application client (tutoriel TObjects et DataSnap)
Remonter à Tutoriel : Passage de PODO (Plain Old Delphi Objects) avec DataSnap
Création de l'application client
Suivez les étapes ci-après afin de construire l'application client :
1. Cliquez avec le bouton droit sur le groupe de projets et sélectionnez Ajouter un nouveau projet
2. Depuis le noeud Projets C++Builder ou Projets Delphi, sélectionnez Application multi-périphérique et appuyez sur OK.
3. Enregistrez le projet dans le même emplacement que le serveur et définissez le nom de la première unité sur FormClientUnit, le nom du projet sur PODOClient, et le nom du groupe sur PODOGrp.
4. Sélectionnez Fichier > Nouveau > Autre.
5. Depuis le noeud Serveur DataSnap de Projets C++Builder ou Projets Delphi dans la colonne de gauche, sélectionnez Module client DataSnap et appuyez sur OK.
6. Spécifiez le type du module :
-
- Conservez la valeur par défaut sélectionnée -- Serveur local -- et appuyez sur Suivant.
- Conservez la valeur par défaut sélectionnée -- Serveur autonome DataSnap -- et appuyez sur Suivant.
- Conservez la valeur par défaut sélectionnée -- Protocole TCP/IP -- et appuyez sur Suivant.
- Appuyez sur Tester le port pour vérifier si le port 211 est ouvert et appuyez sur Terminer.
Remarque : Assurez-vous que l'application serveur est en cours d'exécution.
- L'expert a maintenant généré ClientModuleUnit et ClassesClientUnit.
Remarque : Dans ClientClassesUnit, la classe TServerMehods1Client a été générée, avec sa fonction GetPerson. Elle a la même signature que la classe du serveur. Vous devez appeler cette méthode localement.
7. Déplacez SharedStuffUnit du projet serveur vers le projet client au moyen d'une opération glisser-déposer.
8. Implémentez une petite interface utilisateur graphique pour le client :
9. Dans l'unité FormClientUnit, sélectionnez Fichier > Utiliser l'unité....
10. Sélectionnez ClientClassesUnit1, ClientModuleUnit1 et SharedStuffUnit, et appuyez sur OK.
11. Double-cliquez sur le bouton Show Person pour implémenter sa fonctionnalité.
Delphi :
var
p: TPerson;
begin
p := ClientModule1.ServerMethods2Client.GetPerson(EditFirstname.Text, EditLastname.Text);
if p <> nil then
begin
ShowMessage(p.ToString);
end;
end;
C++Builder :
TPerson *p;
p = new TPerson(EditFirstname->Text, EditLastname->Text);
if (p != NULL)
ShowMessage(p->ToString());
-
- L'implémentation du bouton ShowPerson appelle le serveur afin qu'il renvoie un objet personne (TPerson, dérivé de TObject). Elle vérifie ensuite si le serveur a réellement renvoyé quelque chose. Si c'est le cas, le message contient le Firstname et le Lastname de la personne.