Laden Schriftart aus Ressourcendatei

Question

Ich habe ein Delphi XE-Projekt mit der folgenden Ressource:

I function LoadResourceFont und versuchte den folgenden Code verwendet haben:

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls; 

type 
    TForm1 = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    procedure FormCreate(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

function LoadResourceFontByName(const ResourceName : string; ResType: PChar) : Boolean; 
var 
    ResStream : TResourceStream; 
    FontsCount : DWORD; 
begin 
    ResStream := TResourceStream.Create(hInstance, ResourceName, ResType); 
    try 
    Result := (AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount) <> 0); 
    finally 
    ResStream.Free; 
    end; 
end; 

function LoadResourceFontByID(ResourceID : Integer; ResType: PChar) : Boolean; 
var 
    ResStream : TResourceStream; 
    FontsCount : DWORD; 
begin 
    ResStream := TResourceStream.CreateFromID(hInstance, ResourceID, ResType); 
    try 
    Result := (AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount) <> 0); 
    finally 
    ResStream.Free; 
    end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    if LoadResourceFontByName('MyFont1', RT_RCDATA) then Label1.Font.Name := 'My Custom Font1'; 
    if LoadResourceFontByID(2, RT_FONT) then Label2.Font.Name := 'My Custom Font2'; 
end. 

By the way : Ich weiß, dass ich Redistributionsrechte für die Schriftart haben sollte, wenn ich es in meine EXE-Datei einbetten muss.

Aber das Problem ist, dass, wenn der Schriftname (I My Custom Font1, My Custom Font2 verwendet habe) ist nicht der tatsächliche Name der Schriftart, wird die Schriftart nicht richtig geladen und zeigt eine unbekannte Schrift Charakter.

Meine Frage ist, ob obwohl ich ResStream.Free in dem founctions verwendet habe, aber ich habe wieder definieren FormClose und FormDestroy Ereignis Speicher Leakage oder nicht zu schützen?

Answer 1

Label.Font hat keine tiefgestellten Zeichen, daher ist Label2.Font[2] ungültig.

Auch funktioniert offenbar nicht zu einer Label.Font jeglicher Art, die boolean Ergebnis Ihrer LoadFontResource Funktion zuweisen, so dass boolean Ergebnis wird nie eine Schrift sein.

Ich würde vorschlagen, dass Sie die Grundlagen der Programmierung mit Delphi lernen und auch die VCL/FMX-Dokumentation für TFont studieren, bevor Sie sich über das Laden von benutzerdefinierten Schriftarten aus dem Speicher Gedanken machen.

Answer 2

Ihr Code enthält mehrere Fehler.

1. LoadResourceFont() gibt ein Boolean. Sie versuchen, diesen Wert der TLabel.Font.Name-Eigenschaft zuzuweisen, die Sie nicht ausführen können, da eine keine String ist. Sie versuchen auch, die Boolean einer TLabel.Font[2]-Eigenschaft zuzuweisen, die nicht einmal eine gültige Kennung ist, der ein Wert zugewiesen werden soll.

2. Ihr erster Anruf an LoadResourceFont() gibt den falschen Ressourcennamen an.

3. Der erste Parameter von LoadResourceFont() ist ein String, aber Ihr zweiter Aufruf von LoadResourceFont() versucht, den global Hinstance Variable (ein THandle) zu passieren, wo ein String erwartet wird.

4. Sie versuchen, die zweite Schriftart als RCDATA-Ressource zu laden, wenn es sich tatsächlich um eine FONT-Ressource handelt.

zu tun, was Sie versuchen, müssen Sie LoadResourceFont() zuerst nennen die Schriftart (en) in der Schriftart-Tabelle zu laden, und dann können Sie die TLabel.Font.Name an die Schrift Namen der gewünschten Schriftart (den Namen gesetzt definiert in der TTF-Datei, nicht der Dateiname oder Ressourcenname), zB:

function LoadResourceFontByName(const ResourceName : string; ResType: PChar) : Boolean; 
var 
    ResStream : TResourceStream; 
    FontsCount : DWORD; 
begin 
    ResStream := TResourceStream.Create(hInstance, ResourceName, ResType); 
    try 
    Result := (AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount) <> 0); 
    finally 
    ResStream.Free; 
    end; 
end; 

function LoadResourceFontByID(ResourceID : Integer; ResType: PChar) : Boolean; 
var 
    ResStream : TResourceStream; 
    FontsCount : DWORD; 
begin 
    ResStream := TResourceStream.CreateFromID(hInstance, ResourceID, ResType); 
    try 
    Result := (AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount) <> 0); 
    finally 
    ResStream.Free; 
    end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    if LoadResourceFontByName('MyFont1', RT_RCDATA) then 
    Label1.Font.Name := 'My Font Name 1'; 

    if LoadResourceFontByID(2, RT_FONT) then 
    Label2.Font.Name := 'My Font Name 2'; 
end;