Social Icons

^^

quarta-feira, 13 de janeiro de 2010

Como utilizar uma DLL?

Este tópico ensinará como criar uma DLL - biblioteca de ligação dinâmica.



Procedimentos a serem executados:

 File -> Close All

 File->New->Other->DLL Wizard

 Apague o comentário após a linha Library Project2;

 Digite as funções que farão parte da DLL e deixe-a da seguinte maneira:

Library DLLCurso;

Uses SysUtils, Classes;

{$R *.res}

Function Triplo(N: Integer): Integer; stdcall; // permite exportar para C, C++, etc.

begin

Result := N * 3;

end;

Function Dobro (N: Integer): Integer; stdcall;

begin

Result := N * 2;

end;

Exports Triplo Index 1, Dobro Index 2; // Permite acesso às funções declaradas

end.



 Salve o projeto como “C:\Sistema\DLLCurso“ e compile-o ([Ctrl] + [F9]). Após isso será criado um arquivo com o nome do projeto, só que com a extensão DLL.

 Para usar as DLL, crie uma aplicação nova com 02 botões e 01 Edit, e declare suas funções antes da seção Implementation, no seguinte formato:

Function Triplo(N: Integer): Integer; stdcall;

Function Dobro(N: Integer): Integer; stdcall;

 Dentro da seção Implementation, após a diretiva {$R *.DFM}, digite:

Function Triplo(N: Integer): Integer; external ‘C:\Sistema\DLLCurso.dll';

Function Dobro(N: Integer): Integer; external ‘C:\Sistema\DLLCurso.dll';

 Chame cada função no evento OnClick dos botões, passando como parâmetro o número de que se deseja calcular o triplo ou o dobro.

Ex.:Edit1.Text := IntToStr(Dobro(100)); // retorna 200

Edit1.Text := IntToStr(Triplo(100)); // retorna 300

Nenhum comentário:

Postar um comentário

Popular Posts

- Arquivo -

 

Seguidores

Hora exata:

Total de visualizações de página