我使用 Delphi 2010 中的资源 DLL 向导为我的程序生成纯资源 DLL。当我使用 Notepad++ 查看它们时,它们似乎使用 ANSI 编码。有什么设置我错过了吗? Unicode 程序似乎不应该以 ANSI 存储其资源,尤其是对于亚洲语言。
我专门查看了 TABOUTBOX RT_RCDATA 记录。我尝试使用以下代码加载它,
procedure LoadFromResFile(const FileName: string);
var
LibHandle: THandle;
ResourceLocation: HRSRC;
ResourceSize: dword;
ResourceHandle: THandle;
ResourcePointer: pointer;
ResStr: string;
begin
LibHandle := LoadLibraryEx(PWideChar(FileName), 0, LOAD_LIBRARY_AS_DATAFILE or LOAD_LIBRARY_AS_IMAGE_RESOURCE);
if LibHandle > 0 then
begin
ResourceLocation := FindResource(LibHandle, 'TABOUTBOX', RT_RCDATA);
ResourceSize := SizeofResource(LibHandle, ResourceLocation);
ResourceHandle := LoadResource(LibHandle, ResourceLocation);
ResourcePointer := LockResource(ResourceHandle);
if ResourcePointer <> nil then
begin
SetLength(ResStr, ResourceSize);
CopyMemory(@ResStr[1], ResourcePointer, ResourceSize);
FreeResource(ResourceHandle);
end;
FreeLibrary(LibHandle);
end else
begin
ResStr := SysErrorMessage(GetLastError);
ShowMessage(ResStr);
end;
我得到了垃圾,但是当我将 ResStr 的类型更改为 AnsiString 时,它显示正确。在 Notepad++ 中打开文件,我可以看到对话框资源似乎是 ansi,包括标签标题。
最佳答案
资源 DLL 向导为本地化 DFM 创建 RCDATA 资源。名为 TABOUTBOX
的 RCDATA 资源是二进制 DFM 资源。在现代 Delphi 版本(包括 2010)中,存储在 DFM 中的字符串值(组件名称、标题等)使用 UTF8 进行编码。但 DFM 数据本身本质上是二进制的,它代表了序列化组件的完整结构。它本身不是 Unicode 数据,因此您无法将其按原样加载到 UnicodeString
中。 (当您将 ResStr
更改为 AnsiString
时,它“起作用”,但这只是因为它的 8 位性质)。 DFM 资源适用于 TForm
/TDataModule
/TFrame
-派生类(在本例中为 TAboutBox
)在运行时加载和反序列化。
如果您想以人类可读的文本形式查看 DFM 资源,则必须使用 ObjectBinaryToText()
或 ObjectResourceToText()
函数对其进行解码。例如:
var
LibHandle: THandle;
ResStrm: TResourceStream;
StrStrm: TStringStream;
ResStr: string;
begin
LibHandle := LoadLibraryEx(PChar(FileName), 0, LOAD_LIBRARY_AS_DATAFILE or LOAD_LIBRARY_AS_IMAGE_RESOURCE);
if LibHandle > 0 then
begin
try
ResStrm := TResourceStream.Create(LibHandle, 'TABOUTBOX', RT_RCDATA);
try
StrStrm := TStringStream.Create;
try
ObjectBinaryToText(ResStrm, StrStrm);
StrStrm.Position := 0;
ResStr := StrmStrm.DataString;
finally
StrStrm.Free;
end;
finally
ResStrm.Free;
end;
finally
FreeLibrary(LibHandle);
end;
end else
begin
ResStr := SysErrorMessage(GetLastError);
end;
ShowMessage(ResStr);
end;
关于delphi - 为什么我的 Delphi 2010 资源 dll 文件是 ANSI 编码的,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32192900/