Criando DLL com a IDE Lazarus � Tutorial DLL Lazarus � Parte 1

Neste tutorial vou esta demonstrando de forma pr�tica como se criar DLL usando a plataforma de desenvolvimento Free Pascal chamada Lazarus em sua vers�o 0.9.28.2.

�

Sem mais delongas, vamos por as m�os na obra.

�

O primeiro passo, ap�s abrir a IDE do lazarus, ser� fechar todos os arquivos que porventura estejam abertos, lembrando que o lazarus tem a caracter�stica de recuperar o �ltimo projeto alterado.

�

J� com os arquivos fechados, selecione no menu principal a opç�o File->New e na janela que se abre, localize a opç�o �Project� e �Library�, conforme demonstrado na imagem abaixo:

�

Na seq��ncia clique em �OK� para confirmar.

�

Agora salve o projeto em uma pasta de sua prefer�ncia com o nome de DLLLazarus ou como preferir, e em seguida selecione no menu principal a opç�o Projetct->View Source para que possamos visualizar os c�digos do mesmo. Dever� ser apresentada uma estrutura conforme a imagem abaixo:

�

Agora adicione uma nova �Unit� utilizando a opç�o File->new unit do menu principal e salve esta com o nome de �funç�es.pas� ou outro nome conforme preferir.

�

Agora codifique esta unit com os seguintes c�digos:

�


unit funcoes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;
 
function RetornaTotalCampos(var Mensagem:String;pValor1,pValor2:Double):Double;stdcall;

implementation

function RetornaTotalCampos(var Mensagem:String;pValor1,pValor2:Double):Double;stdcall;
begin
  Mensagem:='';
  // verifica se os valores s�o validos
  if (pValor1 <= 0) or (pValor2<=0) then
     Mensagem:='Os valores devem ser maior que zero!';
  // resultado
  Result := pValor1 + pValor2;
 
end;
 
end.

�

Agora v� aos c�digos principais do projeto e vamos realizar algumas mudanças que s�o extremamente necess�rias. Mas antes � importante saber que o que ir� definir se ao compilar o projeto ser� criado uma DLL ou um EXE, � a classe inicial que at� o momento esta como �Program DLLLazarus� onde DLLLazarus � o nome que usei para salvar o projeto. Devemos ent�o primeiramente alterar para �Library DLLLazarus� e desta forma ser� gerado uma DLL.

�

Agora em Uses adicione a unit ShareMem, para evitar problemas com declaraç�es de String�s e adicione tamb�m a classe exports e nela �RetornaTotalCampos�, que � o nome da funç�o criada na unit funç�es.pas. Veja o exemplo de como dever� ficar abaixo:

�


Library DLLLazus;

{$mode objfpc}{$H+}
uses
  ShareMem,
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, LResources, funcoes
  { you can add units after this };
 
{$IFDEF WINDOWS}{$R DLLLazus.rc}{$ENDIF}
exports
RetornaTotalCampos;
 
begin
  {$I DLLLazus.lrs}
  Application.Initialize;
  Application.Run;
end.

�

Agora basta dar um Build no projeto para ser gerado a nossa DLL.

�

Na pr�xima parte deste artigo vamos ver um exemplo de chamada da funç�o da DLL em um outro projeto.

�

At� l�!

Criando DLL com a IDE Lazarus � Tutorial DLL Lazarus � Parte 1

Neste pequeno artigos vamos ver de forma rápida e pratica como se criar uma DLL e realizar a chamada da mesma, utilizando os recursos da IDE do lazarus. Percebe-se que é basicamente da mesma forma que utilizamos para fazer esta rotina usando a IDE do delphi.

Artigos relacionados