6 respuestas en este tema

[monchito_elroro]

Buenas tardes, aqui de nuevo con una consultita:

Lo que pasa es que sigo practicando con DLL
ya aprendi a crealos en lazarus (códigos sencillos nomás),
pero ahora el problema es al querer llamarlos desde un form,
por ejemplo he probado con este pequeño codigo:

delphi

library midll;
 
{$mode objfpc}{$H+}
 
uses
  Classes, interfaces, sysutils, dialogs;
  { you can add units after this }
 
procedure DLLMessage; export;
begin
showMessage('Hola a todos este es mi segundo DLL');
end;
 
exports DLLMessage;
 
{$R *.res}
 
begin
end.

Hasta aquí todo bien, y si estoy en lo correcto esta DLL debe crear un pequeño
cuadrito con el mensaje 'Hola a todos este es mi segundo DLL' al ser llamado,
pero lo que ocurre es que cuando lo llamo desde un boton hecho en un form sale un error
que dice:

Error
El proyecto abrirdll.exe ha lanzado una excepción de la clase 'External: SIGSEGV'



este es mi código (disculpen mi ignorancia si he puesto algo de más):

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls
  , windows, messages, variants, interfaces;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
 
 
  procedure DLLMessage; stdcall external 'midll.dll';
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DLLMessage;
 
  //loadlibrary('midll.dll');
  
end;
 
end.

         



Si se dan cuenta también he probado con un codigo que dice "loadlibrary" para
ver si sale el cuadrito de Showmessage dentro de la DLL pero nada pasa.....


agradezco su ayuda para lograr abrir esta DLL ....


PD: estos codigos me guio de un ejemplo hecho para delphi...por ser como el primo
de lazarus.....

[Sergio]

Creo que falla porque el metodo de llamada a la funcion está sin definir en la DLL, y por defecto en delphi (y supongo que en lazarus) es "register", mientras que luego en el EXE usas la funcion de la dll llamandola con el metodo "stdcall", asi que EXE y DLL no usan el mismo metodo de llamada a la funcion, lo cual es muy mala cosa.

Yo añadiria en la definicion de la funcon en la DLL explicitamente el metodo de llamada (y eliminaría el "export" que *creo* no se necesita al definir la funcion):

delphi

procedure DLLMessage; stdcall;
begin
  ShowMessage('Hola a todos este es mi segundo DLL');
end;

Otra cosa a probar es dejando la fucnión de la DLL totalmente limpia, que no haga nada, y si el EXE es capaz de llamarla sin problemas, entonces le metes el ShowMessage, por si acaso tubiese algo que ver, así separas el "esqueleto" de la DLL de lo que hacen las funciones.

[Wilson]

En delphi me funciona bien como lo pongo a continuación, podrías probar quitando en lazaruz (una por una)  las directivas : {$mode objfpo}{$h+} y {R *.res}  a ver que pasa.

delphi

library miDllPrueba;
 
uses SysUtils, Classes, Dialogs;
 
 procedure DllMessage; export;
 begin
   ShowMessage('Hola mundo') ;
 end;
 
 exports DllMessage;
 
 begin
 end.

Y desde el form declarar el procedimiento solo con "external" y no con "stdcall"

delphi

unit UMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  procedure DllMessage; external 'miDllPrueba.dll';
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 DllMessage;
end;
 
end.

[monchito_elroro]

Buenas noches con todos, gracias por responder.....
saben probé los procedimientos q me aconsejaron, pero sigue igual o al menos lo intente, pués soy principiante en esto de programar..... como les decia lo probe y sigue igual  ........

pero lo que me di cuenta (y espero q no suene ridículo) es que construyendo la DLL sin el showmessage osea así:

delphi

procedure DLLMessage; export;
begin
//showMessage('Hola a todos este es mi segundo DLL');
end;

y luego llamandola desde el form creado, ya no sale el error será que es culpa del showmessage.....
espero sus sabias palabras gracias por su atención.....

[egostar]

Puedes ver éste hilo que habla precisamente de este asunto que te hace llorar

Salud OS

[monchito_elroro]

Buenas tardes a todos, le comento que ya pude arreglar mi problemita,
lo hice poniendo este codigo:


CODIGO DE LA DLL:

delphi

library monchito;
 
{$mode objfpc}{$H+}
 
uses
  Classes, sysutils, dialogs, interfaces;
  { you can add units after this }
 
{$R *.res}
function elroro:string; export;
begin
      result:='Por FIN GRACIASSSSSSS';
     
end;
 
exports elroro;
 
begin
end.

Y este es el código del Programa que lo llama:

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, windows;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
 
function elroro:string; external 'monchito.dll';
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
 var dato: string;
begin
 
 dato:=elroro;
 showmessage(dato);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
  edit1.Text:=elroro;
 
end;
 
end.

Bueno solo lo probe con una DLL bien simplona, pero despues de leer y leer
logré algo siquiera.....

gracias a todos...

[escafandra]

He fusionado el ultimo mensaje, que de publicó como un tema independiente, con su tema de origen.


Saludos.