 |
|
Você está aqui: Delphi ::: Dicas & Truques ::: Bilbiotecas Estáticas (obj) e Dinâmicas (DLLs) |
|||
Carregando uma DLL a partir de seus programas Delphi usando Dynamic loading (carregamento dinâmico)Quantidade de visualizações: 22700 vezes |
|||
|
Por carregamento dinâmico (Dynamic loading) entendemos a técnica de carregar e liberar uma DLL (Dynamic Link Library) sempre que quisermos sem a necessidade da criação de uma unit de importação (como fazemos com o carregamento estático). O processo de carregar uma DLL dinâmicamente envolve os seguintes passos: a) Devemos declarar uma variável ou tipo procedure ou function que descreve a rotina que queremos chamar na DLL. Se a DLL foi escrita em outra linguagem diferente de Delphi, teremos que traduzir os tipos de dados. Você pode verificar como esta tradução é feita olhando as declarações de importações na unit Windows.pas e comparando com as mesmas funções na API do Windows; b) Usamos a função LoadLibrary() da API do Windows para carregar a DLL; c) Efetuamos uma chamada à função GetProcAddress() para obter um ponteiro para o endereço da rotina na DLL; d) Chamamos a rotina desejada; e) Chamamos a função FreeLibrary() da API do Windows para liberar a DLL, devolvendo ao sistema a memória alocada durante a sua execução. Para esta demonstração faremos uso da DLL MinhaDLL.dll, criada em uma das dicas nesta mesma seção. O primeiro passo é saber a assinatura da função contida na DLL e que pretendemos usar em nosso programa Delphi. A DLL MinhaDLL.dll contém uma função Somar() que recebe dois Integer e retorna a soma como um Integer:
Uma vez que já sabemos a assinatura da função que queremos chamar na DLL, podemos escrever o seguinte código Delphi:
Note que, no carregamento dinâmico, se a DLL não puder ser encontrada nada acontecerá, a menos que você remova o bloco try...finally do código, o que geraria um erro de acesso à memória. Dentro da IDE do Delphi veríamos a mensagem:
Fora da IDE a mensagem de erro é bem parecida. Lembre-se de que o os aplicativos procuram as DLLs primeiro no diretório local e em seguida nos diretórios Windows, System e System32. Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
|||
 Link para compartilhar na Internet ou com seus amigos: |
|||
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
