Discussion :

[SurfingJeff]

Afin d'éviter que l'application se plante lamentablement lorsqu'un ActiveX n'est pas installé (ou enregistré), je souhaiterai savoir s'il existe une méthode pour intercepter l'appel au chargement de la DLL/OCX manquante et informer l'utilisateur que l'installation d'un ActiveX est requise ?

[ShaiLeTroll]

Personnellement, je catche l'exception déclencher par le create, si c'est un composant sur une forme, ça devient déjà plus sportif ... il doit y avoir soit des API soit faut lire la Base de Registre, sinon, lancer systématiquement RegSvr32 (en silencieux) avec le Chemin de la DLL contenant l'activeX ...

[slimjoe]

Salut!

Voici le code que j'utilise pour encapsuler les fameux "Classe non enregistrée" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
   CLASS_NOT_REGISTERED_ERROR = $80040154;
 
begin
   try
      MonActiveX := CoMonActiveX.Create;
   except
      on E: EOleSysError do
      begin
         if Integer(E.ErrorCode) = Integer(CLASS_NOT_REGISTERED_ERROR) then
            raise Exception.Create('Erreur!');
      end;
 
      else
         raise;
   end;
end;

Il y a peut-être (probablement) meilleure solution (je suis preneur) et, comme l'indique ShaiLeTroll, ça ne règle pas les composants glissés sur la fiche.

Bon dev!

[SurfingJeff]

Merci pour vos réponses rapides...
Pour un composant ActiveX créé par code cela semble fonctionner, mais pour un composant ActiveX déposé sur une fiche, personne ne sait s'il ya un moyen d'intercepter l'erreur ?

[slimjoe]

Peut-être pourrais-tu créer un module qui testerait dynamiquement les composants avant de charger ta fiche ?

[EDIT]
Bon, soyons un peu plus clair : disons que tu veuilles tester si l'ActiveX de ADO est installé (ADODB). Fais une procédure du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
uses ADODB;
 
function TestADO: boolean;
begin
  try
    TADOQuery.Create(nil).Free;
  except
    on Exception do
      Result := False;
  end;
 
  Result := True;
end;

Et appelle la avant la création de ta fiche.

Ceci dit, il y a probablement mieux.

[SurfingJeff]

Finalement j'ai adopté la méthode créant dynamiquement le composant ActiveX pour résoudre mon problème...merci à tous ceux qui ont répondu !

[Clorish]

Note : Un activeX enregistré possede une entree dans la BdR par objet instanciable dont la clef est le GUID de l'objet. Dasn cette clefs on trouve des données dont une d'entre elle correspond a la dll qui contient l'objet.
Avec ces données la on peut detecter l'enregistrement et la presence de la Dll qui est responsable de la creation de l'objet.