PDA

Ver la Versión Completa : Problema con DLL


Reasen
08-11-2018, 01:28:14
Hola, como os va por aquí !

Bueno hoy traigo este "problemon" resulta que tengo una DLL ya compilada en C++ la cual no puedo modificar el codigo fuente y necesito utilizar una de sus funciones
ya tengo encuenta que tengo que pasar una String por la "Char*" de C++ que en Delphi equivale a PChar

Bueno, buscando información he intentado varias maneras, alojando memoria con getmem, usando un array de char y demas chorradas pero una de 2, o no tengo ninguna respuesta o bytes basura, debería ser sencillo de arreglar pero buscando solo veo ejemplos para el lenguaje .NET, para ese tipo de llamada a la "Char*" bueno, le he dado 1000 vueltas, espero que alguien me pueda iluminar un poco

Hice un ejemplo sencillo de una DLL en C++ para emular el problema e ir buscando una solución.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

function Test(Modulo: integer; funcName: PChar): Boolean; external 'dll1.dll' name 'Test';

var
Buffer: PChar;

begin

Buffer := 'Hola Soy Un Texto';
Test(0, Buffer);

end.


En C++
#include "stdafx.h"
#include <Windows.h>
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
return TRUE;
}

extern "C" __declspec(dllexport) DWORD64 Test(DWORD64 hModule, char* funcName)
{
MessageBoxA(0, funcName, "", 0);
return TRUE;
}

https://prnt.sc/lfoe34

lucho6007
08-11-2018, 12:49:19
Te faltó agregar stdcall al final de la declaración.

Quedaría algo así:


function Test(Modulo: integer; funcName: PChar): Boolean; external 'dll1.dll' name 'Test'; stdcall;


Saludos y espero te sirva!

Reasen
08-11-2018, 12:53:06
Te faltó agregar stdcall al final de la declaración.

Quedaría algo así:


Código Delphi [-] (https://www.clubdelphi.com/foros/#)function Test(Modulo: integer; funcName: PChar): Boolean; external 'dll1.dll' name 'Test'; stdcall;



Saludos y espero te sirva!

Cierto es pero el problema persiste.

Ñuño Martínez
08-11-2018, 19:59:10
El tema de las cadenas de texto no es tan simple. Te recomiendo que definas tipos de datos nuevos para evitarte problemas. Te paso las definiciones que hice yo para Allegro.pas (https://sourceforge.net/p/allegro-pas/code/HEAD/tree/RELEASES/5.2.b.0/lib/al5base.pas):

(* Strings. Used in parameters to convert Pascal's @code(STRING) to C's
@code(char * )*)
AL_STR = ANSISTRING;
{$IFDEF ISDELPHI2009ANDUP}
AL_STRptr = PAnsiChar;
{$ELSE}
AL_STRptr = PCHAR;
{$ENDIF}


Uso PAnsiChar ya que CHAR, en las versiones modernas de Delphi, es de 2 bytes (UNICODE) no 1 (ASCII). Quizá por eso te sale "sucio", al intentar decodificar una cadena ASCII como UNICODE.

Por otro lado, uso AL_STR cuando es un parámetro y AL_STRptr cuando es una cadena devuelta por una función. El compilador se encarga de las conversiones adecuadas (siempre que no olvides el CDECL o el STDCALL, claro).

Reasen
08-11-2018, 20:19:56
Hola, ahora mismo estoy trabajando con Delphi 7, he intentando también con Embarcadero 10 lo que me dices pero obtengo los mismos resultados.

Examinando memoria he visto algo curioso que pasa en Delphi 7, en embarcadero ni siquiera tengo ese puntero
https://prnt.sc/lg0g0p
Si cambio ESP al valor al correcto ya sale el texto correctamente pero desde luego no quiero llegar a tener que escanear y escribir memoria por algo así...

Dejo la DLL ya compilada aquí por si alguien quiere echar un ojo sin tener que compilarla https://www7.zippyshare.com/v/Qa6UdBgA/file.html

escafandra
08-11-2018, 21:04:38
El error está en los parámetros. Mientras en la dll C/C++ la función espera un DWORD64 tu le pasas un integer. Además debes declarar el estilo de paso de parametros C: cdecl


Declárala así:
function Test(Modulo: UINT64; funcName: PChar): Boolean; cdecl; external 'dll1.dll' name 'Test';




Saludos.

Reasen
08-11-2018, 21:47:02
El error está en los parámetros. Mientras en la dll C/C++ la función espera un DWORD64 tu le pasas un integer. Además debes declarar el estilo de paso de parametros C: cdecl


Declárala así:
Código Delphi [-] (https://www.clubdelphi.com/foros/#)function Test(Modulo: UINT64; funcName: PChar): Boolean; cdecl; external 'dll1.dll' name 'Test';





Saludos.


Vaya, yo tenia completamente descartado que el primer parametro causara confligtos con el segundo al tratarse de una llamada a una DLL de C++, por eso estaba dándole tantas vueltas a la cabeza, muchas gracias!

Ñuño Martínez
12-11-2018, 19:36:55
Precisamente, en el archivo que enlazo en mi otro mensaje se definen la mayoría de tipos de dato atómico de C. Échale un vistazo desde la línea 55 (https://sourceforge.net/p/allegro-pas/code/HEAD/tree/RELEASES/5.2.b.0/lib/al5base.pas#l55).