2 replies to this topic

[Fagney Cardoso]

Eae galera. Eu preisava muito de um programa que fizesse este tipo de arquivo, pois estou querendo criar uma DLL de imagens. Valeu..

Edição feita por: Fagney Cardoso, 14/07/2007, 13:34.

[Abel André]

Eae galera. Eu preisava muito de um programa que fizesse este tipo de arquivo, pois estou querendo criar uma DLL de imagens. Valeu..

Eu gosto de usar o Brcc32 do Delphi que fica nesse diretório, dependendo de sua instalação..
"C:\Arquivos de programas\Borland\Delphi7\Bin\brcc32.exe"

1°) Abra o Bloco de notas, edite ele da seguinte forma pra gerar um arquivo que contém 2(dois) Bitmaps

//------------------------------------
bmp1 BITMAP imagem1.bmp
bmp2 BITMAP imagem2.bmp
//------------------------------------

2º Salve esse texto com a extenção .rc Exemplo: Arquivo.rc
(Supomos que vc salvou em uma pasta chamada "img" na unidade c:)

3º Abra o "Prompt do DOS" (cmd no XP) e digite:
C:\Arquivos de programas\Borland\Delphi7\Bin\ brcc32 -r -32 c:\img\arquivo.rc

4º Tecle Enter.
Pronto! vc criou um arquivo com a extenção .res chamado Arquivo.res na pasta "c:\img"

Obs: certifique-se de colocar na pasta "c:\img" as imagens citadas no texto que será salvo (imagem1.bmp, imagem2.bmp).
É possível colocar qualquer tipo de arquivo (Recurso) em um arquivo .Res

pra colocar esses arquivos no .exe ou na dll, nesta parte da sua unit:

var
  Form1: TForm1;

implementation

{$R *.dfm}

{$R Arquivo.res } <==< Nome do arquivo que foi gerado.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp:= TBitmap.Create;
Bmp.Handle := LoadBitmap(hinstance, 'bmp1'); (ou bmp2 no caso desse arquivo)
image1.Picture.Bitmap:=Bmp;
Bmp.Free;

end;

end.

[Fagney Cardoso]

Eae galera. Eu preisava muito de um programa que fizesse este tipo de arquivo, pois estou querendo criar uma DLL de imagens. Valeu..

Eu gosto de usar o Brcc32 do Delphi que fica nesse diretório, dependendo de sua instalação..
"C:\Arquivos de programas\Borland\Delphi7\Bin\brcc32.exe"

1°) Abra o Bloco de notas, edite ele da seguinte forma pra gerar um arquivo que contém 2(dois) Bitmaps

//------------------------------------
bmp1 BITMAP imagem1.bmp
bmp2 BITMAP imagem2.bmp
//------------------------------------

2º Salve esse texto com a extenção .rc Exemplo: Arquivo.rc
(Supomos que vc salvou em uma pasta chamada "img" na unidade c:)

3º Abra o "Prompt do DOS" (cmd no XP) e digite:
C:\Arquivos de programas\Borland\Delphi7\Bin\ brcc32 -r -32 c:\img\arquivo.rc

4º Tecle Enter.
Pronto! vc criou um arquivo com a extenção .res chamado Arquivo.res na pasta "c:\img"

Obs: certifique-se de colocar na pasta "c:\img" as imagens citadas no texto que será salvo (imagem1.bmp, imagem2.bmp).
É possível colocar qualquer tipo de arquivo (Recurso) em um arquivo .Res

pra colocar esses arquivos no .exe ou na dll, nesta parte da sua unit:

var
  Form1: TForm1;

implementation

{$R *.dfm}

{$R Arquivo.res } <==< Nome do arquivo que foi gerado.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp:= TBitmap.Create;
Bmp.Handle := LoadBitmap(hinstance, 'bmp1'); (ou bmp2 no caso desse arquivo)
image1.Picture.Bitmap:=Bmp;
Bmp.Free;

end;

end.

muito obrigado
valeu mesmo!