Temas

Buenas tardes gente....

Necesito pasar una cadena de texto de Visual Basic 6 a una Dll de DevC++ y mostrar un mensaje de la DLL

Tengo entendido que VB6 usa Unicode y DevC++ Ansi.... y no encuentro como convertirlo....

El código de la Dll es

en el .CPP

Código (cpp) [Seleccionar] Expandir


extern "C" __declspec( dllexport ) __stdcall void Mensaje(char Titulo[], char* Mensaje)
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(char *Titulo, char &Mensaje)
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(const char *Titulo, char* Mensaje)
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(const char Titulo, char* Mensaje)
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(LPCTSTR Titulo, char* Mensaje)
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(TCHAR *Titulo, char* Mensaje)
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(unsigned char Titulo, char* Mensaje)
{
       /*char *Convertir(char cad[])
       {
            int i;
            for ( i = 0 ; cad[i] != '\0' ; i++ )
            if( i == 0 || cad[i-1]==' ' || cad[i+1]== ' ' || cad[i+1]=='\0')
            if(cad[i] >= 'a' && cad[i] <= 'z') cad[i] -= 32;
            return cad;
       }
       
       Convertir(Titulo);
       Convertir(Mensaje);*/
       
       //convertir char* a LPCTSTR
       //LPCTSTR stringT = Titulo;

       //convertir char* a LPCSTR
       //LPCTSTR stringT;// = Titulo;
       //CString stringT;
       //TCHAR stringT;
       //t_char stringT[];
       //stringT = Titulo;
       
       //LPCTSTR stringM;// (Mensaje);
       //char stringM[54];
       //stringM = Mensaje;
       
       //int MAX_PATH;
       //MAX_PATH = 200;
       //char szANSIString [MAX_PATH];
       /*WideCharToMultiByte (CP_ACP, // página de códigos ANSI
       WC_COMPOSITECHECK, // Verificar caracteres acentuados
       //wszUNICODEString, // Cadena Unicode de origen
       Titulo,
       -1, // -1 significa que la cadena tiene terminación cero
       //szANSIString, // cadena de caracteres de destino
       stringT,
       //sizeof (szANSIString), // Tamaño del búfer
       sizeof (stringT),
       NULL, // Sin carácter predeterminado
       TRUE);  // No me importa esta bandera
       */
       //MessageBox(NULL, Titulo.c_str(), stringM, MB_ICONINFORMATION);
       //MessageBoxA(NULL, stringT, stringM, MB_ICONINFORMATION);
       //MessageBox(NULL, stringT, Mensaje, MB_ICONINFORMATION);
       MessageBox(NULL, Titulo, Mensaje, MB_ICONINFORMATION);
}


En el .H

Código (cpp) [Seleccionar] Expandir


//extern "C" __declspec( dllexport ) __stdcall void Mensaje(char* Titulo, char* Mensaje);
extern "C" __declspec( dllexport ) __stdcall void Mensaje(char Titulo[], char* Mensaje);
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(LPCSTR Titulo, char* Mensaje);
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(char *Titulo, char &Mensaje);
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(const char Titulo, char* Mensaje);
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(LPCTSTR Titulo, char* Mensaje);
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(TCHAR *Titulo, char* Mensaje);
//extern "C" __declspec( dllexport ) __stdcall void Mensaje(unsigned char Titulo, char* Mensaje);


En VB6

Código (vb) [Seleccionar] Expandir


En VB6

Private Declare Sub Mensaje Lib "dll.dll" (Titulo As String, Mensaje As String)

Private Sub Command1_Click()
       Mensaje "Este es el título", "Este es el mensaje"
End Sub


Al correr el ejecutable de VB6 me tira un mensaje con símbolos....

Gracias de antemano

[[MOD] Usar etiquetas GeSHi, para publicar codigo.]

Buenas tardes.....

He estado tratando de hacer un simple programa en GTK con Glade que al hacer click en un botón coloque un texto en un label.... todo va bien si escribo así

Código (c) [Seleccionar] Expandir


void texto_label(void)
{
      char text[] = "hola como estan";
}

gtk_label_set_text (GTK_LABEL(label), text);

Hasta aquí funciona perfecto....

Luego cree un .h y un .c llamados venta.c venta.h

venta.h
#ifndef VENTA_H_INCLUDED
#define VENTA_H_INCLUDED

char letras (void);

#endif


Ahora venta.c
#include "venta.h"

char letras(void)
{
     char a;
     a = "hola amigos";
     return a;
}

en el programa principal que se llama ventana.c
//cree una funcion llamada texto_label

void texto_label(void)
{
     char text[] = letras();
     gtk_label_set_text (GTK_LABEL(label), text);
}

Al compilar da error.... he probado todo lo habido y por haber y nada....

Lo que quiero es que al hacer click en el botón... la función letras de venta.c devuelva el texto y lo coloque en el label...

Gracias

[MOD] Usar etiquetas GeSHi, para publicar codigo.