Menu Delphi:
Fichier / nouveau / autre…
Appuyez sur le bouton OK [OK]
Cliquez sur le menu Fichier / Enregistrer pour enregistrer:
Entrez le nom du projet Mycom
Appuyez sur le bouton Enregistrer
Ouvrez à nouveau le fichier de menu / nouveau / autre…
Appuyez sur le bouton [OK};
Entrez MyObject dans Coclassname
Appuyez sur OK
Appuyez sur la souris, cliquez avec le bouton droit sur ImyObject
Imyobject / nouveau / méthode
Entrez le test au nom
Passez à la page des paramètres
Appuyez sur Ajouter deux fois
Modifiez le nom des premiers paramètres en PSParam1, tapez en bstr
Changez le nom des seconds paramètres en psResult, tapez en bstr *
Point la souris vers le champ de modificateur des seconds paramètres
Appuyez sur le bouton «…»
Cocher les retvals
Appuyez sur OK
(L'original [in] devient [out, retval], indiquant que cela doit être retourné, et son type est une chaîne)
Fermez cette fenêtre
(Vous verrez qu'il construit un modèle de code pour vous)
Fichier / enregistrer
Entrez le nom de fichier myObject
Appuyez sur Enregistrer
Modifier le code
Cliquez sur Ctrl + S pour enregistrer
Projet / construire MyCOM
Vous pouvez voir qu'un fichier mycom.dll a été généré.
Il s'agit du composant COM que vous souhaitez.
Parlons de la méthode d'appel de ce composant COM:
Nouveau une nouvelle application
Ajouter un comobj dans les utilisations
Mettez un bouton sous forme
Entrez le code suivant dans l'événement ONClick du bouton:
Code : |
var MyObject: Olevariant; Commencer MyObject: = CreateoMObject ('mycom.myObject'); essayer ShowMessage (myObject.test ('Dawn')); Enfin VarClear (myObject); fin; fin; |
Exécuter ... et appuyez sur Button1 Button
Vous verrez un message ... c'est-à-dire que la valeur de la méthode de test de l'objet COM est exécutée.