No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Cargar una Imagen JPEG desde la seccion de Recursos del Ejecutable.

 

Debe de crear un archivo .Rc con estos datos

 

{image.rc:}
frog RCDATA "frog.jpg"
 

y luego compilarlo

{compile resource file}
brcc32.exe image.rc
 

 

con este codigo lo hace.

delphi

{main unit}
 
implementation
{$R image.RES}
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var FJPG    : TJpegImage;
    FStream : TResourceStream;
begin
 FJPG := TJpegImage.Create;
 FStream := TResourceStream.Create(Hinstance,'frog',RT_RCDATA);
 
 FJPG.LoadFromStream(FStream);
 Image1.Picture.Bitmap.Assign(FJPG );
 
 FStream.Free;
 FJPG.Free;
end;

Saludos!