DLL ActiveX avec VC++ / ASP

Bonjour,
Un petit probleme avec atl/com+ / asp.
En codant es fonctions simplistes comme :
                                                                      //[out, retval] //
STDMETHODIMP CCDllVente::TestRetVal(SHORT* returnval)
{
    *returnval = 500;

    return S_OK;
}
=> ca fonctionne bien, retourne bien la valeur 500 au code asp.
                                                                   // [in]             //  [out, retval]
STDMETHODIMP CCDllVente::TestIn(SHORT inval, SHORT * outval)
{
    * outval = inval + inval ;
    return S_OK;
}
=> marche très bien aussi

Mais :
                                                                   // [out]
STDMETHODIMP CCDllVente::TestOut(SHORT * Value)
{
 
  * Value = 50 ;

    return S_OK;
}

Ne veut pas fonctionner. J'ai essayé avec plusieurs type de données, et la valeur n'est jamais renvoyé à l'asp .. .
Exemple de code asp :

set MyObj = server.CreateObject("CVente.CDLLVente") 
iTotal = 3   ' // C'est pour lui donner une valeur, de toute facon la dll est censée a réecrire

MyObj.TestOut iTotal  ' //  Renvoi un  "tpye incopatible"

MyObj.TestOut int(iTotal) '// renvoi rien .. la valeur reste à 3


Si Qqn a une idée, ca me depannerai bien.
Merci bcp.

Comment tu déclares et passe param du 1er exemple qui va bon ?

ciao...
[ Lien ]
BruNews, MVP VC++

[id(4), helpstring("method TestRetVal")] HRESULT TestRetVal([out,retval] SHORT* returnval);
       
Dans l'idl  ^

dans l'asp :

set MyObj = server.CreateObject("CVente.CDLLVente") 
iTotal = 3  

iTotal = MyObj.TestRetVal()  ' //  Renvoi un  "tpye incopatible"
Response.Write("Valeur : " & iTotal &"<br>")

J'ai essayé aussi :

    iTotal = 0
    iTotal2 = MyObj.TestInOut(6,int(iTotal))

Avec du coté dll :
// [idl] :

 [id(6), helpstring("method TestInOut")] HRESULT TestInOut([in] SHORT inval, [out] SHORT * outval , [out,retval] SHORT * retval);


// Cpp

STDMETHODIMP CCDllVente::TestInOut(SHORT inval, SHORT * outval , SHORT * retval)
{
    * retval = inval * inval ;
    * outval = inval + inval ;
    return S_OK;
}


le [out, retval] est bien dans iTotal2, qui est le caré de 6, mais le [out] est tojours vide (iTotal) .
C'est frustrant. Tu vois quelque chose ?

Petite erreur ds le mesage ci dessus .

j'ai noté :

iTotal = MyObj.TestRetVal()  ' //  Renvoi un  "tpye incopatible"
Response.Write("Valeur : " & iTotal &"<br>")

mais cet exemple marche le " //Renvoi un type incompatible est un reste de copié coller à ne pas prendre en compte ."