Fórum Problemas as carregar Funções em DLL - Delphi 2007 #390875
19/11/2010
0
Olá caros forumeiros, trabalho com Delphi a alguns dias e recentemente surgiu-me a seguinte dificuldade:
Criei uma dll contendo algumas funções que uso no sistema e nesta dll há uma diretiva que aponta para um arquivo de recurso chamado IMAGENS.RES, após desenvolver a função abaixo e a mesma ter funcionado bem com arquivos BMP e JPG precisei usa-la em arquivos PNG e para minha surpresa a função me diz que o resource não foi encontrado. Toda a ajuda será bem vinda, segue a função: [color="#FF0000"]var[/color]
[color="#000080"]Figura : TPNGObject;[/color]
[color="#FF0000"]Begin[/color]
[color="#000080"]Figura := Loadlibrary('Biblioteca.dll');[/color]
[color="#FF0000"]try[/color]
[color="#FF0000"]if[/color] [color="#000080"]Figura <> 0 then[/color]
[color="#000080"]ImgSplashPadrao.Picture.Bitmap.LoadFromResourceName(Figura,'PNG_SPLASH')[/color]
[color="#FF0000"]else[/color]
[color="#000080"]Showmessage('DLL não encontrada');[/color]
[color="#FF0000"]except[/color]
[color="#000080"]freelibrary(Figura);[/color]
[color="#FF0000"]end;[/color]
Criei uma dll contendo algumas funções que uso no sistema e nesta dll há uma diretiva que aponta para um arquivo de recurso chamado IMAGENS.RES, após desenvolver a função abaixo e a mesma ter funcionado bem com arquivos BMP e JPG precisei usa-la em arquivos PNG e para minha surpresa a função me diz que o resource não foi encontrado. Toda a ajuda será bem vinda, segue a função: [color="#FF0000"]var[/color]
[color="#000080"]Figura : TPNGObject;[/color]
[color="#FF0000"]Begin[/color]
[color="#000080"]Figura := Loadlibrary('Biblioteca.dll');[/color]
[color="#FF0000"]try[/color]
[color="#FF0000"]if[/color] [color="#000080"]Figura <> 0 then[/color]
[color="#000080"]ImgSplashPadrao.Picture.Bitmap.LoadFromResourceName(Figura,'PNG_SPLASH')[/color]
[color="#FF0000"]else[/color]
[color="#000080"]Showmessage('DLL não encontrada');[/color]
[color="#FF0000"]except[/color]
[color="#000080"]freelibrary(Figura);[/color]
[color="#FF0000"]end;[/color]
Josemir Dias
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)