DELPHI 制作DLL资源文件，动态加载字体并应用

意帆

于 2022-05-06 14:30:26 发布

阅读量598

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/yifanbbs/article/details/124609508

版权

DELPHI RCDATA 字体资源 DLL AddFontMemResourceEx

关键词由CSDN通过智能技术生成

delphi 专栏收录该内容

20 篇文章 0 订阅

订阅专栏

DELPHI 制作FONT资源文件时，有可能会报 "brcc32 exited with code 1" ，最终选择不用font 而使用：RCDATA制作资源

例如：

AR_01 RCDATA "AR_01 Regular.ttf"
ZR_01 RCDATA "ZR_01 Regular.ttf"

新建一个DLL程序，添加刚才的资源文件，直接编译成DLL文件

=========================================================================

接下来就是调用字体资源

procedure LoadFontFromDll(const DllName, FontName: PWideChar);
var
DllHandle: HMODULE;
ResHandle: HRSRC;
ResSize, NbFontAdded: Cardinal;
ResAddr: HGLOBAL;
begin
DllHandle := LoadLibrary(DllName);
if DllHandle = 0 then
RaiseLastOSError;
//ResHandle := FindResource(DllHandle, FontName, RT_FONT);
//ResHandle := FindResource(DllHandle, MAKEINTRESOURCE(1), RT_FONT);
ResHandle := FindResource(DllHandle, MAKEINTRESOURCE(FontName), RT_RCDATA);
if ResHandle = 0 then
begin
ShowMessage('ResHandle');
RaiseLastOSError;
end;
ResAddr := LoadResource(DllHandle, ResHandle);
if ResAddr = 0 then
RaiseLastOSError;
ResSize := SizeOfResource(DllHandle, ResHandle);
if ResSize = 0 then
RaiseLastOSError;
if 0 = AddFontMemResourceEx(Pointer(ResAddr), ResSize, nil, @NbFontAdded) then
RaiseLastOSError;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
FontName: PChar;
FontHandle: THandle;
begin
FontName := 'AR_01';
LoadFontFromDll('ZaiRe.dll' , FontName);
FontHandle := CreateFont(0, 0, 0, 0, FW_NORMAL, 0, 0, 0, DEFAULT_CHARSET,
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH,
FontName);
if FontHandle = 0 then
RaiseLastOSError;

Label1.Caption:=Edit1.Text;
label1.Font.Handle:=FontHandle;
label1.Font.Size:=72;
end;

完美解决！