RMReport3.51破解手札㈠

本文介绍RMReport打印控件的破解过程,重点破解了只能打印头两页的限制,并分享了使用Delphi6和Dcu2Pas工具的具体步骤。

序言:
  RMReport是一款不错的打印控件,其中的GridReport做得很有特色(大多数选用RM的人就是被它吸引过去的),官方网站提供的试用版本有诸多限制,比如只能打印头两页、会多了一句未破解提示、导出功能只能导前六页等。
  这次破解发生在2004年12月20日、21日,破解的是当时的3.51版本(本方法也适用于06年发布的5.0版,但自5.0后我便没有再关注过RM了),其时想在一个项目中试用RM的GridReport,但破解后又发现RM在交叉报表方面的诸多不足之处,所以最终放弃了RM改用其他的报表控件。
  之所以在四年后的今天才公布破解手札,主要是考虑RM是一款商业控件,如果在当时发布对其最新版本的破解方法可能会引来不必要的麻烦,而多年之后的RM应该与原来的大有不同,现在公布破解手札已不会造成什么影响。本次手札详细介绍了对“只能打印头两页”的限制的破解过程和思路,其他的限制的破解方法与之类同。
  需要特别声明的是,写这破解手札并不是为了炫耀我的破解技术有多高(相反我觉得我的技术很菜),而是为了告诉广大的控件和软件作者破解往往是在你意想不到地方进行突破,要想保住你的成果,需要下更多的苦功。

破解环境:
  操作系统:Win2000,跟踪调试工作:Delphi6,再加上一个对Dcu作静态反编译的Dcu2Pas,就这么简单。

破解步骤一——代码跟踪:
  在D6中安装了RM3.51后,新建一个Application,然后在主窗体中加入RMReport和一个Button,双击Button在OnClick事件中写下代码:

  1. procedureTForm1.Button1Click(Sender:TObject);
  2. begin
  3. RMReport1.PrintReport;
  4. end;
  在RMReport1.PrintReport;这句设下断点,按F9运行程序,IDE停在断点处,按下Ctrl+Alt+C键,IDE切换到CPUView模式,如下图。
文章出自《编程手札》http://blog.youkuaiyun.com/nhconch,请从正确地址查看文章原文,引用或转载的可能会导致内容缺失
  现在,破解之旅正式开始,接下来便要游走在汇编的世界里。
  这里略过具体的跟踪过程,通过对汇编代码的跟踪,整理得到以下的函数调用过程:
PrintReport
PrepareReport
GetCount
PrintPreparedReportDlg
RMPrinters
GetPrinter
RM.SetCopies
Call dword ptr [edx+$000E8] //显示对话框
GetPageInfo
GetCopies
PrintPreparedReport
GetCount
RMLoadStr
Create ProgressForm.Show
_DoPrintReport
_ParsePageNumbers
GetPages
SetPrinterInfo
FillPrinterInfo
BeginDoc
_PrintOnePage

编写过打印功能的都应该知道,案发现场肯定是在BeginDoc之后,从汇编代码中也可以看到BeginDoc之后有四处对_PrintOnePage的调用,前两处调用和后两处调用分别落在各自独立的代码段中,而每一处对_PrintOnePage的调用都会使打印机输出一页报表,因此不用深究_PrintOnePage是如何工作的,转而直接将焦点集中BeginDoc到EndDoc之间对PrintOnePage的调用过程上。
文章出自《编程手札》http://blog.youkuaiyun.com/nhconch,请从正确地址查看文章原文,引用或转载的可能会导致内容缺失

破解步骤二——代码分析:
  在跟踪过程发现,限制来自于rm_class.dcu,于是Dcu2Pas闪亮登场。咳~~~~~,时间到,接下来是广告时间,广告之后更精彩~~~~

Dcu2Pas是一款将Dcu文件反翻译成Pas文件的工具软件,反翻译出来的内容包括常量、记录、类和函数定义等信息,不足之处是代码依然汇编的,不过已经为破解提供了很大的便利了。以下是软件自带的一些信息,如果你运气好的话还可以在官方网站中找到最新的版本:

{///////////////////////////////////////////////////////////////////////////////
Project Dcu2Pas Version 1.3
Purpose Decompile a D2-D7, K1-K3's dcu(dpu) file to Delphi source as origin as
possible, without or with minimal modifications, then recompile to new
one under other Delphi versions
Author Nengwen Zhuo(×??ü??)
Homes http://soarowl.uhome.net, http://www.websamba.com/soarowl,
http://soarowl.0catch.com
Emails soarowl@yeah.net, soarowl@sina.com.cn
Released 2003-02-10
Lastest home/dl/Dcu2Pas.rar

FOR RESTORE YOUR LOST SOURCES AND OPTIMIZE YOUR CODES ONLY!!!

Decompiled on 2004-12-21 19:56:35
<!-- google_ad_client = "pub-5395599807454886"; /* 468x60, 创建于 08-12-15 */ google_ad_slot = "2456405239"; google_ad_width = 468; google_ad_height = 60; //-->
///////////////////////////////////////////////////////////////////////////////}


RMReport3.51破解手札㈡   RMReport3.51破解手札㈢

VB控件 RMReport7 转:RMReport的使用方法及详解 1、不打印特定的MemoView,套打常用 a.面设置-->其它-->不打印背景图 b.设置MemoView属性printable=False 2、 如何打印wwDBGrid? 修改rm.inc,如果想支持RX,GIF,JPEG,DimandAccess,Halcyon,DBISAM, EHLib,也需要修改rm.inc //{$DEFINE InfoPower} //修改这行,去掉"//" //{$Ehlib} 3.试用版安装方法(以下假设将文件释放到c:/rm目录中) (1)Tools->Environments Option->Libary->Libary Path中增加: c:/rm/souce c:/rm/bpl $(DELPHI)/Lib $(DELPHI)/Bin $(DELPHI)/Imports $(DELPHI)/Projects/Bpl (2)Component->Install Packages->Add,选bpl/rm_d70.bpl 4.Delphi IDE中卸载以的Report Machine版本,然后打开rm_r50.dpk,选"compile", 在打开rm_d50.dpk,选"Install". 包分成了Runtime package和Designer package,所以要安装顺序安装 5、单元格的变量格式用代码设置 t = TRMGridReportPage(RMGridReport1.Pages[0]).Grid.Cells[1, 1].View t = TRMMemoView(RMReport1.FindObject(&#39;memo1&#39;)); t.DisplayFormat := &#39;N0.001&#39; //数字型 t.DisplayFormat := &#39;Dyyyy/mm/dd&#39; //日期型 6、两遍报表如何用代码设置 GridReport1.DoublePass := True 7、用代码写数据字典: RMReport1.Dictionary.FieldAliases.Clear; RMReport1.Dictionary.FieldAliases[&#39;RMDBDataSet1&#39;] := &#39;动物&#39;; RMReport1.Dictionary.FieldAliases[&#39;RMDBDataSet1."Name"&#39;] := &#39;姓名&#39;; 这样在RM的设计器显示为自定义名称,为最终用户提供友好的显示 8、在报表中如何使用变量(或者如何给某个memoview赋值) a.RMVariables在RM_Class.pas中定义,是全局变量,这样定义后就可以在报表中使用变量"var1",例如: RMVariables[&#39;变量名称&#39;] := Edit1.Text; b.用报表中数据字典,TRMReport.Dictionary.Variables,需要注意的是,如果变量是字符型的需要用AsString赋值,其他类型的用RMReport.Dictionary.Variables[&#39;var1&#39;] := 1234,例如: RMReport1.LoadFromFile(&#39;1.rls&#39;); RMReport1.Dictionary.Variables.AsString[&#39;变量名称&#39;] := Edit1.Text; c. 直接对某个单元格赋值,例如: RMGridReport1.LoadFromFile(&#39;1.rls&#39;); TRMGridReportPage(RMGridReport1.Pages[0]).Grid.Cells[1,1].Text := &#39;值&#39;; 如果是RMReportRMReport1.LoadFromFile(&#39;1.rmf&#39;); t := RMReport1.FindObject(&#39;Memo1&#39;); if t nil then // var t: TRMView t.Memo.Text := &#39;dsdsdsds&#39;; d.脚本中直接引用Form的值 procedure Main; begin Memo1.Memo.Text := Form1.Edit1.Text; end; 9、自动换行 主项数据栏Stretched = true 文本框 Stretched = true WordWrap = true 10、RM内置变量(Script),增加中.... a.属性PrintAtAppendBlank=True CurReport.AppendBlanking=True时代表增加空行 在RM中,打印设置只能保存面边距及打印份数、是否两遍打印以及
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值