DelphiFAQ Home Search:
General :: Programming :: Delphi
General Delphi related information.

Articles:

This list is sorted by recent document popularity (not total page views).
New documents will first appear at the bottom.
Recommended links on this topic:
Featured Article

Include a JPEG in your EXE file

  1. Create a resource script file MyPic.RC with Notepad and add the following line:
    1  RCDATA  "Pic.jpg"
  2. Then use Borland's Resource Compiler BRCC32.EXE (a commandline tool)
    to compile it into a .RES file:
    BRCC32 MyPic.RC
  3. Add a compiler directive to the source code of your program.
    It should immediately follow the form directive, as shown here:
    {$R *.DFM}
     {$R MyPic.RES}
Use the following code in your application:

 procedure LoadJPEGfromEXE;
 var
   MyJPG : TJPEGImage; // JPEG object
  ResStream : TResourceStream; // Resource Stream object
begin
   try
     MyJPG := TJPEGImage.Create; 
     ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
     MyJPG.LoadFromStream(ResStream); // What!? Yes, that easy!
    Canvas.Draw(12,12,MyJPG); // draw it to see if it really worked!
  finally
     MyJPG.Free;
     ResStream.Free;
   end;
 end;  // procedure

Generated 16:01:45 on Oct 19, 2017