passer un LPCSTR de VC++ à VB

Question

Bonjour, 

comme vous vous en doutez j'ai un probl&#232;me de programmation.

j'ai cr&#233;&#233; un fichier ocx avec VC++ que j'utilise dans VB comme biblioth&#232;que.

Dans mon ocx je voudrais cr&#233;er une fontion qui renvoit une string que je pourrais r&#233;cup&#233;rer dans une variable VB.

Le probl&#232;me est que je n'arrive pas &#224; r&#233;cup&#233;rer cette variable. Dans l'autre sens il n'y a aucun probl&#232;me, les param&#232;tres

des fonctions de l'ocx donn&#233; dans VB fonctionne tr&#232;s bien.



lorsque je fais afficher la valeur dans une msgbox dans vb j'obtiens des ??????



Je vous donne la fonction que j'utilise dans VC++

LPCSTR maclasse::GetResponse( VOID )

{

    return (LPCSTR)Response.c_str();

}

Response &#233;tant une string dont je set la valeur par ailleurs
(si j'affiche la valeur de Response depuis le C++ la valeur est
correcte).



pour d&#233;clarer ma fonction dans le fichier .cpp j'utilise

DISP_FUNCTION(maclasse, "GetResponse", GetResponse, VT_BSTR, VTS_NONE)



pour d&#233;clarer ma fonction dans le fichier .h j'utilise

afx_msg LPCSTR GetResponse ( void);

et

dispidGetResponse  = 48L,



dans mon fichier odl j'utilise

[id(48)] BSTR GetResponsereceived ( void);



l'appelle dans VB est le suivant

MsgBox myDisp.GetSCAreceived()



si quelqu'un a une id&#233;e je suis preneur.

j'esp&#232;re avoir &#233;tait assez clair mais si ce n'est pas le cas n'h&#233;sitez pas &#224; me demander plus de d&#233;tail



Merci

BruNews · Answer

TRAITER STRING VB PAR DLL C/C++ (WIN32)
http://www.cppfrance.com/code.aspx?ID=30115

ciao...
BruNews, MVP VC++

Radium The Hammer · Answer

Merci pour le lien (que je n'avais pas trouv&#233;, j'avais pourtant cherch&#233; avant de poster)

mais &#231;a ne marche pas avec mon ocx.

j'ai chang&#233; ma fonction qui renvoit ma valeur cr&#233;er en C++ par

return SysAllocString((BSTR)Resp->GetResponse().c_str());


et j'ai chang&#233; tous les LPCSTR en BSTR mais j'obtiens toujours des ?? dans la messagebox.



je pense que la diff&#233;rence peut venir du fait que je n'utilise pas une dll mais un ocx.

je ne peux pas changer et utiliser une dll, c'est impos&#233; dans mon stage.



je pr&#233;cise aussi que cette erreur n'arrive que pour des string car les bool et les long passent tr&#232;s bien de l'ocx au vb.



si tu as une autre id&#233;e sp&#233;cifique au ocx ou si tu pense que je n'ai pas fait les bons changements &#231;a m'int&#233;resse.

Sinon tant pis et merci quand m&#234;me.

BruNews · Answer

SysAllocString((BSTR)Resp->GetResponse().c_str());
c'est quoi ce cast mystique (BSTR) ???


Proc&#232;de donc sur ce mod&#232;le:
BSTR __stdcall bnGetWinDir()
{
  char buff[260];
  DWORD len;
  len = GetWindowsDirectory(buff, 260);
  if(!len) buff[0] = 0;
  return SysAllocStringByteLen(buff, len);
}

ciao...
BruNews, MVP VC++

xterminhate · Answer

Pas bien le cast. Utilise plutot un reinterpret_cast() pour laisser ton compilateur C++ vérifier ta sauce.

BruNews · Answer

Mais il n'y a rien &#224; v&#233;rifier, il faut de l'OLECHAR unicode &#224; SysAllocString et pas autre chose.

ciao...
BruNews, MVP VC++

Radium The Hammer · Answer

je n'ai pas r&#233;ussi avec les m&#233;thodes que vous m'avez donn&#233;

mais en utilisant la fonction suivante pour convertir &#231;a marche.

je converti ma string avec la fonction suivante et j'envoie le BSTR obtenu dans VB et &#231;a marche.

si j'ai bien compris cela converti ma string en unicode.





BSTR maclasse::convert2unicode( string ansi_string)

{

    int lenA = lstrlenA((LPCSTR)ansi_string.c_str());

    int lenW;

    BSTR unicodestr;



    lenW = ::MultiByteToWideChar(CP_ACP, 0, (LPCSTR)ansi_string.c_str(), lenA, 0, 0);

    // Check whether conversion was successful

    unicodestr = ::SysAllocStringLen(0, lenW);

    ::MultiByteToWideChar(CP_ACP, 0, (LPCSTR)ansi_string.c_str(), lenA, unicodestr, lenW);

    

    return unicodestr;

}

Merci pour votre aide

Passer un LPCSTR de VC++ à VB

6 réponses

Votre réponse

Discussions similaires