Como utilizar os recursos de uma DLL?
28/04/2003
0
Olá,
Conheço 2 possibilidades para ´importação´ dos recursos de uma DLL:
1 - declaração de uma procedure com a cláusula ´EXTERNAL´
2 - IMPORT TYPE LIBRARY
Gostaria de saber em quais casos estes cada processo acima é mais indicado! Caso exista outra maneira por favor me informem.
Recebi algumas DLLs de terceiros e devo utiliza-las em um simples programa Delphi similar oa código VB abaixo:
*********** INICIO CÓDIGO VB ***********
Dim arquivo As String
* Esta variável guarda o caminho completo junto com o nome do arquivo BBB
Exemplo: c\agfprop\AB2102161AD7033057536715101.BBB
Dim resultado As String
*Retorno do caminho onde o TXT foi gerado e o nome do arquivo
Dim dir_txt as String
*Caminho onde será gerado o TXT ex: C:\Arquivo_Gerado\
Dim erro As Variant
Dim converte As ConverTXT.GravaTXT
*Não esquecer de referenciar a ConverTXT.DLL
Set converte = New ConverTXT.GravaTXT
Dim Documento As DocLib.oDoc
* Não esquecer de referenciar a DocLib.DLL
Set Documento = New DocLib.oDoc
resultado = converte.GravarArquivoTXT(Documento, arquivo, dir_txt, erro)
Set converte = Nothing
Set Documento = Nothing :?:
*********** FIM DO CÓDIGO VB ***********
Abraços,
Daniel Almeida.
Conheço 2 possibilidades para ´importação´ dos recursos de uma DLL:
1 - declaração de uma procedure com a cláusula ´EXTERNAL´
2 - IMPORT TYPE LIBRARY
Gostaria de saber em quais casos estes cada processo acima é mais indicado! Caso exista outra maneira por favor me informem.
Recebi algumas DLLs de terceiros e devo utiliza-las em um simples programa Delphi similar oa código VB abaixo:
*********** INICIO CÓDIGO VB ***********
Dim arquivo As String
* Esta variável guarda o caminho completo junto com o nome do arquivo BBB
Exemplo: c\agfprop\AB2102161AD7033057536715101.BBB
Dim resultado As String
*Retorno do caminho onde o TXT foi gerado e o nome do arquivo
Dim dir_txt as String
*Caminho onde será gerado o TXT ex: C:\Arquivo_Gerado\
Dim erro As Variant
Dim converte As ConverTXT.GravaTXT
*Não esquecer de referenciar a ConverTXT.DLL
Set converte = New ConverTXT.GravaTXT
Dim Documento As DocLib.oDoc
* Não esquecer de referenciar a DocLib.DLL
Set Documento = New DocLib.oDoc
resultado = converte.GravarArquivoTXT(Documento, arquivo, dir_txt, erro)
Set converte = Nothing
Set Documento = Nothing :?:
*********** FIM DO CÓDIGO VB ***********
Abraços,
Daniel Almeida.
Dwng
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)