Introduction en gras dcom

Introduction en gras dcom

Introduction en gras dcom : Plusieurs milliers de conseils pour vous faciliter la vie.

Une etape-par-etape de marche par le biais de la separation de la logique metier a un autre serveur a l'aide de caracteres GRAS DCOM avec une base de donnees Interbase.

Cet article a ete compilee a partir des journaux de l'internet, un chat (IRC) avec Eric Holton. Je tiens a remercier Eric pour passer autant de temps en detaillant les mesures saisons. Eric a accepte de me laisser convertir les journaux de notre conversation dans cet article pour le benefice des autres.



Le serveur

1. Creer une nouvelle application avec une forme et un datamodule.




2. Nom du module dmServer, et la principale forme fmServerMain.




3. Enregistrez le formulaire en tant que ServerMainForm.pas, le module ServerModule.pas, et le projet en tant que ServerApp.RMR




4. [Gras Poignees] de l'onglet ajouter un TBoldModel (mbModel), TBoldSystemTypeInfoHandle (ihModelInfo), TBoldSystemHandle (shMainHandle), et un TBoldPersistenceHandleIB (phInterbase).




5. Dans l'inspecteur d'objet, definissez les proprietes suivantes:
   
   & nbsp & nbsp
   
   & nbsp & nbsp phInterbase
   
   & ! & ! & ! & nbsp DatabaseName = existante GDB fichier a remplacer.
   
   & ! & ! & ! & nbsp BoldModel = bmModel
   
   & ! & ! & ! & nbsp DatabaseEngine = dbeInterbaseSQLDialect3
   
   
   
   & nbsp & nbsp shMainHandle
   
   & ! & ! & ! & nbsp SystemTypeInfoHandle = ihModelInfo
   
   & ! & ! & ! & nbsp PersistenceHandle = phInterbase
   
   & ! & ! & ! & nbsp IsDefault = True
   
   & ! & ! & ! & nbsp AutoActivate = True
   
   
   
   & nbsp & nbsp ihModelInfo
   
   & ! & ! & ! & nbsp BoldModel = bmModel
   
   & nbsp & nbsp
   
   & nbsp & nbsp






6. Dans le OnDestroy de la datamodule inclure le code suivant
   
   & nbsp & nbsp
   
   & nbsp & nbsp si Affecte(shMainHandle.Systeme),
   
   & ! & ! & ! & nbsp avec shMainHandle.Le systeme ne
   
   & ! & ! & ! & ! & ! & nbsp si BoldDirty puis Defaussez-vous d'
   
   & nbsp & nbsp




7. Double-cliquez sur le modele pour afficher l'editeur de modele, et de faire ce qui suit:
   
   
   
   1. Changer le 'Nom' et 'nom de l'Unite' de l'BusinessClasses a DCOMTestClasses

   
   

   2. Changer le 'Modele de classe racine' de l'BusinessClassesRoot a DCOMTestClassesRoot

   
   

   3. Ajouter une nouvelle classe appelee Personne avec un seul attribut 'prenom'

   
   

   4. menu Outils, de Generer la base de donnees

   
   

   5. menu Outils, Generer le code - enregistrer le resultat dans des fichiers avec leurs noms par defaut

   
   

   6. menu Outils, de Generer COM/IDL Guid (dites OUI a 'Maintenir les Guid?')

   
   

   7. menu Outils, de Generer Delphi compatible IDL - enregistrer les resultats des fichiers avec leurs noms par defaut

   
   

   8. Enregistrez le modele, et puis fermez l'editeur de modele

   
   
   & ! & ! & ! & nbsp

   
   

8. menu Fichier, Nouveau, [ActiveX] de l'onglet, 'bibliotheque de Type' et procedez de la maniere suivante:
   
   
   
   1. Cliquez sur le bouton [Utilise] onglet

   
   

   2. cliquez-Droit et selectionnez 'Afficher Toutes les Bibliotheques de Type'

   
   

   3. Cochez 'Bold ObjectSpace Bibliotheque de Type'

   
   

   4. cliquez-Droit et selectionnez 'Afficher la selection'

   
   

   5. Ouvrez le fichier DCOMTesterClasses.IDL

   
   

   6. Selectionnez tout le texte et le copier dans le presse-papiers

   
   

   7. Cliquez sur le [Texte] onglet sur le TLB editeur

   
   

   8. Remplacer tout le texte avec le texte dans le presse-papiers

   
   

   9. Cliquez sur 'Actualiser la mise en œuvre'

   
   

   10. CTRL S et enregistrer le TLB comme le nom par defaut (ProjectName.TLB)

   
   
   & ! & ! & ! & nbsp

   
   
   & nbsp & nbsp




9. [Gras COM] onglet deposez les composants suivants sur le module serveur TBoldCOMServerHandle (cshServerHandle) et un TBoldComServerElementHandle (cseElementHandle) et definissez les proprietes suivantes:
   
   & nbsp & nbsp
   
   & nbsp & nbsp cseElementHandle
   
   & ! & ! & ! & nbsp BoldHandle = shMainHandle
   
   & ! & ! & ! & nbsp propriete serverhandle n' = cshServerHandle
   
   & nbsp & nbsp




10. Double-cliquez sur cshServerHandle et de generer du code, enregistrez ce fichier en tant que DCOMTestServerCode.pas






11. Copiez le GUID de DCOMTestServerCode dans le presse-papiers




12. Enregistrez et executez l'application, tout doit etre bien.

Le Client

1. Inscrire le serveur de fichier TLB a l'aide de RegSvr32 ou TRegSvr (borland\delphi\bin).




2. Creer une nouvelle application avec une forme et un datamodule (le formulaire doit 'Utiliser' le module).




3. Nom du module dmClient, et la principale forme fmClientMain.




4. Enregistrez le formulaire en tant que ClientMainForm.pas, le module ClientModule.pas, et le projet en tant que ClientApp.RMR




5. [Gras COM] onglet ajouter un TBoldCOMConnectionHandle (chCOMConnection), et un TBoldSystemHandleCom (shMainHandle) definissez les proprietes suivantes
   
   & nbsp & nbsp
   
   & nbsp & nbsp chCOMConnection
   
   & ! & ! & ! & nbsp ServerCLSID = le GUID de DCOMTestServerCode.pas (La propriete ServerName devrait modifier automatiquement)
   
   & ! & ! & ! & nbsp AutoConnect = True
   
   
   
   & nbsp & nbsp shMainHandle
   
   & ! & ! & ! & nbsp ConnectionHandle = chCOMConnection
   
   & ! & ! & ! & nbsp IsDefault = TRUE
   
   & ! & ! & ! & nbsp ObjectName = (Meme que ObjectName de cseElementHandle dans le serveur)
   
   & nbsp & nbsp




6. [Gras COM Poignees] onglet deposer un TBoldListHandleCom (blhPerson) sur votre formulaire principal, set
   
   & nbsp & nbsp
   
   & nbsp & nbsp ConnectionHandle = dmClient.chCOMConnection
   
   & nbsp & nbsp Expression = ' Personne.allInstances'
   
   & nbsp & nbsp RootHandle = dmClient.shMainHandle
   
   & nbsp & nbsp




7. [Gras Controles COM] onglet deposer un TBoldGridCom et un TBoldNavigatorCom sur votre formulaire principal et de l'ensemble de la BoldHandle propriete de deux a blhPerson.




8. cliquez-Droit sur BoldGridCOM1 et selectionnez 'Modifier les colonnes' definir la propriete d'Expression de la deuxieme colonne pour 'prenom'.




9. Ajouter un bouton a votre formulaire avec le code suivant attaches
   
   & nbsp & nbsp
   
   & nbsp & nbsp dmClient.shMainHandle.Systeme.UpdateDatabase
   
   & nbsp & nbsp

Votre demande devrait maintenant fonctionner.