Làm cách nào để tạo tài nguyên PNG?

Question

Tôi đã có một biểu mẫu với một TImage lớn trên đó làm nền. Vấn đề là, điều này được lưu trữ trực tiếp trong DFM dưới dạng bitmap, chiếm khoảng 3 MB. Tệp PNG gốc là ~ 250K. Tôi muốn cố gắng giảm sưng lên bằng cách nhúng PNG vào tài nguyên, và sau đó có biểu mẫu tải nó trong OnCreate. Tôi có thể làm điều đó ngay bây giờ mà Delphi 2009 bao gồm hỗ trợ PNG, ngoại trừ tôi không hoàn toàn biết làm thế nào để xây dựng một tập tin tài nguyên với một PNG trong đó. Bất cứ ai biết làm thế nào được thực hiện?

Answer 1

Ví dụ tập tin văn bản (tên myres.rc):

MYPNG RCDATA mypng.png 

Đã thêm vào dự án:

{$R 'myres.res' 'myres.rc'} 

Ví dụ về tải trong thời gian chạy:

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; 

Answer 2

Nếu bạn đang sử dụng Delphi 2009, TImage sẽ lưu trữ tệp PNG của bạn dưới dạng PNG vào tệp DFM. DFM sẽ lớn hơn vì nội dung nhị phân của thuộc tính Picture.Data của đối tượng TImage được mã hóa trong DFM dưới dạng văn bản thập lục phân. Nhưng khi DFM được biên dịch vào EXE của bạn, nó được biên dịch thành một tài nguyên nhị phân. Hình ảnh của bạn sau đó sẽ chiếm cùng một không gian bên trong tài nguyên RCDATA của biểu mẫu khi lưu trữ PNG trong tài nguyên RCDATA của nó.

Tôi vừa thử nghiệm điều này bằng cách mở một trong các tệp DFM Delphi 2009 của riêng tôi có thành phần TImage có hình ảnh PNG được tải tại thời điểm thiết kế trong trình chỉnh sửa văn bản, sao chép nội dung của thuộc tính Picture.Data và dán chúng vào trình chỉnh sửa hex. Trình soạn thảo hex cho tôi biết rằng thuộc tính Picture.Data lưu trữ một tệp PNG thực có tiền tố là 10 byte. Byte đầu tiên là $ 09 và 9 byte chính tả tiếp theo là TPngImage. Nếu tôi xóa 10 byte đó và lưu tệp trong trình chỉnh sửa hex, tôi sẽ nhận được tệp PNG thích hợp.

Vì vậy, nếu bạn đang sử dụng Delphi 2009, chỉ cần tải hình ảnh PNG vào thành phần TImage tại thời điểm thiết kế.

Answer 3

khá tương tự như ví dụ của tôi: http://www.ciuly.com/index.php/delphi/article/delphi/7-multimedia/10-pngfromresource.html

Answer 4

Đối với những người sử dụng C++ Builder mã này làm việc cho tôi:

Trong ResourceTest.rc nộp

IMG_BMP BITMAP "Ressources\\myimage.bmp"; 
IMG_PNG RCDATA "Ressources\\myimage.png"; 

Trong tập tin ResourceTest.rh

#ifndef ResourceTestRH 
#define ResourceTestRH 

#define IMG_BMP "IMG_BMP" 
#define IMG_PNG "IMG_PNG" 

#endif 

Trong tệp ResourceTest.cpp

#include "pngimage.hpp" 

// Loading bmp image from resource 
Graphics::TBitmap *bmpImage = new Graphics::TBitmap(); 
bmpImage->LoadFromResourceName((int)HInstance, IMG_BMP); 

// Loading png image from resource 
TPngImage *pngImage = new TPngImage(); 
pngImage->LoadFromResourceName((int)HInstance, IMG_PNG);