Buscar por:

Usar jpg com delphi

Código

ARQJPEG RCDATA "Arquivo.jpg"

Deve-se então compilar este arquivo com o programa BRCC32.EXE, que se encontra no Delphi, transformando-o em um arquivo .RES:

BRCC32 Arqjpg.RC

Em seguida, deve-se incluir uma linha para que o compilador leia e inclua este arquivo no executável.

{$R Arqjpg.RES} 

Para ler o arquivo Jpeg, usa-se um TresourceStream, que carrega o recurso, jogando-o para um TJPegImage. Em seguida, pode-se trabalhar como qualquer imagem. Por exemplo, este código lê um arquivo Jpeg de um arquivo de recursos e desenha no Form:

Var

JpegImage : TJPEGImage;

ResourceStream : TresourceStream;

Begin

JpegImage := TJPEGImage.Create;

Try

// Cria ResourceStream

ResourceStream := TresourceStream.Create.(Hinstance,'Arqjpeg', RT_RCDATA); 

Try

// Joga Stream para imagem

JPEGImage.LoadFromStream(ResourceStream);

Finally

ResourceStream.Free;

End;

// Desenha imagem

Canvas.Draw(0,0,JPEGImage);

Finally

JPEGImage.Free;

End;

End;