Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema con DLL (https://www.clubdelphi.com/foros/showthread.php?t=93549)

Reasen 08-11-2018 02:28:14

Problema con DLL
 
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.

Código Delphi [-]
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++
Código PHP:

#include "stdafx.h"
#include <Windows.h>
BOOL WINAPI DllMain(HINSTANCE hinstDLLDWORD fdwReasonLPVOID lpvReserved)
{
    return 
TRUE;
}

extern "C" __declspec(dllexportDWORD64 Test(DWORD64 hModulecharfuncName)
{
    
MessageBoxA(0funcName""0);
    return 
TRUE;


https://prnt.sc/lfoe34

lucho6007 08-11-2018 13:49:19

Falta stdcall
 
Te faltó agregar stdcall al final de la declaración.

Quedaría algo así:


Código Delphi [-]
function Test(Modulo: integer; funcName: PChar): Boolean; external 'dll1.dll' name 'Test'; stdcall;


Saludos y espero te sirva!

Reasen 08-11-2018 13:53:06

Cita:

Empezado por lucho6007 (Mensaje 529439)
Te faltó agregar stdcall al final de la declaración.

Quedaría algo así:


Código Delphi [-]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 20: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:
Código Delphi [-]
  (* 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 21: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 22: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í:
Código Delphi [-]
function Test(Modulo: UINT64; funcName: PChar): Boolean; cdecl; external 'dll1.dll' name 'Test';




Saludos.

Reasen 08-11-2018 22:47:02

Cita:

Empezado por escafandra (Mensaje 529454)
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 [-]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 20: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.


La franja horaria es GMT +2. Ahora son las 03:10:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi