Chamando dll somente na hora de usa-la

[Rodrigo Miss 1]

Alo galera!!! To começando a mexer com dlls,,, e me pintou a seguinte curiosidade:Como q eu chamo uma dll no meu sistema,, sem interferir na hora de carregar o programa independente c a dll esta ou naum esta no caminho apropriado??? verificando assim somente no momento em q o sistema for usar realmente a dll???

[marcio.theis 3]

você pode usar o Handle, eu faço algo do tipo:

 

logo abaixo do type coloco:

 

TNome_da_Funcao  = function (parâmetros_a_passar): tipo_retorno; stdcall;

Chamada da DLL

 

procedure TfrmPrincipal.BitBtn1Click(Sender: TObject);var	Handle: THandle;	funcao: TNome_da_Funcao;beginHandle:=LoadLibrary('Nome_da_DLL.Dll');if Handle <> 0 then	begin	@funcao:=GetProcAddress(Handle, 'Nome_da_Funcao');	if @funcao <> nil then		begin		//chama a função passando os parâmetros		if funcao(parâmetros) = restricao then			//executa o q desejar		end;FreeLibrary(Handle);end;

Neste caso não preciso ter a DLL...

[Rodrigo Miss 1]

Ok grande Marcio... vo faze issu entao... mto obrigado.,,, ah c puder me da mais uma dica,,,,poderia me fala mais sobre o "THandle"???

[marcio.theis 3]

Veja:

 

http://www.mail-archive.com/delphi-br@yaho...r/msg10325.html

[Rodrigo Miss 1]

Kra desculpe a inscistencia ,, + so mais uma coisinha??

 

na seguinte linha:

 

@funcao:=GetProcAddress(Handle, 'Nome_da_Funcao');

oke esse @ quer dizer??????

[marcio.theis 3]

Tanto faz se você atribui GetProcAddress a funcao ou @funcao, no caso funcao é um ponteiro sem tipo, ou seja, não tipado. Quando você utiliza por ex: @funcao, terá o endereço de memória da variável.

No caso @funcao irá conter a procedure, function chamada, podendo assim validar se a mesma existe validando pelo nil

if @funcao <> nil then

Evitando assim aquelas mensagens de erro de acesso a memória...