Delphi翻译大型管理应用时报表模块触发EResNotFound异常求助

针对你遇到的Delphi自带翻译工具（语言DLL）无法识别报表生成器中继承自TForm组件的DFM文件，进而触发EResNotFound异常的问题，以下是几个无需更换报表生成器的可行方案：

方案1：手动将报表DFM资源添加到语言DLL #

Delphi翻译工具可能因为报表组件的DFM存储方式特殊（比如未直接关联标准TForm单元）而遗漏扫描。你可以手动把这些DFM资源编译并加入语言DLL：

• 找到报表组件对应的DFM文件，创建一个RC脚本文件（比如ReportResources.rc），内容格式如下：

  REPORT_FORM_1 RCDATA "MyReport1.dfm"
    REPORT_FORM_2 RCDATA "MyReport2.dfm"
  

  这里的REPORT_FORM_1是资源标识名，要和报表组件加载时使用的资源名完全一致。
• 使用Delphi自带的brcc32.exe编译RC脚本为RES文件：

  brcc32 ReportResources.rc
  

• 将生成的ReportResources.res添加到你的语言DLL工程中重新编译；或者用资源编辑器（比如Resource Hacker）直接将DFM资源导入已生成的语言DLL中。

方案2：动态加载翻译后的DFM资源 #

在代码中手动从语言DLL加载报表组件的DFM资源，绕过默认的资源查找逻辑：

• 先获取语言DLL的句柄（比如通过LoadLibrary加载语言DLL时保存的全局句柄）。
• 在创建报表组件前，加载对应的DFM资源并初始化组件：

  var
    ResStream: TResourceStream;
    MyReport: TMyReportComponent;
  begin
    // hLangDLL是已加载的语言DLL句柄
    ResStream := TResourceStream.Create(hLangDLL, 'REPORT_FORM_1', RT_RCDATA);
    try
      MyReport := TMyReportComponent.Create(nil);
      ResStream.Position := 0;
      // 从流中读取组件资源
      MyReport.ReadComponentRes(ResStream);
      // 执行后续报表初始化逻辑
    finally
      ResStream.Free;
    end;
  end;
  

  注意确保资源标识名和语言DLL中存储的完全匹配。

方案3：扩展Delphi翻译工具的扫描范围 #

部分Delphi版本的翻译工具允许手动指定要扫描的文件，你可以尝试把报表组件的DFM文件添加到翻译项目中：

• 打开Delphi翻译工具的项目配置，找到“要扫描的文件”或类似选项。
• 添加报表组件对应的DFM文件和关联单元文件到扫描列表。
• 重新运行翻译工具生成语言DLL，工具会识别并处理这些DFM中的可翻译资源。

方案4：Hook资源查找逻辑重定向到语言DLL #

通过Hook Delphi的资源查找函数，当系统找不到报表组件的资源时，自动从语言DLL中查找：

• 定义一个资源查找钩子函数：

  function ResourceFindHook(Instance: THandle; const ResName, ResType: PChar): THandle;
  var
    hLangDLL: THandle;
  begin
    // hLangDLL是全局保存的语言DLL句柄，替换为你获取句柄的实际逻辑
    hLangDLL := GetLangDLLHandle;
    Result := FindResource(hLangDLL, ResName, ResType);
    if Result = 0 then
      // 如果语言DLL中找不到，回退到默认资源
      Result := FindResource(Instance, ResName, ResType);
  end;
  

• 在应用启动时设置钩子：

  initialization
    ResourceFindHook := @ResourceFindHook;
  

  这个方案能全局解决资源查找问题，但需要注意资源名称的唯一性，避免冲突。

内容的提问来源于stack exchange，提问作者BLatour