Ver la Versión Completa : ¿como usar dll delphi 7 en c++ builder 6?
Hola..
tengo un problema con una dll delphi
cargandola en una aplicacion vcl form en borland c++ builder 6
el problema es que no se que hago mal si es la declaracion de la funcion en c++
o como la mando a llamar
Esta dll delphi tiene funciones que devuelven una cadena de texto que son directorios
para las pruebas siempre responde 'lalala';
me da errores de acceso con direcciones 00F83F1A read of addres 5572693c
este es la dll
library directorios;
uses
SysUtils,
Classes;
{$R *.res}
// el parametro dir: string
// es para saber si se quiere el directorio de documentos, o el roaming o allgun otro.
// para las pruebas solo devuelve 'lalalal'
function Directorio(dir: string): string; stdcall;
begin
Result := 'lalalala';
end;
exports
Directorio;
begin
end.
y este el codigo c con el que la cargo. se supone que el resultado de llamar a esa funcion debe de
ir a un edit.
typedef char* __stdcall ( * tdirectorio ) ( char *dir ); // tipeado de la funcion delphi
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE hDll;
tdirectorio Directorio;
hDll = LoadLibrary("directorios.dll"); // carga la dll
if(hDll)
{ Directorio = (tdirectorio)GetProcAddress(hDll, "Directorio"); //obtiene el puntero
Edit1->Text = (AnsiString) Directorio("DirUserDocs");
}
else
{
ShowMessage("no se cargo la dll") ;
}
FreeLibrary(hDll);
}
//---------------------------------------------------------------------------
una ayuda.
gracias.
juanelo
26-09-2013, 00:47:09
Mucho me temo que es cuestion de manejo de memoria.
Recuerda que existe un manejador que Borland en ese momento usaba (borlndmm.dll) y si estas versiones no coinciden tanto para le DLL como para tu aplicacion en BCB, pues te dará multiples problemas de uso de memoria, lo que deriva muy seguramente en excepciones.
Saludos.
Hola juanelo
tengo una version igual pero donde la funcion de la dll no recibe parametros y devuelve un float.
y el programa c++ convierte el float en string
esa si me funciona.
no uso el dorlndmm.dll
en esa version que si me funciona
por que quiero una dll transportable y usable en cualquier lenguaje que carge dlls.
busco ejemplos de dll y no encuentro,
sale gracias.
juanelo
26-09-2013, 02:49:16
Precisamente acabas de confirmar lo que te dije, cuando se trata de tipos "basicos", como son los float, integer, char, double, etc. no hay problema de manejo de memoria, pero cuando son "objetos" que requieren manejo particular de la memoria, entonces si hay que cuidar que se maneje el mismo administrador de memoria.
Para el caso string tendrías que usar ShareMem y el BORLANDMM.DLL, puedes hacer el cambio en la dll en vez de usar string usa pchar, para evitar lo que te comento.
Saludos
ecfisa
26-09-2013, 03:50:58
Hola JXJ.
Como bién te comenta juanelo el resultado de la función Delphi deberìa ser de tipo PChar:
library Directorios;
uses
SysUtils, Classes;
{$R *.res}
function Directorio(dir: string): PChar; stdcall;
begin
Result := 'lalalala';
end;
exports
Directorio;
begin
end.
C++ Builder:
typedef const char* __cdecl(*pFunc) (char*); pFunc Directorio;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE hDll ;
hDll = LoadLibrary("directorios.dll");
__try {
if(hDll) {
Directorio = (pFunc)GetProcAddress(hDll, "Directorio"); //obtiene el puntero
Edit1->Text = Directorio("XXXX"); // ( lalalala )
} else
ShowMessage("No se pudo cargar la DLL");
}
__finally {
FreeLibrary(hDll);
}
}
Fijate que en la declaración uso __cdecl en lugar de __stdcall. Y que en el código de ejemplo, es necesario que el archivo directorios.dll se encuentre en la misma ubicación del proyecto c++.
Saludos :)
Hola efics
. sigo revisando.
avmm2004
26-09-2013, 08:50:01
Prueba a usar la convencion de llamada o de paso de parametros cdecl (creo recordar) en vez de stdcall en delphi.
C utiliza cdecl y delphi utiliza stdcall y tu estas utilizando una dll en delphi y un programa en c.
A partir de ahi deberia funcionar. Utiliza tambien la borlando como te dice siempre que creas la dll en delphi como primera unit en los programas llamador y la dll.
Deberia funcionar.
escafandra
26-09-2013, 14:48:32
Tanto el la dll como en el código que la usa, las convenciones de paso de parámetros deben ser idénticas, normanlmente se toma stdcall. La función de la dll debe ser exportada para que sea visible desde la misma por otras aplicaciones que la usen.
library MiDll;
function MiFuncion(): Integer; stdcall;
begin
//.......
end;
..........................
exports
MiFunción;
begin
end.
Desde C++ podemos importar la función dinámica o estáticamente.
typedef int __stdcalll(*pMiFuncion) ();
HINSTANCE hDll = LoadLibrary("MiDll.dll");
pMiFuncion MiFunción = (pMiFuncion)GetProcAddress(hDll, "MiFuncion");
if(MiFunon)
int R = MiFuncion;
Saludos.
con este codigo c
logre llamar a la funcionde la dll sin errores de memoria
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "consumedelphidllu.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tconsumedelphidllf *consumedelphidllf;
//---------------------------------------------------------------------------
__fastcall Tconsumedelphidllf::Tconsumedelphidllf(TComponent* Owner)
: TForm(Owner)
{
}
typedef const char* __cdecl(*pFunc)(char*); pFunc Directorio;
//---------------------------------------------------------------------------
void __fastcall Tconsumedelphidllf::Button1Click(TObject *Sender)
{
HINSTANCE hDll ;
hDll = LoadLibrary("directorios.dll");
__try {
if(hDll) {
Directorio = (pFunc)GetProcAddress(hDll, "Directorio"); //obtiene el puntero
Edit1->Text = Directorio("DirUserDocs"); // ( lalalala )
} else
ShowMessage("No se pudo cargar la DLL");
}
__finally {
FreeLibrary(hDll);
}
}
//---------------------------------------------------------------------------
ahora el problema es el codigo delphi
por que al llamar a la funcion
que busca el directorio
al pasar el resultado en el programa borland c no da error sino que se pone en blaco el edit.
pero si se muestra el mesagebox con el directorio esperado.
library directorios;
uses
EMemLeaks,
EResLeaks,
EDialogWinAPIMSClassic,
EDialogWinAPIEurekaLogDetailed,
EDialogWinAPIStepsToReproduce,
EDebugExports,
ExceptionLog7,
SHFolder,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,
ActiveX, shlobj, ShellAPI, Registry, IniFiles;
{$R *.res}
function GetSystemPath(Folder: integer): PChar;
var sDir: string;
begin
SetLength(sDir, MAX_PATH);
ZeroMemory(@sDir[1], MAX_PATH);
if Succeeded(SHGetFolderPath(0, Folder, 0, 0, PAnsiChar(sDir))) then
begin
Result := PChar(sDir);
ShowMessage(sDir);
end;
end;
function Directorio(dir: string): PChar; stdcall;
begin
Result := GetSystemPath(CSIDL_PERSONAL);
end;
exports
Directorio;
begin
end.
ya no se donde esta el problema..
gracias por su tiempo.
ustedes no tienen algunos codigos fuente de los cuales aprender sobre
dll con delphi y llamado con c++, y dll c con llamados por programa c.c++
sigo revisando que ando haciendo mal.
ecfisa
27-09-2013, 06:54:03
Hola JXJ.
Usando Delphi 7 y C++ Builder 6, de este modo me funciona bién:
library Directorios;
uses Windows, SysUtils, Classes, SHFolder;
{$R *.res}
function GetSystemFolder(Folder: Integer): PChar;
var
sDir: string;
begin
SetLength(sDir, MAX_PATH);
ZeroMemory(@sDir[1], MAX_PATH);
SHGetFolderPath(0, Folder , 0, 0, PChar(sDir));
Result := PChar(sDir);
end;
function Directorio(dir: string): PChar; stdcall;
begin
Result := GetSystemFolder(CSIDL_PERSONAL);
end;
exports
Directorio;
begin
end.
C++ Builder:
...
typedef const char* __cdecl(*pFunc) (char *); pFunc Directorio;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE hDll = LoadLibrary("directorios.dll");
if (hDll) {
Directorio = (pFunc) GetProcAddress(hDll, "Directorio");
Edit1->Text = Directorio("DirUserDocs");
}
else
ShowMessage("No se pudo cargar la DLL");
}
...
Saludos :)
ecfisa
Gracias. ahora si ya quedo..
gracias a todos. :D
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.