criar e chamar dlls

Question

Algu�m poderia por favor me dar um exemplo de como fazer fun��es em dll no delphi e depois chamar nas aplica��es ou me indicar onde posso ver isso?
Um exemplo bem simples como fazer uma fun��o que soma dois n�meros (na dll) e retorna o resultado (chamada do programa) seria bem �til.
Valeu,
LtLennon

Anonymous · Answer

Primeiramente, � preciso criar a dll. Para isso basta criar um novo projeto do tipo DLL. Voc� ent�o poder� criar fun��es e [i:d0b50ea15b]procedures[/i:d0b50ea15b]. Ex.:

procedure Soma; stdcall;
begin 
{ etc, etc, etc }
end;

E, para que as fun��es ou [i:d0b50ea15b]procedures[/i:d0b50ea15b] estejam dispon�veis quando a DLL for chamada � preciso utilizar [b:d0b50ea15b]exports[/b:d0b50ea15b].

exports 
  Soma;

Ap�s a cria��o da DLL , � preciso cham�-la na aplica��o. Isso se faz da seguinte forma:

{ � preciso declarar o tipo retornado pela fun��o GetProcAddress }
type TSoma = procedure; stdcall;

{ Declara��o de vari�veis }
var
  hDLL : THandle;
  Soma : TSoma;

Para carregar a DLL � preciso utilizar a fun��o LoadLibrary. Esta fun��o retornar� um THandle para a DLL ...

hDLL:=LoadLibrary(�exemplo.dll�);
if hDLL = 0 then raise Exception.Create(�Erro ao carregar DLL.�);

Para chamar o [i:d0b50ea15b]procedure[/i:d0b50ea15b] ou fun��o em seu c�digo � preciso saber seu endere�o dentro da DLL. Para isso usa-se a fun��o GetProcAddress ...

@Soma :=GetProcAddress(hDLL, �Soma�);

Basta verificar se o [i:d0b50ea15b]procedure[/i:d0b50ea15b] ou fun��o foi encontrado e, em caso positivo basta cham�-lo ...

if not assigned(Soma) then raise Exception.Create(�N�o foi poss�vel encontrar a fun��o em quest�o�);
Soma;

Etc, etc, etc. E, finalmente, ap�s utilizar a DLL � preciso liber�-la usando FreeLibrary ...

FreeLibrary(hDLL);

arrebola@host.sk