Utilisation simplifiée des objets automation

Cliquez sur le menu Fichier puis nouveau puis sur Autre.

Sur l’onglet ActiveX, sélectionnez l’icône de la bibliothèque ActiveX et cliquez sur OK.

Il apparaît alors un nouveau projet de type library :

library Project1;
uses
 ComServ;
exports
 DllGetClassObject,
 DllCanUnloadNow,
 DllRegisterServer,
 DllUnregisterServer;
{$R *.RES}
begin
end.

Remarquez ici l’exportation des fonctions DllGetClassObject, DllCanUnloadNow, DllRegisterServer, DllUnregisterServer. Toutes bibliothèques ActiveX doit présenter ces fonctions qui vont permettre le recensement des objets dans la base de registre. Ne vous en préoccupez pas pour l’instant.

Il faut à présent créer la bibliothèque de types. Cliquez sur le menu Fichier puis nouveau puis sur Autre. Sur l’onglet ActiveX, sélectionnez l’icône de la bibliothèque de types et cliquez sur OK.

Ceci lance un wizard et la fenêtre suivante apparaît :

Changez le champ nom en PTest et la chaîne d’aide en « Test – Tutoriel ActiveX ».

Il faut à présent créer l’objet Automation. Cliquez sur le menu Fichier puis nouveau puis sur Autre. Sur l’onglet ActiveX, sélectionnez l’icône de l’objet Automation et cliquez sur OK.

Une fenêtre de renseignements apparaît. Tapez pour nom de Coclass : « TestAuto ». Laissez les autres valeurs de champs par défaut. Cliquez sur OK.

Avant d’ajouter les propriétés, cliquez droit sur la barre des icônes de la fenêtre de la bibliothèque de types et sélectionnez les libellés texte. Cela affichera le texte sous les icônes de la barre des tâches.

Sélectionnez l’interface de l’objet ITestAuto(1). Cliquez sur l’icône « Propriété » pour ajouter une nouvelle property à votre objet. Donnez-lui comme nom Donnees et sélectionnez le type VARIANT. Cette propriété permettra de faire passer un variant array de double.

À présent, nous allons créer une méthode permettant de calculer la moyenne des données passées dans la property. Dans le cadre de ce tutoriel, il eut été possible de passer les données en paramètres de la méthode. Cliquez sur l’icône « méthode » et renommez la méthode « Moyenne ».

Cette méthode doit renvoyer sous la forme d’un double la valeur moyenne. Dans l’onglet « Paramètres », créez une variable de nom R de type « double * » (tapez-le en toutes lettres, car ce type - aussi incroyable que cela puisse paraître – n’est pas listé). Double-cliquez sur la cellule du modificateur et sélectionnez la case « Valeur renvoyée » ce qui sélectionnera automatiquement la case « sortie ». Le type renvoyé HRESULT ne doit pas être modifié.

Il est temps de rafraîchir l’implémentation du code. Cliquez sur le bouton « Rafraîchir ». Ceci va créer le code de la structure de l’objet dans les fichiers « .pas ».

Parfois cette méthode rafraîchit mal le code. Sous Delphi 6 le nombre de bogues du wizard a été nettement diminué par rapport à Delphi 5. Si votre code est mal rafraîchi, l’enregistrement des fichiers permet souvent de résoudre les problèmes de rafraîchissement. Les messages d’erreur qui peuvent survenir risquent de vous laisser perplexe. Personnellement, l’apprentissage a été long et difficile.

Une fois rafraîchit le code source apparaît :

Toute l’architecture a été créée. Il reste à coder l’objet aussi simplement que n’importe quel objet Pascal à quelques différences près.

I-G-1. Rajout de variables private▲

Dans la partie private, ajoutez les variables FDonnees et FNbDonnees comme suit :

Rajoutez l’unité Variants dans la clause des uses.

I-G-2. Programmation de Get et Set Données▲

L’objet Automation doit savoir communiquer avec l’extérieur. Les propriétés permettent de simplifier la transmission des paramètres. Dans le cas des objets les property n’existent pas et sont remplacées directement par deux méthodes « set » et « get ». Le code est présenté et commenté ci-dessous :

I-G-3. Programmation de la méthode Moyenne▲

Le calcul de la méthode moyenne est des plus simples :

Il est « interdit » de surcharger le constructor de l’objet Automation. L’objet parent TautoObject implémente le constructor Create et la dernière méthode appelée par celui-ci est la procédure Initialize. C’est cette procédure que l’on réintroduit dans notre objet pour initialiser correctement les différentes variables de l’objet. L’implémentation du destructor Destroy est en revanche identique à celle d’un objet Pascal usuel.

L’implémentation du destructor et de l’initialize est immédiate :

Suivez la procédure suivante pour enregistrer votre projet et unité pascal.

L’unit1 devient : DefTestAuto et le Project1 devient PTestAuto :

Afin que les autres logiciels connaissent l’existence des objets Automation, il est nécessaire de les recenser au sein de la base de registre.

Après avoir fini l’exercice, n’oubliez pas de dérecenser votre serveur ActiveX afin de ne pas polluer inutilement votre base de registre.

En fait il est possible de recenser le serveur à l’aide de la ligne de commande du type suivant :

Regsvr32 « Chemin\NomProjet.dll »

Et de le dérecenser avec la ligne de commande similaire à :

Regsvr32 -u « Chemin\NomProjet.dll »

Fermez toutes vos applications sous Delphi (ce n’est pas vraiment nécessaire, mais c’est plus sûr). Puis cliquez sur Projet et importez une bibliothèque de types :

Sélectionnez l’objet Automation dans la liste

Décochez la case à cocher du bas « Générer le wrapper de composant »(3) et cliquez sur le bouton Installer. Mettez l’unité dans l’un de vos paquets de composants qui va être recompilé pour l’occasion. Fermez tout et créez une nouvelle application. L’unité a pour nom PTest_TLB et se trouve dans le répertoire Imports de Delphi 6.

Apposez un bouton et créez un événement OnClick. Que vous coderez dans l’exemple comme suit :

N’oubliez pas de rajouter dans vos uses l’unité importée : Ptest_TLB.

varClear(v);