Envio de string mediante dll hacia VB

Temas sobre programacion en C/C++ (no Visual C++)

Moderador:ivancp

nostromos
Novato
Novato
Mensajes:2
Registrado:Mié Feb 08, 2006 9:35 pm
Envio de string mediante dll hacia VB

Mensaje por nostromos » Lun Jun 13, 2011 4:59 pm

Holas;

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.

Y otras con dll-c++ en Dev-C++. Tengo en la dll funciones para operaciones matemáticas y funcionan sin problemas desde VB.

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:

[codex=cpp]#include <windows.h>
#include <cstdio>
#include <cstdlib>
#include <conio.h>
#include <cstring>
//--------------------------------------------------------
#if BUILDING_DLL
# define DLLEXPORT __declspec (dllexport)
#else /* Not BUILDING_DLL */
# define DLLEXPORT __declspec (dllimport)
#endif /* Not BUILDING_DLL */
//--------------------------------------------------------
BOOL APIENTRY DllMain (HINSTANCE hInst,DWORD reason, LPVOID reserved)
{
return TRUE;
}
//---------------------------------------
/* funciones a emplear */
extern "C"
{
DLLEXPORT _stdcall int suma(int a,int b)
{
return (a+b);
}
//------------------------------------------
DLLEXPORT _stdcall char* cadena(char* s)
{
char *s2="programado en C++";
strcat(s,s2);
return s;
}
}[/codex]

La unión de cadena esta dada en la biblioteca string.h:

[codex=cpp]char *strcat(char*s1, const char *s2);[/codex]

"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."

La llamada desde visual basic es el siguiente:

[codex=cpp]Private Declare Function suma Lib "C:\...\libreria.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Private Declare Function cadena Lib "C:\...\libreria.dll" (ByVal s As String) As String[/codex]


La llamada en el evento commandbutton es:

[codex=vb]Private Sub cmdCadena_Click()
Static s As String
s = "DLL "
MsgBox cadena(s)
End Sub[/codex]

En el MesaageBox solo se muestra "DLL" y el string que debe aparecer a continuación "programado en C++", no se muestra.

La salida debiera de ser así:

"DLL programado en C++"

Pero, solamente aparece el string que envio desde visual basic:

"DLL"

No se que estaré haciendo mal o muy mal, como datos adicionales tengo win7. Agradeceria cualquier ayuda.

Gracias.....

Nos vemos

Responder