Artigo Clube Delphi Edição 1 - Dll’s! Devo mesmo usar?

Dll’s! Devo mesmo usar?

Vamos botar a mão na massa e falar sobre código! Aqui você terá uma coluna dedicada sobre dicas e funções em Delphi, explicadas passo a passo. O tema escolhido este mês foi a Dynamic Library Link, ou como é mais conhecida, DLL. O artigo foi criado no formato pergunta/resposta, para que a leitura ficasse num formato mais dinâmico.

Qual a vantagem de se criar umaDLL?

O conceito de DLL (dynamic link library) é bem interessante e seria difícil imaginar um ambiente multitarefa sem este recurso. Basicamente, uma DLL é uma biblioteca de funções, e estas podem ser acessadas por várias aplicações diferentes, ao mesmo tempo. Economiza-se em espaço em disco, pois as funções acessadas por vários aplicativos não estarão repetidas. Não ocupa permanentemente espaço de memória, pois ao acabar de fazer uso da função, o aplicativo pode liberar o espaço ocupado por esta.

DLL's ajudam apenas na economia de espaço?

Não. Uma biblioteca dinâmica pode ajudar também de outras formas. Por exemplo: Uma empresa investirá em um projeto relativamente grande, e esta precisa escolher a ferramenta adequada. Provavelmente, alguém levantará a questão: "E se investirmos nesta ferramenta, e a empresa que a produz fechar as portas antes de terminarmos o projeto? Ou se aparecer uma versão mais moderna que não seja compatível com a atual? Teremos que mudar todo o código e recomeçar a programação ?"

Uma DLL resolveria esta questão, e eliminaria a incerteza sobre a ferramenta. Ou seja, o código base e as funções mais complexas poderiam ser armazenadas em DLL's. Caso a mudança fosse necessária, as funções poderiam ser utilizadas a partir da nova ferramenta, sem problemas.

DLL's também ajudam na hora de atualizar o sistema. Seria bem simples dizer ao seu cliente: vá na internet e baixe a nova versão do arquivo 'EnviaTabelaParaBanco dll', caso o banco mude o layout de seus arquivos.

DLL's guardam apenas funções?

Não. Você também pode armazenar formulários, ícones, figuras e textos.

Outra pessoa pode visualizar e código fonte da minha DLL?

A princípio, não. A DLL é compilada como um executável.

Siga os procedimentos e veja como criar uma DLL:

No Delphi 6, selecione o menu File, New. No repositório de objetos, dê um clique duplo no ícone,um novo projeto será criado, com apenas uma unidade, que deverá se parecer com o código abaixo:

library Project1;

uses

   SysUtils,

   Classes;

   begin

end.

Repare que a primeira linha apresenta a palavra-chave Library, em vez de Unit.

Agora, incluiremos as funções, abaixo da cláusula USES e salvaremos com o nome de Decimal_binario_Dll. As funções utilizadas como exemplo servem para converter de decimal para binário, e vice-versa:

library Project1;

uses

SysUtils,

Classes;

function Potencia(numero,potencia:integer):integer;

var

cont:Integer;

begin

  if (potencia=0) or (numero=0) then

  result:=0

Else

begin

  result:=numero;

  for cont:=2 to potencia do

  result:=result * numero;

End;

End;

Function BinarioParaDecimal (binario:String):Integer;stdcall;

var

cont:Integer;

begin

  result:=0;

  for cont:=Length(binario) downto 1 do

  begin

result:=result + potencia(2 * STrToInt(binario[cont]),length(binario)-cont);

  end;

end;

function DecimalParaBinario(decimal:integer):String;stdcall;

var

binario,r:String;

cont,resto, quociente:Integer;

begin

  binario:=’’;

  result:=’’;

  r:=’’;

while decimal>=2 do

begin

  quociente:=decimal div 2;

  resto:=decimal mod 2;

  binario:=binario+IntToStr(resto);

  decimal:=quociente;

  if decimal=1 then

  binario:=binario+IntTostr(quociente);

End;

for cont:=Length(binario) downto 0 do

r := r + binario[cont];

result:=r;

end;

exports

BinarioParaDecimal index 1,

DecimalParaBinario index 2;

{$R *.res}

begin

end.

A sintaxe é bem simples: basta criar a cláusula exports e definir o nome das funções que serão exportadas.

Note que após o cabeçalho da função que será exportada, aparece a cláusula stdcall. Stdcall significa que a linguagem que se utilizar desta função deverá passar os parâmetros da forma convencional, ou seja, da direita para a esquerda.

Repare também que a função potência é apenas de uso interno, e não será exportada pela DLL.

O parâmetro index serve como alternativa para identificação da função.

Após, basta compilar a unidade e o Delphi criará o arquivo .dll, com o nome do projeto e no diretório em que este foi salvo.

Importando as funções de uma DLL

Agora que já vimos como criar a DLL e exportar suas funções, veremos como usá-las através do Delphi. Existem dois métodos de acesso: estático e dinâmico. No método estático temos vantagens e desvantagens :

Desvantagens : A DLL é carregada juntamente com o programa causando evidente desperdício de memória até o encerramento do aplicativo, e seu sistema fica escravo da Dll, sem ela o mesmo não executa.

A vantagem é que este método é mais fácil de ser implementado.

No método dinâmico a DLL pode ser carregada e descarregada de acordo com a necessidade, poupando memória. Porém, a implementação do método dinâmico é mais complexo. Veremos os dois:

Método Estático:

Para acessar uma função externa usando este método, basta declarar o cabeçalho da função logo abaixo da seção implementation, como mostrado abaixo:

implementation

Function DecimalParaBinario(decimal:Integer): String; stdcall;external 'NomeDoArquivo.DLL';

{$R *.dfm}

O comando stdcall, indica que os parâmetros serão passados para a função da forma convencional. A cláusula external indica o arquivo em que a função se encontra.

E após, a função pode ser utilizada normalmente como se estivesse no programa.

Método Dinâmico:

Este método é um pouco mais trabalhoso. Primeiramente, devemos criar um ponteiro que receberá o cabeçalho da função:

Type

TDecimalParaBinario = function(decimal:Integer):string;

Devemos criar também uma variável do tipo handle, que receberá o handle da DLL:

var

  Form1: TForm1;

  DecimalParaBinario : TDecimalParaBinario;

  hdl : Thandle;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);

Begin

  Hdl:=LoadLibrary(‘Decimal_Binario.dll’);

  @DecimalParaBinario := GetProcAddress(hdl,’DecimalParaBinario’);

End;

Primeiramente, pegamos o handle da dll com a API LoadLibrary; Após atribuímos o endereço da função desejada (DecimalParaBinario) a variável DecimalParaBinario, declarada anteriormente. Para recuperar este endereço, usamos a API GetProcAddress. Devemos passar o handle do arquivo, e o nome da função para esta API.

Após a variável DecimalParaBinario ser inicializada pela função GetProcAddress, esta pode ser utilizada normalmente como se estivesse local ao programa:

Procedure Tform1.button1click

(sender:tobject);

Begin

Edit1.text:=DecimalParaBinario(20);

End;

Quando a dll não for mais necessária, basta chamar a Api FreeLibrary, para que esta seja liberada da memória:

FreeLibrary(hdl);

Adicionando um formulário a DLL:

Além de funções, uma DLL pode conter gráficos, textos, ícones, e até mesmo formulários. Para incluir um formulário, por exemplo, basta incluir uma unidade no projeto, clicando no menu Fileà Newà Form.  Após , crie um procedimento exportado

que chame este formulário:

procedure exibe; stdcall;export;

begin

  Application.CreateForm(TForm1,Form1);

  form1.showmodal;

  form1.free;

End;

Repare que o formulário precisa ser criado, com o método Crateform, do objeto TApplication. Como vimos, o uso e criação de DLLs no Delphi são muito fáceis

de serem implementados. DLLs, quando bem utilizadas, podem melhorar o desempenho de suas aplicações. Na hora de fazer seu projeto, não deixe de analisar como este

recurso poderá ajudá-lo.

Dúvidas ou opiniões sobre este tópico

podem ser enviadas para: admin@clubedelphi.com.br