FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 934, dernière mise à jour : 23 octobre 2024 Ajouter une question

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez

Sommaire →OLE/COM (2)

Comment utiliser des arguments nommés et positionnels avec les objets OleAutomation ?
Comment vérifier qu'un objet COM est enregistré ?

Comment utiliser des arguments nommés et positionnels avec les objets OleAutomation ?

En règle générale on peut appeler une méthode d'un serveur Automation par une interface ou par un variant.

Dans le premier cas l'objet manipulé étant fortement typé on doit donc spécifier tous les paramètres. Ceux optionnels devant être remplacés par EmptyParam :

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var  
 MaZone: Range;  
  
 Separator: OleVariant;  
 Tableau : Table;  
  
begin  
  ... 
  //Définit le séparateur utilisé lors de la conversion  
 Separator:=';';  
 MaZone.ConvertToTable(Separator,EmptyParam,EmptyParam,EmptyParam,  
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam,  
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam,  
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Dans le second cas l'objet manipulé étant de type Variant/OleVariant on peut utiliser les arguments nommés dans l'appel de la méthode.
Cette expression est évaluée uniquement lors de l'exécution (cf.

Dispatch.Invoke)
On évite ainsi une liste de paramètres vides (EmptyParam), les paramètres qui ne sont pas spécifiés prennent leur valeur par défaut.

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
var  
 MaZone: OleVariant;  
  
 Separator: OleVariant;  
 Tableau : Table;  
  
begin  
  ... 
  // Définit le séparateur utilisé lors de la conversion  
 Separator:=';';  
 MaZone.ConvertToTable(Separator:=';');  
end;

On peut nommer plusieurs paramètres, l'ordre de leur déclaration n'a pas d'importance.
Ici cette possibilité facilite le portage entre les versions d'Office dans la mesure où les paramètres utilisés sont communs.

Il est aussi possible d'utiliser des arguments positionnels :

Code delphi :

Sélectionner tout

MaZone.ConvertToTable(Separator,NumRows,,,,,,,,,,,,,,DefaultTableBehavior);

Ce qui peut s'écrire

Code delphi :

Sélectionner tout

MaZone.ConvertToTable(Separator,NumRows,,DefaultTableBehavior);

Mis à jour le 24 janvier 2014 Laurent Dardenne RDM

Comment vérifier qu'un objet COM est enregistré ?

On souhaite parfois vérifier si un objet COM est enregistré avant de créer une classe dérivé de class(TOleServer), par exemple Word

Code delphi :

Sélectionner tout

TWordApplication = class(TOleServer)

Dans ce cas on tente de créer une instance transitoire de l'objet COM :

Code delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function IsCOMObjectExist(const Identifier: TGUID): Boolean; Overload; 
// On reçoit un ClassID : {000209FF-0000-0000-C000-000000000046} 
Var ObjetCOM : IUnknown; //Interface locale supprimée automatiquement en fin de méthode 
  
begin 
  Result:=Succeeded(CoCreateInstance(Identifier, nil, CLSCTX_INPROC_SERVER or 
    CLSCTX_LOCAL_SERVER, IUnknown, ObjetCOM)); 
end; 
  
function IsCOMObjectExist(const Identifier: String): Boolean; Overload; 
// On reçoit un ProdID : 'Word.Application.11' 
Var GUID:TGUID; 
begin 
  Result:=False; 
  FillChar(GUID,SizeOf(TGUID),#0); 
  if Succeeded(CLSIDFromProgID(PWideChar(WideString(Identifier)), GUID)) 
   then Result:=IsCOMObjectExist(GUID); 
end;

Pour faciliter la lecture du code on utilisera un progID :

Code delphi :

Sélectionner tout

1
2
if not IsCOMObjectExist('Word.Application.11') 
  then ShowMessage('Word n''est pas installé.');

Déclarez dans la clause uses les unités System et ActiveX.

Mis à jour le 24 janvier 2014 Laurent Dardenne

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.