Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-11-2018
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
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

Última edición por Reasen fecha: 08-11-2018 a las 02:38:06.
Responder Con Cita
  #2  
Antiguo 08-11-2018
lucho6007 lucho6007 is offline
Miembro
 
Registrado: ene 2009
Ubicación: Junín, pcia de BsAs, Argentina
Posts: 82
Poder: 16
lucho6007 Va por buen camino
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!
Responder Con Cita
  #3  
Antiguo 08-11-2018
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
Cita:
Empezado por lucho6007 Ver Mensaje
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.
Responder Con Cita
  #4  
Antiguo 08-11-2018
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.003
Poder: 26
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
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).
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #5  
Antiguo 08-11-2018
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Poder: 9
Reasen Va por buen camino
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
Responder Con Cita
  #6  
Antiguo 08-11-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.202
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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.

Última edición por escafandra fecha: 08-11-2018 a las 22:28:14.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:07:11.


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
Copyright 1996-2007 Club Delphi