1 respuesta en este tema

[monchito_elroro]

buenas tardes amigos, saben estoy deseando aprender a crear una DLL en lazarus
he leido manuales (más que todo hechos para delphi) y estoy empezando con uno
fácil como el que sigue:

delphi

library monchito;
 
{$mode objfpc}{$H+}
 
uses
  Classes, sysutils, Dialogs;
 
  { you can add units after this }
 
{$R *.res}
 
procedure pruebaMensaje (mensaje:string);  stdcall;
begin
     ShowMessage(mensaje);
 
end;
 
exports pruebaMensaje;
 
begin
end.

lo he hecho casi identico como un manual lo explica (para delphi) pero no se porque en la parte
de showmessage se queda como si hubiera un error... sale esto:

monchito.lpr(15,17) Error: Identifier not found "ShowMessage"


me parece raro e incomodo pues lo he hecho igual al ejemplo de una web.....

por favor si me pueden ayudar


PD: estoy usando Lazarus...

[fredycc]

Buenas tardes monchito, son algunos detalles que hay considerar con Lazarus a diferencia de Delphi, primero tienes que agregar el paquete LCL por el simple hecho de usar Showmessage para ello vamos:

Proyecto -> Inspector de Proyecto -> [Añadir/Nuevo Requerimiento] y Seleccionamos LCL.

Una vez hecho esto en el apartado USES agregamos: Interfaces,Classes, sysutils, Dialogs;

delphi

library project1;
 
uses
  Interfaces,Classes, sysutils, Dialogs;
 
{ you can add units after this }
 
procedure pruebaMensaje (mensaje:string);  stdcall;
begin
     ShowMessage('mensaje');
end;
 
{$R *.res}
 
begin
end.

y construimos.

Saludos