Discussion :

[Lung]

Je cherche à permettre à une autre application (2), de pouvoir ouvrir une fenêtre de mon application (1).

Pour celà, je suis allé dans le menu [Fichier][Nouveau][Autres ...][ActiveX][Objet automation]
- Je lui ai donné un nom. J'ai laissé les valeurs par défaut.
- J'ai créé deux fonctions avec des paramètres.
Et quand je veux enregistrer l'unité, j'obtiens l'erreur :

Combinaison d'indicateurs incorrecte

J'ai modifié les paramètres de mes fonctions, pour tout mettre en VARIANT.
J'ai uniquement des paramètres d'entrée (in).
La valeur de retour des fonctions est HRESULT (apparemment, Delphi ne veut pas autre chose).

Mais, j'ai toujours l'erreur.
Quelqu'un saurait-il comment faire ?

[Pierre Castelain]

C'est bizarre, tu peux montrer des copies d'écran de la définition de ton interface ainsi que la déclaration Delphi de la co-classe ?

[Lung]

C'est ça que tu veux voir ?

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
18
[
  uuid(D28AEAF3-D168-4610-95ED-583282334DF5), 
  version(1.0), 
  helpstring("Interface dispatch pour TCoGestionStocks Objet"), 
  dual, 
  oleautomation
]
 interface ITCoGestionStocks: IDispatch
{
  [
  id(0x00000002)
  ]
  HRESULT _stdcall CreerDemandeRetourProduit([in] VARIANT nTypeDemande, [in] VARIANT szCodeSociete, [in] VARIANT szCodeSite, [in] VARIANT szService, [in] VARIANT szDemandeur, [in] VARIANT DateRetour, [in] VARIANT szRacinePdt, [in] VARIANT szFinitPdt, [in] VARIANT nQuantite, [in] VARIANT szCommandeClient, [in] VARIANT szPorte );
  [
  id(0x00000001)
  ]
  HRESULT _stdcall Init([in] VARIANT szLogin, [in] VARIANT szPWD, [in] VARIANT szInstance );
};

Code :

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

1
2
3
4
5
6
7
8
9
[
  uuid(CCAF8C1A-8E60-4430-86D4-85B13A8DE334), 
  version(1.0), 
  helpstring("TCoGestionStocks Objet")
]
coclass TCoGestionStocks
{
  [default] interface ITCoGestionStocks;
};

C'est la première fois que je joue avec ces trucs-là, alors je ne comprend pas tout ...


PS : Ca fait longtemps que je ne t'avais vu sur le forum.

[Lung]

Sinon dans la colonne [Modificateur] (dans les paramètres des fonctions), à quoi sert la coche "Optionnel" ?
Je me suis dis que c'était pour définir des paramètres optionnel, mais Delphi n'est pas content quand je la coche.
Saurais-tu pourquoi ? L'aide n'est pas très prolixe sur ce sujet ...

[Pierre Castelain]

Je ne vois rien d'anormal dans le code IDL que tu nous montre. Je l'ai d'ailleurs utilisé sans problème avec Delphi 5 et Delphi 7 (je n'ai pas Delphi 6).
En ce qui concerne le paramètre optionnel, tu ne peux déclarer un argument comme optionnel que s'il est le dernier argument ou que si les arguments qui suivent sont également optionnel. C'est le même mécanisme qu'en Delphi avec les arguments ayant une valeur par défaut.
Pour ce qui est de ton problème, tu devrais essayer de refaire un petit projet de test en repartant d'un nouveau projet pour voir si l'erreur est systématique ou non.

[Lung]

En ce qui concerne le paramètre optionnel, tu ne peux déclarer un argument comme optionnel que s'il est le dernier argument ou que si les arguments qui suivent sont également optionnel. C'est le même mécanisme qu'en Delphi avec les arguments ayant une valeur par défaut.

Arf. Pas pensé.

Pour ce qui est de ton problème, tu devrais essayer de refaire un petit projet de test en repartant d'un nouveau projet pour voir si l'erreur est systématique ou non.

Bon, j'ai tout recommencé, et effectivement : plus de problème.


Pourquoi, ça n'a pas voulu la première fois ... mystère.
Je vois que c'est assez susceptible ...

Bon bin, résolu.