Wie erstelle ich eine PNG-Ressource?

Question

Ich habe ein Formular mit einem großen TImage als Hintergrund. Das Problem ist, dass dies direkt im DFM als Bitmap gespeichert ist, was etwa 3 MB in Anspruch nimmt. Die originale PNG-Datei ist ~250 KB groß. Ich möchte versuchen, die Größe zu reduzieren, indem ich die PNG-Datei als Ressource einbinde und das Formular diese während OnCreate lädt. Das kann ich nun tun, da Delphi 2009 PNG-Unterstützung bietet, nur weiß ich nicht genau, wie man eine Ressourcendatei mit einem PNG erstellt. Weiß jemand, wie das gemacht wird?

Answer 1

Beispieltextdatei (mit dem Namen myres.rc):

MYPNG RCDATA mypng.png

Zum Projekt hinzugefügt:

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

Beispiel für das Laden zur Laufzeit:

uses
  PngImage;

var
  Png: TPngImage;
begin
  Png := TPngImage.Create;
  try
    Png.LoadFromResourceName(HInstance, 'MYPNG');
    Image1.Picture.Graphic := Png; // Image1: TImage auf dem Formular
  finally
    Png.Free;
  end;
end;

Answer 2

Für diejenigen, die C++ Builder verwenden, funktioniert dieser Code für mich:

In der Datei ResourceTest.rc

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

In der Datei ResourceTest.rh

#ifndef ResourceTestRH
#define ResourceTestRH

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

#endif

In der Datei ResourceTest.cpp

#include "pngimage.hpp"

// bmp-Bild aus Ressource laden
Graphics::TBitmap *bmpImage = new Graphics::TBitmap();
bmpImage->LoadFromResourceName((int)HInstance, IMG_BMP);

// png-Bild aus Ressource laden
TPngImage *pngImage = new TPngImage();
pngImage->LoadFromResourceName((int)HInstance, IMG_PNG);

Answer 3

Wenn Sie Delphi 2009 verwenden, sollte TImage Ihre PNG-Datei als PNG in die DFM-Datei speichern. Die DFM wird größer sein, da der binäre Inhalt der Picture.Data-Eigenschaft des TImage-Objekts im DFM als hexadekText kodiert ist. Aber wenn der DFM in Ihre EXE kompiliert wird, wird er in eine binäre Ressource kompiliert. Ihr Bild sollte dann im Formular-RCDATA-Ressourcenbereich genauso viel Platz einnehmen, wie das Speichern des PNG in seiner eigenen RCDATA-Ressource würde.

Ich habe dies gerade getestet, indem ich eine meiner eigenen Delphi 2009 DFM-Dateien mit einem TImage-Komponenten, die zum Entwurfszeitpunkt ein PNG-Bild geladen haben, in einem Texteditor geöffnet habe, den Inhalt der Picture.Data-Eigenschaft kopiert und in einen Hexeditor eingefügt habe. Der Hexeditor zeigt mir, dass die Picture.Data-Eigenschaft eine tatsächliche PNG-Datei speichert, die mit 10 Bytes vorangestellt ist. Das erste Byte ist $09 und die nächsten 9 Bytes buchstabieren TPngImage. Wenn ich diese 10 Bytes lösche und die Datei im Hexeditor speichere, erhalte ich eine ordnungsgemäße PNG-Datei.

​

Also, wenn Sie Delphi 2009 verwenden, laden Sie einfach das PNG-Bild zur Entwurfszeit in eine TImage-Komponente.

​

Answer 4

Ganz ähnlich wie mein Beispiel: http://www.ciuly.com/index.php/delphi/article/delphi/7-multimedia/10-pngfromresource.html

Answer 5

Bei der Verwendung von Resource Hacker werden PNG-Bilder mit 'PNG' ResType anstelle von üblichem RT_RCDATA hinzugefügt.

Ein TPngImage-Klassen-Helper bietet eine einfache Lösung für dieses Problem:

Type
  TPngImageHelper = Class Helper For Vcl.Imaging.pngimage.TPngImage
    Procedure LoadFromRHResourceName(Instance: HInst; Const Name: String);
  End;

...

Procedure TPngImageHelper.LoadFromRHResourceName(Instance: HInst; Const Name: String);
Var
  rs: TResourceStream;
Begin
  rs := TResourceStream.Create(Instance, PChar(Name), 'PNG');
  Try
    LoadFromStream(rs);
  Finally
    rs.Free;
  End;
End;

Mit einer einfachen Anwendung:

var
  pngInfo: TPngImage;
begin
  pngInfo := TPngImage.Create;
  try
    pngInfo.LoadFromRHResourceName(HInstance, 'MY_IMAGE.PNG');
    Image1.Picture.Graphic:= pngInfo;
  finally
    pngInfo.Free;
  end;
end;