Discussion :

[ShaiLeTroll]

J'utilise le VBScript pour faire quelques tests, possible que je lui en demande trop, mais il semble être assez souple jusqu'a présent ..

j'ai développé un objet COM, j'ai déjà parlé de cet objet ICI ou LA, j'ai pu résoudre quelque problème lié à la convention d'appel stdcall et safecall ...

Voici mon VBScript

Code :

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

1
2
3
4
5
6
7
8
9
Set objShai = CreateObject("Shai_COM.ShaiTrucImpl")
Set ObjParam = CreateObject("Shai_COM.ParamImpl")
 
ObjParam.Numero = "1"
 
dim objRes ' ne change rien si je je mets ou pas ...
call ObjNeoLAD.SearchTrucEx(ObjParam, objRes)
 
WScript.Echo objRes.Count

le prototype de la fonction généré par l'editeur de TLB

Code :

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

1
2
3
4
type
  IShaiTruc = interface(IDispatch)
    procedure SearchTrucEx(const Param: IPatient; out SearchResult: ISearchResult); safecall;
end;

dans la TLB, cela donne
IPatient * Param [in]
ISearchResult ** SearchResult[out]

Je sais que Param est bien reçu, mon problème doit venir que je ne sais pas comme déclarer un ISearchResult comme variable de retour de ma procédure

PS : j'utilise NotePad pour écrire mes Scripts, j'ai vu qu'il y avait un éditeur disponible sur la msdn ... je vais le télécharger ...

[ShaiLeTroll]

Code :

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

1
2
3
4
type
  IShaiTruc = interface(IDispatch)
    function SearchTrucEx(const Param: IPatient): ISearchResult; safecall;
end;

Bon, j'ai résolu mes problèmes, suffisait de transformer les procédures en fonction tout en conservant le safeCall (une histoire du ISearchResult* et ISearchResult** ...)