Ir al contenido


Foto

Como crear una dll en lazarus


  • Por favor identifícate para responder
1 respuesta en este tema

#1 monchito_elroro

monchito_elroro

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes

Escrito 17 abril 2011 - 12:59

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
  1. library monchito;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   Classes, sysutils, Dialogs;
  7.  
  8.   { you can add units after this }
  9.  
  10. {$R *.res}
  11.  
  12. procedure pruebaMensaje (mensaje:string);  stdcall;
  13. begin
  14.     ShowMessage(mensaje);
  15.  
  16. end;
  17.  
  18. exports pruebaMensaje;
  19.  
  20. begin
  21. 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...
  • 0

#2 fredycc

fredycc

    Advanced Member

  • Moderadores
  • PipPipPip
  • 874 mensajes
  • LocationOaxaca, México

Escrito 17 abril 2011 - 04:17

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
  1. library project1;
  2.  
  3. uses
  4.   Interfaces,Classes, sysutils, Dialogs;
  5.  
  6. { you can add units after this }
  7.  
  8. procedure pruebaMensaje (mensaje:string);  stdcall;
  9. begin
  10.     ShowMessage('mensaje');
  11. end;
  12.  
  13. {$R *.res}
  14.  
  15. begin
  16. end.


y construimos.

Saludos

  • 0




IP.Board spam blocked by CleanTalk.