从资源 (.res) 文件加载文本

Question

几天前我发现了这个教程，我按照它进行了操作。看到我只对从资源文件中加载文本感兴趣，我只使用了与我需要的内容相关的内容。代码可以从教程中找到here。注意：我使用的代码来自函数 GetResourceAsPointer 和 GetResourceAsString。我有：

• 创建了包含一个文本文件的资源文件。文本文件包含“测试”
• 包括 {$R resource.res}

注意：我使用备忘录从资源中加载字符串。

该程序能够编译而没有任何错误，但是当我单击按钮将字符串加载到备忘录中时，加载了一个字符串但不是“测试”。相反，我得到了随机字符，例如正方形和汉字。

有人知道问题出在哪里吗？有没有人经历过这种情况？

谢谢你，彼得

Answer 1

我使用以下两个例程从添加到 EXE 的资源中获取文本：一个例程用于 ANSI 字符串，一个例程用于 Unicode 字符串。您的随机字符可能是由于读取的字符多于需要。

Function GetResString (i, lang: integer): string;
var
 buffer: array [0..400] of char;
 ls: integer;

begin
 result:= '';
 ls:= loadstring (hinstance, i + lang * 1000, buffer, sizeof (buffer));
 if ls <> 0 then result:= buffer
end;

function LoadResW (id, lang: integer): WideString;
const
 maxlength = 1024;

var
 ls: integer;

begin;
 setlength (result, maxlength);
 ls:= loadstringw (hinstance, lang * 1000 + id,
 pwidechar (result), length (result));
 if ls > 0
  then setlength (result, ls)
  else result:= ''
end;

Answer 2

您放入资源中的文本文件采用哪种编码方式？如果是 ANSI，请尝试将其保存为 Unicode（文章中的GetResourceAsString 使用 PChar 类型）。