<div>Holas;</div><div><br></div><div>Tengo un proyecto en visual basic 6.0, el cual estara con dll, unas con ActiveX para controlar los eventos con option, commandbutton, listbox, etc.</div><div><br></div><div>Y otras con dll-c++ en Dev-C++. Tengo en la dll funciones para operaciones matemáticas y funcionan sin problemas desde VB.</div>
<div><br></div><div>El problema lo tengo al recibir datos de tipo string, al enviar por el formulario un string, este se muestra, pero no, el string asociado desde la dll y unido con srtcat, el código es el siguiente:</div>
<div><br></div><div>#include <windows.h> </div><div>#include <cstdio> </div><div>#include <cstdlib> </div><div>#include <conio.h> </div><div>#include <cstring> </div><div>//-------------------------------------------------------- </div>
<div>#if BUILDING_DLL </div><div># define DLLEXPORT __declspec (dllexport) </div><div>#else /* Not BUILDING_DLL */ </div><div># define DLLEXPORT __declspec (dllimport) </div><div>#endif /* Not BUILDING_DLL */ </div><div>//-------------------------------------------------------- </div>
<div>BOOL APIENTRY DllMain (HINSTANCE hInst,DWORD reason, LPVOID reserved) </div><div>{ </div><div>    return TRUE; </div><div>} </div><div>//--------------------------------------- </div><div>/* funciones a emplear */ </div>
<div>extern "C" </div><div>{ </div><div>    DLLEXPORT _stdcall int suma(int a,int b) </div><div>    { </div><div>        return (a+b); </div><div>    } </div><div>    //------------------------------------------ </div>
<div>    DLLEXPORT _stdcall char* cadena(char* s) </div><div>    { </div><div>        char *s2="programado en C++"; </div><div>        strcat(s,s2); </div><div>        return s; </div><div>    } </div><div>}</div>
<div><br></div><div>La unión de cadena esta dada en la biblioteca string.h:</div><div><br></div><div>char *strcat(char*s1, const char *s2);</div><div><br></div><div>"Añade una copia de la cadena apuntada por s2 (incluyendo el carácter nulo) al final de la cadena apuntada por s1. El carácter inicial de s2 sobrescribe el carácter nulo al final de s1."</div>
<div><br></div><div>La llamada desde visual basic es el siguiente:</div><div><br></div><div><br></div><div>Private Declare Function suma Lib "C:\...\libreria.dll" (ByVal a As Integer, ByVal b As Integer) As Integer</div>
<div>Private Declare Function cadena Lib "C:\...\libreria.dll" (ByVal s As String) As String</div><div><br></div><div>La llamada en el evento commandbutton es:</div><div><br></div><div>Private Sub cmdCadena_Click() </div>
<div>    Static s As String </div><div>    s = "[B]DLL[/B] " </div><div>    MsgBox cadena(s) </div><div>End Sub</div><div><br></div><div>En el cuadro de dialogo solo se muestra "DLL" y el string que debe aparecer a continuación "programado en C++", no se muestra.</div>
<div><br></div><div>La salida debiera de ser así:</div><div><br></div><div>"DLL programado en C++"</div><div><br></div><div>Pero, solamente aparece el string que envio desde visual basic:</div><div><br></div><div>
"DLL"</div><div><br></div><div>No se que estaré haciendo mal o muy mal, como datos adicionales tengo win7. Agradeceria cualquier ayuda.</div><div><br></div><div>Gracias.....</div><div><br></div><div>Nos vemos</div>
<div><br></div>