我使用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资源。存储在DFM中的字符串值(组件名称,标题等)在现代Delphi版本(包括2010)中使用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;