Dicas - Imagens em DLLs

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Gravando e Lendo imagens em DLL's.

Gravando e Lendo imagens em DLL's

 

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:

 

procedure TForm1.Button1Click(Sender: TObject);

var

  fig: Thandle;

begin

  fig := Loadlibrary('figura.dll');

  try

    if fig <> 0 then

      image1.Picture.Bitmap.LoadFromResourceName(fig,'figura')

    else

      ShowMessage('DLL não encontrada');

  except

    Freelibrary(fig);

  end;

end;

 

Veja o programa sendo executado após o click no botão:

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?