I've got a form with a large TImage on it as a background. Problem is, this is stored directly in the DFM as a bitmap, which takes up about 3 MB. The original PNG file is ~250K. I'd like to try to reduce bloat by embedding the PNG in a resource, and then having the form load it during OnCreate. I can do that now that Delphi 2009 includes PNG support, except I don't quite know how to build a resource file with a PNG in it. Anyone know how that's done?
+15
A:
Example text file (named myres.rc):
MYPNG RCDATA mypng.png
Added to project:
{$R 'myres.res' 'myres.rc'}
Example of loading at runtime:
uses
PngImage;
var
Png: TPngImage;
begin
Png := TPngImage.Create;
try
Png.LoadFromResourceName(HInstance, 'MYPNG');
Image1.Picture.Graphic := Png; // Image1: TImage on the form
finally
Png.Free;
end;
end;
TOndrej
2009-07-20 13:20:42
Is `RCDATA` really the most specific resource type available for that graphic type? There's no `RT_PNG`, for instance?
Rob Kennedy
2009-07-20 13:22:43
Good question, Rob. My currently installed Platform SDK is for Windows Server 2003 R2, and I couldn't find a PNG-specific constant in WinUser.h. I'm not sure, though. It might be declared somewhere else, perhaps in a later version of the Platform SDK.
TOndrej
2009-07-20 13:30:53
LoadFromResourceName specifically looks for a resource of type RCDATA.
Mason Wheeler
2009-07-20 14:02:45
+1
A:
If you're using Delphi 2009, TImage should store your PNG file as a PNG into the DFM file. The DFM will be larger because the binary content of the Picture.Data property of the TImage object is encoded in the DFM as hexadecimal text. But when the DFM is compiled into your EXE, it is compiled into a binary resource. Your image should then take up the same space inside the form's RCDATA resource as storing the PNG in its own RCDATA resource would.
I just tested this by opening one of my own Delphi 2009 DFM files that have a TImage component with a PNG image loaded at design time in a text editor, copying the contents of the Picture.Data property and pasting them into a hex editor. The hex editor shows me that the Picture.Data property stores an actual PNG file prefixed with 10 bytes. The first byte is $09 and the next 9 bytes spell TPngImage. If I delete those 10 bytes and save the file in the hex editor, I get a proper PNG file.
So if you're using Delphi 2009, simply load the PNG image into a TImage component at design time.
Jan Goyvaerts
2009-08-21 05:46:42
Interesting, but what about the case where an image gets reused on multiple forms? Is Delphi smart enough to store only one copy, or does it store the image n times, where n is the number of TImage components with that image loaded? :)
Drarok
2010-10-20 15:15:53
Each TImage component stores its image independent of any other TImage instances. So if you load the same image into n instances of TImage, the same image is stored n times. One way to solve this is to use form inheritance. Create a base form with the TImage and load the image into it. Then derive all forms that need to have the same TImage from that form. Any properties that are not changed in descendant forms are only stored in the DFM of the ancestor form. That includes the picture data of a TImage.
Jan Goyvaerts
2010-10-26 12:40:07
+1
A:
pretty similar to my example: http://www.ciuly.com/index.php/delphi/article/delphi/7-multimedia/10-pngfromresource.html
Ciuly
2009-11-18 17:59:38