Como Transportar Imagens em Uma DLL
Como Transportar Imagens em Uma DLL
Como Transportar Imagens em Uma DLL
Essa dica usou um bmp mas pode ser adaptada pra jpg, gif, etc ...
Via Delphi :
- Salve-o com o nome BMPS.RES na pasta onde será salvo o projeto do Delphi;
- Abra o arquivo de projeto (DLLBmp.dpr) e altere para ficar somente com as linhas
abaixo:
{$R BMPS.RES}
library DLLBmp;
end.
{ Carrega a DLL }
HandleDLL := LoadLibrary('DLLBmp.DLL');
if HandleDLL = 0 then
ShowMessage('Não foi possível carregar DLLBmp.DLL')
else
try
Bmp := TBitmap.Create;
try
Bmp.Handle := LoadBitmap(HandleDLL, PChar(Edit1.Text));
if Bmp.Handle = 0 then
ShowMessage('Não foi possível carregar o Bitmap.')
else
{ Pinta o Bitmap no form }
Canvas.Draw(0, 0, Bmp);
finally
Bmp.Free;
end;
finally
{ Libera a DLL }
FreeLibrary(HandleDLL);
end;
end;
======================= Para testar =======================
- Execute este projeto;
- Digite no Edit1 o nome que foi dado ao Bitmap no arquivo de recursos (.RES);
- Clique no botão. O bitmap deverá ser pintado no form.
Veja todos antes de tirar a sua conclusão
abraço
Imagens em uma DLL 03
Código
{Primeiramente crie um novo arquivo de resources (*.res) no Image editor do Delphi (menu
tools | Image editor), nele que estará guardada a imagem. Crie um Bitmap e renomei-o para
figura. salve o arquivo como imagem.res e feche o Image Editor. Crie uma Dll no Delphi,
vá no menu (file | New | DLL). Salve a Dll no mesmo local do arquivo Res e mude o código
fonte da Dll conforme o texto abaixo: }
library icones;
{$R imagem.res}
begin
end.
{Compile a Dll. Crie um novo projeto, no formulário coloque um objeto image e um button.
No evento onclick do botão escreva o código abaixo: }
Obs: Mas atenção com o tamanho do arquivo... Quanto mais recursos incluir maior será
o tamanho final do arquivo.dll... No meu exemplo, a DLL passou rapidamente de 600Kb
p/ 2.23 MB (após incluir o BMP)