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 ...