DLL ActiveX avec VC++ / ASP

Question

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&#232;s bien aussi

Mais : 
                                                                                        // [out] 
STDMETHODIMP CCDllVente::TestOut(SHORT * Value)
{
  
  * Value = 50 ;

    return S_OK;
}


Ne veut pas fonctionner. J'ai essay&#233; avec plusieurs type de donn&#233;es, et la valeur n'est jamais renvoy&#233; &#224; 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&#233;e a r&#233;ecrire 

MyObj.TestOut iTotal  ' //  Renvoi un  "tpye incopatible" 


MyObj.TestOut int(iTotal) '// renvoi rien .. la valeur reste &#224; 3 

Si Qqn a une id&#233;e, ca me depannerai bien. 
Merci bcp.

BruNews · Answer

Comment tu d&#233;clares et passe param du 1er exemple qui va bon ?

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

cs_yAAm · Answer

[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 &"
") 

J'ai essay&#233; aussi : 

    iTotal = 0
    iTotal2 = MyObj.TestInOut(6,int(iTotal))

Avec du cot&#233; 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&#233; de 6, mais le [out] est tojours vide (iTotal) . 
C'est frustrant. Tu vois quelque chose ?

cs_yAAm · Answer

Petite erreur ds le mesage ci dessus .

j'ai not&#233; : 

iTotal = MyObj.TestRetVal()  ' //  Renvoi un  "tpye incopatible" 
Response.Write("Valeur : " & iTotal &"
") 

mais cet exemple marche le " //Renvoi un type incompatible est un reste de copi&#233; coller &#224; ne pas prendre en compte ."

DLL ActiveX avec VC++ / ASP

3 réponses

Votre réponse

Discussions similaires