VBScript - Type incompatible avec COM créé en Delphi
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:
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:
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 ...
