Ahora el problema q me asalta es q no se pasar un String desde C++ (a traves de esa DLL) a VB6
Código VB6:
-- Llamada de la función:
retorno = DLLdevolverNombre(i, MyArrayNombre(i))
*MyArrayNombre(i) es un array de String
-- Declaración de la función:
Public Declare Function DLLdevolverNombre Lib "mutacion2.dll" (ByVal i As Long, ByVal nom As String) As Long
Código C++:
int FAR PASCAL DLLdevolverNombre (int i, char *nom)
{
nom = mi_mutacion.DevolverNombre(i);
return strlen(nom);
}
char* CMutacion::DevolverNombre (int i)
{
return a_mutacion.nombre;
}
*a_mutacion es un array de objetos y uno de los elementos de ese objeto es el nombre.
struct dato {
int num1;
int num2;
char nombre[7];
int intensidad;
int fondo;
} a_mutacion[4608];
A ver si me podeis ayudar, muchas gracias.