Apanhando das DLL´s

Delphi

14/04/2003

:shock: Galera

Estou tentando montar uma DLL para substituir a unit com várias function que utilizo no meu aplicativo, só que não estou conseguindo ser feliz na minha tentativa. Peguei a dica do [color=olive:21ffcb1b3c]Joilson_gouveia[/color:21ffcb1b3c], e na dica [color=red:21ffcb1b3c][b:21ffcb1b3c]554[/b:21ffcb1b3c][/color:21ffcb1b3c] não encontrei como colocar mais de uma function na mesma DLL, dá erro na compilação. Aonde estou [color=red:21ffcb1b3c]errando[/color:21ffcb1b3c] ??? :lol:

Outra coisa que acabei rateando também é que não sei carregar a maldida DLL, como eu faço isto ??? :oops:

[color=blue:21ffcb1b3c][b:21ffcb1b3c]Conto com a colaboração dos amigos[/b:21ffcb1b3c][/color:21ffcb1b3c]

Obrigadu :wink:


Shaolin

Shaolin

Curtidas 0

Respostas

Itba.mg

Itba.mg

14/04/2003

Veja uma DLL :

[color=darkred:187560dd0c]library Exemplo;

uses
SysUtils,
Classes;

{$R *.res}

{$LIBPREFIX ´lib´}

function Somar(N1, N2 : Integer) : Integer; stdcall;
begin
Result := N1 + N2;
end;

function DividirInteiro(N1,N2 : integer) : Double; stdcall;
begin
Result := N1 / N2;
end;

procedure NaoFazNada; stdcall;
var
varTexto : string;
begin
varTexto := ´Não´;
varTexto := varTexto + ´ faz nada!!!´;
end;

exports
Somar,DividirInteiro;

begin
end.[/color:187560dd0c]

Para usá-la no teu programa basta colocar o seguinte:

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


[b:187560dd0c]function Somar(N1,N2 : Integer) : Integer; stdcall; external ´libExemplo.dll´;[/b:187560dd0c]

Com isso ela é carregada automaticamente

Rogério Ribeiro Macêdo
Ituiutaba-MG / Curitiba-PR
:arrow: Para cada povo o seu idioma para todos os povos o Esperanto


GOSTEI 0
Shaolin

Shaolin

14/04/2003

Valeu !!!!
Vou tentar, qualquer coisa entro em contato.

:) Obrigado !!!


GOSTEI 0
POSTAR