Ir al contenido


Foto

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


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 01 diciembre 2016 - 07:43

[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
  1. {main unit}
  2.  
  3. implementation
  4. {$R image.RES}
  5.  
  6. procedure TForm1.SpeedButton1Click(Sender: TObject);
  7. var FJPG : TJpegImage;
  8. FStream : TResourceStream;
  9. begin
  10. FJPG := TJpegImage.Create;
  11. FStream := TResourceStream.Create(Hinstance,'frog',RT_RCDATA);
  12.  
  13. FJPG.LoadFromStream(FStream);
  14. Image1.Picture.Bitmap.Assign(FJPG );
  15.  
  16. FStream.Free;
  17. FJPG.Free;
  18. end;

Saludos!


  • 1




IP.Board spam blocked by CleanTalk.