简介面向 Delphi XE10.4.2 开发者的 ReportMachine 报表组件资源包旨在解决报表方向无法随设备或屏幕自动切换的工程难题适合需要快速集成复杂报表、优化打印与显示细节的中高级 Delphi 程序员。资源共 1082 个文件压缩包约 22.9MB核心由大量 dcu、pas、dfm、res 等文件构成其中 dcu 为编译产物便于链接pas 为源代码适合二次开发dfm 定义窗体布局res 保存图标等资源同时还包含 dpk、dproj 等工程文件和批处理脚本可直接在 IDE 中安装或重新构建。已有 475 人学习下载兼具实用与学习价值。借助该包开发者能深入理解 ReportMachine 的方向属性与事件处理机制学习结合屏幕对象检测设备方向并在运行时动态调整报表布局同时可基于自带模板快速搭建支持横竖屏切换、纸张方向变化的应用并借助内置的表格、图表与自定义格式满足多样化的业务数据展示需求有效减少排错时间提升多设备环境下的报表显示稳定性。 做Delphi开发这么多年一直觉得报表这块是绕不过去的坎。早期用QuickReport后来换FastReport再后来因为项目要维护老代码又接触了ReportMachine。最近在XE10.4.2上折腾了一套delphi xe10.4.2 reportmachine.zip的部署方案踩了不少坑也总结出一些经验这里完整记录下来。这套东西说白了就是Delphi环境下的报表组件包解决的是“业务数据怎么排版、怎么打印、怎么导出”的问题。无论你是刚接触Delphi的新手还是要维护老项目的熟手只要涉及报表这一篇都能给你省下不少瞎折腾的时间。1. 项目缘起与组件选型为什么是ReportMachine1.1 老项目的报表需求痛点先交代一下背景。我手头维护的一套进销存系统早年间用的是Delphi 7 ReportMachine 2.x写的报表模块。后来系统要迁移到XE10.4.2最头疼的其实不是业务代码而是报表。原系统里累计了上百张报表模板全部是ReportMachine的格式如果换成其他报表组件意味着所有模板要重新画一遍工作量完全是灾难级别的。所以选型就一个原则能用回ReportMachine就绝不用别的。ReportMachine在Delphi老圈子里的地位有点类似当年VB里的水晶报表它最大的优势就是模板通用性强从Delphi 7一直到XE系列都有对应的版本而且rmMachine这套报表引擎的接口变化不大。注意ReportMachine分好几个版本有免费版、专业版、企业版。免费版功能上会阉割比如不支持某些导出格式、没有源码。如果你要商用建议直接找企业版带源码的包方便自己在XE10.4.2下重新编译。1.2 XE10.4.2环境下的版本匹配逻辑XE10.4.2这个版本号对应的是2021年发布的RAD Studio 10.4.2 Sydney。它用的编译器是Win32/Win64的CodeGear Delphi Compiler 10.4版本。ReportMachine官方对XE系列的支持其实停留在比较早的版本上但社区里有人维护了适配新版的源码包。这个zip包解压后目录结构一般是这样的ReportMachine ├── Packages │ ├── Delphi │ │ ├── RM_XE10_32.dpk │ │ ├── RM_XE10_64.dpk │ │ └── ... ├── Source │ ├── RM_Class.pas │ ├── RM_Designer.pas │ └── ... ├── Demos └── Lib关键点是Packages\Delphi下的dpk文件名它直接标明了支持哪个版本的Delphi。如果没有对应你自己IDE版本的dpk就得手动调整dproj文件里的编译器版本号。这也是很多人在XE10.4.2上装ReportMachine失败的原因版本号对不上一编译就报错。2. 安装部署实操从解压到跑通第一个报表2.1 环境准备与源码编译先把环境说清楚我用的IDE是RAD Studio 10.4.2操作系统是Windows 10 专业版 64位。在动手之前建议先做一件事关闭IDE的杀毒软件实时监控。ReportMachine的编译过程中会生成大量的DCU文件杀毒软件实时扫描会显著拖慢编译速度严重的还会误报删除生成文件。具体编译安装步骤如下把zip包解压到一个没有空格的路径下我习惯放在D:\Components\ReportMachine避免出现Program Files这种带空格的路径导致编译时路径解析出错。打开IDE在Tools Options Environment Options Delphi Options Library里把D:\Components\ReportMachine\Source目录添加到Library路径中。这一步很重要否则IDE找不到RM_Class.pas等源码文件。打开Packages\Delphi下的dpk文件。以RM_XE10_32.dpk为例如果直接打开能编译通过那是最好的情况。如果IDE提示版本不匹配需要右键dpk文件View Source手动修改PackageProcessorType或编译器版本号。编译并安装。在项目管理器里右键dpk文件选择Compile等编译完成后再选Install。安装成功后在Component Install Packages里能看到ReportMachine相关的运行时包。这个流程看起来简单实际操作中大概率会在第3步卡住。因为社区流传的包经常是几个人改过的dpk里的版本信息可能早就乱了。我的做法是不直接打开dpk而是新建一个Package把所有的pas文件加进去然后手动设置Requires为rtl、vcl这两个基础包。这样虽然麻烦但成功率高很多。2.2 lib路径缺失的经典报错编译时最容易碰到的报错是[DCC Fatal Error] RM_Class.pas(126): E1026 File not found: Control.inc这个报错的意思是IDE找不到Control.inc这个文件。这个文件通常位于ReportMachine\Source\Inc目录下。处理办法有两种把Inc目录也加入Library路径。直接在RM_Class.pas里把{$I Control.inc}改成{$I ..\Inc\Control.inc}。我倾向于用第一种方案因为ReportMachine的很多子模块都会引用这个Inc文件只改一个文件不够彻底。添加Library路径时要特别注意IDE的Library路径是分平台的32位和64位要分别添加不然编译64位版本时照样找不到文件。实操心得Library路径添加后一定要重启IDE再重新打开dpk否则路径缓存不生效。这个坑我踩了不止一次每次都是以为路径没加对结果是IDE没重启。2.3 32位与64位版本共存策略XE10.4.2默认支持Win32和Win64两种编译目标。ReportMachine的老版本往往只考虑了32位如果你需要编译64位的程序源码里有些指针相关的代码会出问题。我的做法是先安装32位版本确认报表模块在32位下能正常编译和运行。64位版本作为进阶目标单独创建一个RM_XE10_64.dpk来处理。如果编译64位时报E2010 Incompatible types基本都是指针强转的问题找到报错代码改成NativeInt或NativeUInt做中转即可。// 常见的指针强转报错处理 // 修改前 // P : Pointer(Integer(Data) Offset); // 修改后 P : Pointer(NativeInt(Data) Offset);为什么用NativeInt因为它在32位下是4字节64位下是8字节能自动适应指针宽度。直接用Integer在64位下会导致指针截断轻则数据错误重则直接崩溃。3. 报表设计的核心流程数据连接、模板制作与代码调用3.1 ReportMachine的三种数据连接模式ReportMachine连接数据的方式比较灵活我用下来觉得最实用的有三种第一种直接连接DataSet。在ReportMachine的设计器里通过Report.DataSet属性直接指定一个已经打开的DataSet比如ADOQuery、FDQuery。这种方式的优点是完全可视化设计时就能看到字段列表拖拽字段到报表区域即可。缺点是运行时DataSet必须提前打开而且字段是静态绑定模板和代码耦合度比较高。第二种通过脚本赋值。ReportMachine内置了Pascal脚本引擎可以在脚本里动态创建对象、给报表变量赋值。var sName: string; begin sName : qryMain.FieldByName(customer_name).AsString; rmReport.ReportVariable[customer] : sName; end.这种方式的灵活度最高适合做复杂报表逻辑但调试起来麻烦脚本语法没有IDE的代码提示只能靠经验。第三种使用Table和DBDataset组件。ReportMachine自带了一套RMDBDataSet等组件可以不依赖VCL的DataSet体系直接在组件上配置连接信息。这种方式适合做独立报表模块业务代码和报表代码解耦。3.2 模板设计器画一张漂亮的报表打开ReportMachine设计器的快捷键是双击RMReport组件或者在运行时调用rmReport.ShowReport。设计器的操作逻辑和FastReport、QuickReport类似它把报表分成了几个区域报表头、页头、明细区、页脚、报表尾。设计师最常见的问题是中文乱码。很多老模板字号用的是宋体、仿宋_GB2312这些字体在新系统上要么没有要么字体名对不上。我处理的办法是统一替换成微软雅黑或者思源黑体在代码里通过RMReport.FindComponent(Memo1).Font.Name批量修改或者干脆在设计器里全局替换。// 批量替换字体 procedure ReplaceFont(ARep: TRMReport; OldFont, NewFont: string); var i: Integer; Comp: TRMComponent; begin for i : 0 to ARep.ComponentCount - 1 do begin Comp : ARep.Components[i]; if Comp is TRMMemoView then begin if SameText(TRMMemoView(Comp).Font.Name, OldFont) then TRMMemoView(Comp).Font.Name : NewFont; end; end; end;3.3 代码里的报表预览与打印报表模板做好后代码里调用就简单多了。核心流程是加载模板、设置数据、准备报表、预览或打印。procedure ShowReport; var rmReport: TRMReport; begin rmReport : TRMReport.Create(nil); try rmReport.LoadFromFile(report.rmf); rmReport.Dataset : qryMain; // 指定数据集 rmReport.ShowReport; // 预览 // rmReport.Print; // 直接打印 finally rmReport.Free; end; end;实测下来ShowReport在XE10.4.2下预览速度和老Delphi 7差不多没有明显的卡顿。但Print直接打印时如果你没有设置打印机名称ReportMachine会调用系统默认打印机这在某些网络打印机环境下会出问题。建议代码里显式指定打印机名rmReport.PrintOptions.Printer : HP LaserJet M1005;4. 常见问题与排查技巧实录4.1 cannot perform this operation on an open dataset这个报错在热搜里也出现了典型的场景是报表模板里绑定了一个数据集但代码在报表已经打开数据集的情况下又去执行Open操作。排查思路可以这样理检查代码里是否有重复的qryMain.Open特别是同一段代码在FormShow和报表准备事件里都调用了。检查报表模板的OnNeedData事件如果事件里手动打开了数据集但数据集外部已经打开就会触发这个报错。用调试断点定位第一次报错的位置重点查看是哪个Dataset触发了报错。解决方案是加一个状态判断if not qryMain.Active then qryMain.Open;这类问题在老的ReportMachine项目里特别常见。原因在于早期开发者习惯在FormShow里打开数据集后来需求变动把打开操作挪到了报表事件里结果忘记把原来的Open删掉。4.2 无效的授权说明无效的授权说明这个报错基本都是因为报表包没有正确注册导致的。ReportMachine在运行时会对它的核心许可证进行校验。如果你安装的是试用版、绿色版或者注册表信息不全就会弹这个错误。处理流程重新运行zip包里面的RegRM.exe或Setup.exe确保注册表项写入完整。确认IDE安装的包版本和你代码里引用的版本一致不要运行时包用了旧版设计时包用了新版。检查代码里ReportMachine.inc如果有的话里关于授权控制的宏定义。报错如果发生在客户机器上需要把报表运行时相关的BPL包文件一起部署过去。最简单的方式是把ReportMachine.bpl和ReportMachine_DB.bpl放到应用程序的同级目录或者在安装制作的脚本里加上这些文件。4.3 常见问题速查表问题现象可能原因处理建议编译DPK报 File not foundLibrary路径未添加Inc目录添加Inc路径后重启IDE64位编译指针报错Integer存指针导致截断改用NativeInt/NativeUInt预览中文乱码字体缺失或字体名不兼容替换为微软雅黑等标准字体运行时找不到rmReport.lic授权文件路径不对将lic文件放到exe同级目录打印横向/纵向不对模板页面设置和打印机冲突在代码里显式设置PaperSize和Orientation4.4 独家避坑技巧在实际项目中报表的调试是最费时间的。我自己总结了一套方法把报表模板文件放在程序的相对路径下并写一个配置项控制加载路径。这样在开发时可以用D:\Project\Reports\部署到客户环境时改成.\Reports\避免写死绝对路径。另外ReportMachine的模板文件.rmf格式本质上是一个文本文件里面用XML结构保存了所有组件的属性。如果模板损坏可以用记事本打开看看通常能查出是哪里少了一个标签。这比直接放弃重画模板要高效得多。// 模板文件部分内容示例 RMReport Version4.0 Unitmm Page Width210 Height297 OrientationPortrait/ Band BandTypeReportHeader MemoView NameMemo1 Text销售报表/Text Font Name微软雅黑 Size16/ /MemoView /Band /RMReport5. 报表模块与Delphi生态的联动5.1 字符串作字典Key与报表数据组织这个话题在热搜词里也出现了我觉得放在报表场景下特别有意义。做报表的时候经常需要把明细数据按某个字段归类再用字典来组织统计数据。Delphi的TDictionarystring, TListT结构在这里就很实用。var Dict: TDictionarystring, TListTSalesRecord; Key: string; List: TListTSalesRecord; begin Dict : TDictionarystring, TListTSalesRecord.Create; try // 遍历数据源 for record in qryData do begin if not Dict.TryGetValue(record.Region, List) then begin List : TListTSalesRecord.Create; Dict.Add(record.Region, List); end; List.Add(record); end; // 把字典数据加载到报表数据集 finally Dict.Free; end; end;注意TDictionary的Key不区分大小写是有意的但如果你需要一个报表按年份分组又要严格区分2023和2024最好先统一Key的格式避免大小写或空格导致分组错乱。5.2 正则表达式在报表字段清洗中的应用报表数据源经常有脏数据比如手机号里有空格、身份证号多了换行符。用正则表达式清洗字段非常方便Delphi自带的System.RegularExpressions单元在XE10.4.2上已经支持Unicode模式。var RegEx: TRegEx; CleanPhone: string; begin RegEx : TRegEx.Create(\D); CleanPhone : RegEx.Replace(rawPhone, ); end;这里的\D匹配所有非数字字符替换掉之后手机号就干净了。正则表达式如果匹配结果不理想可以用RegEx.IsMatch做测试再配合在线正则工具验证比自己盲调试要快。5.3 匿名线程与报表后台生成报表大的时候预览和导出会卡界面。解决方法是把报表生成放到后台线程里。Delphi的TThread.CreateAnonymousThread用起来比TThread手动管理简单很多。var aThread: TThread; begin aThread : TThread.CreateAnonymousThread( procedure begin rmReport.PrepareReport; TThread.Queue(nil, procedure begin rmReport.ShowPreparedReport; end); end); aThread.Start; end;这里有个关键点PrepareReport是在后台线程跑的但ShowPreparedReport必须通过TThread.Queue排到主线程。原因是VCL的窗口对象不是线程安全的直接在线程里调用预览窗口大概率会崩溃。热搜里的“itask和匿名线程区别”其实也讲这个问题iTask底层还是基于TThread但它的回调机制更严格用起来更规范。5.4 判断周六日对报表排期的影响做报表排期时经常需要排除周末。判断某个日期是不是周六日老代码一般用DayOfWeek函数但从XE4开始它就标记为deprecated了新的写法用System.DateUtils.DayOfTheWeek。uses System.DateUtils; function IsWeekend(ADate: TDate): Boolean; var Day: TDayOfWeek; begin Day : DayOfTheWeek(ADate); Result : (Day TDayOfWeek.Friday) or (Day TDayOfWeek.Saturday); end;注意DayOfTheWeek的返回值是从星期一到星期日对应1到7。和旧版DayOfWeek星期日为1不一样。如果你是从老代码迁移过来的这个差异很容易踩坑。6. 扩展话题学习Delphi的一点个人体会6.1 从ReportMachine到整个Delphi生态做报表的过程中你会接触到Delphi非常多的基础能力类的继承、接口、RTTI、多线程、字符串处理、数据库访问。报表组件就像一张网把所有这些知识点串在一起。如果你刚学Delphi不久建议找一个像ReportMachine这样成熟完整的组件包通过读源码来理解框架设计。比如TRMReport的主从表处理逻辑里就有对DataSource和MasterSource的巧妙运用这比单纯看书学得快得多。6.2 Delphi 11 TeeChart与ReportMachine的配合热搜里提到的delphi 11 teechart其实是另一个和报表密切相关的组件。TeeChart是图表组件用来在报表里展示统计图形。XE10.4.2自带的TeeChart版本已经比较新可以直接嵌到ReportMachine的报表里也可以单独做成图表模板导出为图片再塞进报表。我一般是这样做的先用TeeChart生成图表再用Chart.SaveToBitmapFile导出为临时图片最后在ReportMachine模板里用TRMImage控件引用图片。这种方式的好处是图表样式完全可控坏处是多了一步文件读写性能稍差。6.3 OCR与表格控件在报表场景中的延伸有人可能会问报表和OCR有什么关系其实在现代的进销存或财务系统里报表数据往往需要从单据图片里提取。Delphi里集成OCR一般用Tesseract的DLL封装或者调用云服务API。热搜里的delphi ocr多半指的就是这种需求。表格控件则是在报表的数据录入端做文章比如你做了一个报表模板预览界面旁边放一个表格控件让用户临时修改打印内容。这一块涉及内容比较广如果后面有时间我再单独写一篇完整的实操文章。7. 最后的几个建议折腾了这么多年Delphi和ReportMachine最后分享几条心得。第一组件路径命名不要带空格项目路径也不要带中文。这个听起来老生常谈但真出问题时往往想不到这里。第二报表模板一定要做版本管理。.rmf文件是文本格式完全可以放进Git里对比版本差异。我以前吃过亏模板改坏了又没备份只能从头画。第三尽量用代码控制的报表逻辑不要全堆在设计器脚本里。设计器脚本虽然灵活但没有调试器出了问题只能靠加ShowMessage排查效率极低。第四老项目的迁移一切以稳定为先。如果旧代码在Delphi 7上跑得好好的不要因为XE10.4.2新特性就大动干戈。报表这种外围模块能不改结构就不改结构移到新版能用就完事。后续有空再优化也不迟。如果你也在做Delphi报表相关的项目希望这篇能帮你少走一些弯路。有问题可以留言讨论这类老组件的坑很多大家互通有无总是好的。本文还有配套的精品资源点击获取 ReportMachine在Delphi XE10.4.2下的部署与实战
简介面向 Delphi XE10.4.2 开发者的 ReportMachine 报表组件资源包旨在解决报表方向无法随设备或屏幕自动切换的工程难题适合需要快速集成复杂报表、优化打印与显示细节的中高级 Delphi 程序员。资源共 1082 个文件压缩包约 22.9MB核心由大量 dcu、pas、dfm、res 等文件构成其中 dcu 为编译产物便于链接pas 为源代码适合二次开发dfm 定义窗体布局res 保存图标等资源同时还包含 dpk、dproj 等工程文件和批处理脚本可直接在 IDE 中安装或重新构建。已有 475 人学习下载兼具实用与学习价值。借助该包开发者能深入理解 ReportMachine 的方向属性与事件处理机制学习结合屏幕对象检测设备方向并在运行时动态调整报表布局同时可基于自带模板快速搭建支持横竖屏切换、纸张方向变化的应用并借助内置的表格、图表与自定义格式满足多样化的业务数据展示需求有效减少排错时间提升多设备环境下的报表显示稳定性。 做Delphi开发这么多年一直觉得报表这块是绕不过去的坎。早期用QuickReport后来换FastReport再后来因为项目要维护老代码又接触了ReportMachine。最近在XE10.4.2上折腾了一套delphi xe10.4.2 reportmachine.zip的部署方案踩了不少坑也总结出一些经验这里完整记录下来。这套东西说白了就是Delphi环境下的报表组件包解决的是“业务数据怎么排版、怎么打印、怎么导出”的问题。无论你是刚接触Delphi的新手还是要维护老项目的熟手只要涉及报表这一篇都能给你省下不少瞎折腾的时间。1. 项目缘起与组件选型为什么是ReportMachine1.1 老项目的报表需求痛点先交代一下背景。我手头维护的一套进销存系统早年间用的是Delphi 7 ReportMachine 2.x写的报表模块。后来系统要迁移到XE10.4.2最头疼的其实不是业务代码而是报表。原系统里累计了上百张报表模板全部是ReportMachine的格式如果换成其他报表组件意味着所有模板要重新画一遍工作量完全是灾难级别的。所以选型就一个原则能用回ReportMachine就绝不用别的。ReportMachine在Delphi老圈子里的地位有点类似当年VB里的水晶报表它最大的优势就是模板通用性强从Delphi 7一直到XE系列都有对应的版本而且rmMachine这套报表引擎的接口变化不大。注意ReportMachine分好几个版本有免费版、专业版、企业版。免费版功能上会阉割比如不支持某些导出格式、没有源码。如果你要商用建议直接找企业版带源码的包方便自己在XE10.4.2下重新编译。1.2 XE10.4.2环境下的版本匹配逻辑XE10.4.2这个版本号对应的是2021年发布的RAD Studio 10.4.2 Sydney。它用的编译器是Win32/Win64的CodeGear Delphi Compiler 10.4版本。ReportMachine官方对XE系列的支持其实停留在比较早的版本上但社区里有人维护了适配新版的源码包。这个zip包解压后目录结构一般是这样的ReportMachine ├── Packages │ ├── Delphi │ │ ├── RM_XE10_32.dpk │ │ ├── RM_XE10_64.dpk │ │ └── ... ├── Source │ ├── RM_Class.pas │ ├── RM_Designer.pas │ └── ... ├── Demos └── Lib关键点是Packages\Delphi下的dpk文件名它直接标明了支持哪个版本的Delphi。如果没有对应你自己IDE版本的dpk就得手动调整dproj文件里的编译器版本号。这也是很多人在XE10.4.2上装ReportMachine失败的原因版本号对不上一编译就报错。2. 安装部署实操从解压到跑通第一个报表2.1 环境准备与源码编译先把环境说清楚我用的IDE是RAD Studio 10.4.2操作系统是Windows 10 专业版 64位。在动手之前建议先做一件事关闭IDE的杀毒软件实时监控。ReportMachine的编译过程中会生成大量的DCU文件杀毒软件实时扫描会显著拖慢编译速度严重的还会误报删除生成文件。具体编译安装步骤如下把zip包解压到一个没有空格的路径下我习惯放在D:\Components\ReportMachine避免出现Program Files这种带空格的路径导致编译时路径解析出错。打开IDE在Tools Options Environment Options Delphi Options Library里把D:\Components\ReportMachine\Source目录添加到Library路径中。这一步很重要否则IDE找不到RM_Class.pas等源码文件。打开Packages\Delphi下的dpk文件。以RM_XE10_32.dpk为例如果直接打开能编译通过那是最好的情况。如果IDE提示版本不匹配需要右键dpk文件View Source手动修改PackageProcessorType或编译器版本号。编译并安装。在项目管理器里右键dpk文件选择Compile等编译完成后再选Install。安装成功后在Component Install Packages里能看到ReportMachine相关的运行时包。这个流程看起来简单实际操作中大概率会在第3步卡住。因为社区流传的包经常是几个人改过的dpk里的版本信息可能早就乱了。我的做法是不直接打开dpk而是新建一个Package把所有的pas文件加进去然后手动设置Requires为rtl、vcl这两个基础包。这样虽然麻烦但成功率高很多。2.2 lib路径缺失的经典报错编译时最容易碰到的报错是[DCC Fatal Error] RM_Class.pas(126): E1026 File not found: Control.inc这个报错的意思是IDE找不到Control.inc这个文件。这个文件通常位于ReportMachine\Source\Inc目录下。处理办法有两种把Inc目录也加入Library路径。直接在RM_Class.pas里把{$I Control.inc}改成{$I ..\Inc\Control.inc}。我倾向于用第一种方案因为ReportMachine的很多子模块都会引用这个Inc文件只改一个文件不够彻底。添加Library路径时要特别注意IDE的Library路径是分平台的32位和64位要分别添加不然编译64位版本时照样找不到文件。实操心得Library路径添加后一定要重启IDE再重新打开dpk否则路径缓存不生效。这个坑我踩了不止一次每次都是以为路径没加对结果是IDE没重启。2.3 32位与64位版本共存策略XE10.4.2默认支持Win32和Win64两种编译目标。ReportMachine的老版本往往只考虑了32位如果你需要编译64位的程序源码里有些指针相关的代码会出问题。我的做法是先安装32位版本确认报表模块在32位下能正常编译和运行。64位版本作为进阶目标单独创建一个RM_XE10_64.dpk来处理。如果编译64位时报E2010 Incompatible types基本都是指针强转的问题找到报错代码改成NativeInt或NativeUInt做中转即可。// 常见的指针强转报错处理 // 修改前 // P : Pointer(Integer(Data) Offset); // 修改后 P : Pointer(NativeInt(Data) Offset);为什么用NativeInt因为它在32位下是4字节64位下是8字节能自动适应指针宽度。直接用Integer在64位下会导致指针截断轻则数据错误重则直接崩溃。3. 报表设计的核心流程数据连接、模板制作与代码调用3.1 ReportMachine的三种数据连接模式ReportMachine连接数据的方式比较灵活我用下来觉得最实用的有三种第一种直接连接DataSet。在ReportMachine的设计器里通过Report.DataSet属性直接指定一个已经打开的DataSet比如ADOQuery、FDQuery。这种方式的优点是完全可视化设计时就能看到字段列表拖拽字段到报表区域即可。缺点是运行时DataSet必须提前打开而且字段是静态绑定模板和代码耦合度比较高。第二种通过脚本赋值。ReportMachine内置了Pascal脚本引擎可以在脚本里动态创建对象、给报表变量赋值。var sName: string; begin sName : qryMain.FieldByName(customer_name).AsString; rmReport.ReportVariable[customer] : sName; end.这种方式的灵活度最高适合做复杂报表逻辑但调试起来麻烦脚本语法没有IDE的代码提示只能靠经验。第三种使用Table和DBDataset组件。ReportMachine自带了一套RMDBDataSet等组件可以不依赖VCL的DataSet体系直接在组件上配置连接信息。这种方式适合做独立报表模块业务代码和报表代码解耦。3.2 模板设计器画一张漂亮的报表打开ReportMachine设计器的快捷键是双击RMReport组件或者在运行时调用rmReport.ShowReport。设计器的操作逻辑和FastReport、QuickReport类似它把报表分成了几个区域报表头、页头、明细区、页脚、报表尾。设计师最常见的问题是中文乱码。很多老模板字号用的是宋体、仿宋_GB2312这些字体在新系统上要么没有要么字体名对不上。我处理的办法是统一替换成微软雅黑或者思源黑体在代码里通过RMReport.FindComponent(Memo1).Font.Name批量修改或者干脆在设计器里全局替换。// 批量替换字体 procedure ReplaceFont(ARep: TRMReport; OldFont, NewFont: string); var i: Integer; Comp: TRMComponent; begin for i : 0 to ARep.ComponentCount - 1 do begin Comp : ARep.Components[i]; if Comp is TRMMemoView then begin if SameText(TRMMemoView(Comp).Font.Name, OldFont) then TRMMemoView(Comp).Font.Name : NewFont; end; end; end;3.3 代码里的报表预览与打印报表模板做好后代码里调用就简单多了。核心流程是加载模板、设置数据、准备报表、预览或打印。procedure ShowReport; var rmReport: TRMReport; begin rmReport : TRMReport.Create(nil); try rmReport.LoadFromFile(report.rmf); rmReport.Dataset : qryMain; // 指定数据集 rmReport.ShowReport; // 预览 // rmReport.Print; // 直接打印 finally rmReport.Free; end; end;实测下来ShowReport在XE10.4.2下预览速度和老Delphi 7差不多没有明显的卡顿。但Print直接打印时如果你没有设置打印机名称ReportMachine会调用系统默认打印机这在某些网络打印机环境下会出问题。建议代码里显式指定打印机名rmReport.PrintOptions.Printer : HP LaserJet M1005;4. 常见问题与排查技巧实录4.1 cannot perform this operation on an open dataset这个报错在热搜里也出现了典型的场景是报表模板里绑定了一个数据集但代码在报表已经打开数据集的情况下又去执行Open操作。排查思路可以这样理检查代码里是否有重复的qryMain.Open特别是同一段代码在FormShow和报表准备事件里都调用了。检查报表模板的OnNeedData事件如果事件里手动打开了数据集但数据集外部已经打开就会触发这个报错。用调试断点定位第一次报错的位置重点查看是哪个Dataset触发了报错。解决方案是加一个状态判断if not qryMain.Active then qryMain.Open;这类问题在老的ReportMachine项目里特别常见。原因在于早期开发者习惯在FormShow里打开数据集后来需求变动把打开操作挪到了报表事件里结果忘记把原来的Open删掉。4.2 无效的授权说明无效的授权说明这个报错基本都是因为报表包没有正确注册导致的。ReportMachine在运行时会对它的核心许可证进行校验。如果你安装的是试用版、绿色版或者注册表信息不全就会弹这个错误。处理流程重新运行zip包里面的RegRM.exe或Setup.exe确保注册表项写入完整。确认IDE安装的包版本和你代码里引用的版本一致不要运行时包用了旧版设计时包用了新版。检查代码里ReportMachine.inc如果有的话里关于授权控制的宏定义。报错如果发生在客户机器上需要把报表运行时相关的BPL包文件一起部署过去。最简单的方式是把ReportMachine.bpl和ReportMachine_DB.bpl放到应用程序的同级目录或者在安装制作的脚本里加上这些文件。4.3 常见问题速查表问题现象可能原因处理建议编译DPK报 File not foundLibrary路径未添加Inc目录添加Inc路径后重启IDE64位编译指针报错Integer存指针导致截断改用NativeInt/NativeUInt预览中文乱码字体缺失或字体名不兼容替换为微软雅黑等标准字体运行时找不到rmReport.lic授权文件路径不对将lic文件放到exe同级目录打印横向/纵向不对模板页面设置和打印机冲突在代码里显式设置PaperSize和Orientation4.4 独家避坑技巧在实际项目中报表的调试是最费时间的。我自己总结了一套方法把报表模板文件放在程序的相对路径下并写一个配置项控制加载路径。这样在开发时可以用D:\Project\Reports\部署到客户环境时改成.\Reports\避免写死绝对路径。另外ReportMachine的模板文件.rmf格式本质上是一个文本文件里面用XML结构保存了所有组件的属性。如果模板损坏可以用记事本打开看看通常能查出是哪里少了一个标签。这比直接放弃重画模板要高效得多。// 模板文件部分内容示例 RMReport Version4.0 Unitmm Page Width210 Height297 OrientationPortrait/ Band BandTypeReportHeader MemoView NameMemo1 Text销售报表/Text Font Name微软雅黑 Size16/ /MemoView /Band /RMReport5. 报表模块与Delphi生态的联动5.1 字符串作字典Key与报表数据组织这个话题在热搜词里也出现了我觉得放在报表场景下特别有意义。做报表的时候经常需要把明细数据按某个字段归类再用字典来组织统计数据。Delphi的TDictionarystring, TListT结构在这里就很实用。var Dict: TDictionarystring, TListTSalesRecord; Key: string; List: TListTSalesRecord; begin Dict : TDictionarystring, TListTSalesRecord.Create; try // 遍历数据源 for record in qryData do begin if not Dict.TryGetValue(record.Region, List) then begin List : TListTSalesRecord.Create; Dict.Add(record.Region, List); end; List.Add(record); end; // 把字典数据加载到报表数据集 finally Dict.Free; end; end;注意TDictionary的Key不区分大小写是有意的但如果你需要一个报表按年份分组又要严格区分2023和2024最好先统一Key的格式避免大小写或空格导致分组错乱。5.2 正则表达式在报表字段清洗中的应用报表数据源经常有脏数据比如手机号里有空格、身份证号多了换行符。用正则表达式清洗字段非常方便Delphi自带的System.RegularExpressions单元在XE10.4.2上已经支持Unicode模式。var RegEx: TRegEx; CleanPhone: string; begin RegEx : TRegEx.Create(\D); CleanPhone : RegEx.Replace(rawPhone, ); end;这里的\D匹配所有非数字字符替换掉之后手机号就干净了。正则表达式如果匹配结果不理想可以用RegEx.IsMatch做测试再配合在线正则工具验证比自己盲调试要快。5.3 匿名线程与报表后台生成报表大的时候预览和导出会卡界面。解决方法是把报表生成放到后台线程里。Delphi的TThread.CreateAnonymousThread用起来比TThread手动管理简单很多。var aThread: TThread; begin aThread : TThread.CreateAnonymousThread( procedure begin rmReport.PrepareReport; TThread.Queue(nil, procedure begin rmReport.ShowPreparedReport; end); end); aThread.Start; end;这里有个关键点PrepareReport是在后台线程跑的但ShowPreparedReport必须通过TThread.Queue排到主线程。原因是VCL的窗口对象不是线程安全的直接在线程里调用预览窗口大概率会崩溃。热搜里的“itask和匿名线程区别”其实也讲这个问题iTask底层还是基于TThread但它的回调机制更严格用起来更规范。5.4 判断周六日对报表排期的影响做报表排期时经常需要排除周末。判断某个日期是不是周六日老代码一般用DayOfWeek函数但从XE4开始它就标记为deprecated了新的写法用System.DateUtils.DayOfTheWeek。uses System.DateUtils; function IsWeekend(ADate: TDate): Boolean; var Day: TDayOfWeek; begin Day : DayOfTheWeek(ADate); Result : (Day TDayOfWeek.Friday) or (Day TDayOfWeek.Saturday); end;注意DayOfTheWeek的返回值是从星期一到星期日对应1到7。和旧版DayOfWeek星期日为1不一样。如果你是从老代码迁移过来的这个差异很容易踩坑。6. 扩展话题学习Delphi的一点个人体会6.1 从ReportMachine到整个Delphi生态做报表的过程中你会接触到Delphi非常多的基础能力类的继承、接口、RTTI、多线程、字符串处理、数据库访问。报表组件就像一张网把所有这些知识点串在一起。如果你刚学Delphi不久建议找一个像ReportMachine这样成熟完整的组件包通过读源码来理解框架设计。比如TRMReport的主从表处理逻辑里就有对DataSource和MasterSource的巧妙运用这比单纯看书学得快得多。6.2 Delphi 11 TeeChart与ReportMachine的配合热搜里提到的delphi 11 teechart其实是另一个和报表密切相关的组件。TeeChart是图表组件用来在报表里展示统计图形。XE10.4.2自带的TeeChart版本已经比较新可以直接嵌到ReportMachine的报表里也可以单独做成图表模板导出为图片再塞进报表。我一般是这样做的先用TeeChart生成图表再用Chart.SaveToBitmapFile导出为临时图片最后在ReportMachine模板里用TRMImage控件引用图片。这种方式的好处是图表样式完全可控坏处是多了一步文件读写性能稍差。6.3 OCR与表格控件在报表场景中的延伸有人可能会问报表和OCR有什么关系其实在现代的进销存或财务系统里报表数据往往需要从单据图片里提取。Delphi里集成OCR一般用Tesseract的DLL封装或者调用云服务API。热搜里的delphi ocr多半指的就是这种需求。表格控件则是在报表的数据录入端做文章比如你做了一个报表模板预览界面旁边放一个表格控件让用户临时修改打印内容。这一块涉及内容比较广如果后面有时间我再单独写一篇完整的实操文章。7. 最后的几个建议折腾了这么多年Delphi和ReportMachine最后分享几条心得。第一组件路径命名不要带空格项目路径也不要带中文。这个听起来老生常谈但真出问题时往往想不到这里。第二报表模板一定要做版本管理。.rmf文件是文本格式完全可以放进Git里对比版本差异。我以前吃过亏模板改坏了又没备份只能从头画。第三尽量用代码控制的报表逻辑不要全堆在设计器脚本里。设计器脚本虽然灵活但没有调试器出了问题只能靠加ShowMessage排查效率极低。第四老项目的迁移一切以稳定为先。如果旧代码在Delphi 7上跑得好好的不要因为XE10.4.2新特性就大动干戈。报表这种外围模块能不改结构就不改结构移到新版能用就完事。后续有空再优化也不迟。如果你也在做Delphi报表相关的项目希望这篇能帮你少走一些弯路。有问题可以留言讨论这类老组件的坑很多大家互通有无总是好的。本文还有配套的精品资源点击获取