1回顶部 一、引言 近些年来,随着互联网的普及和推广,传统的单机模式和局域中的c/s模式的应用程序越来越不能满足信息共享的要求。因此,一种新的基于浏览器的b/s的应用程序的开发方式被提了出来。新的开发方案以其客户端的免维护、免配置、程序能根据服务器的信息能够自动更新升级;服务器端多层模式的应有提高处理的效率和安全性越来越被广大的应用程序的开发者所看好。成为应用程序开发的一个新的发展方向。在windows的平台上,人们利用asp来开发服务的显示界面,而用组件来封装商业规则,在各种杂志上利用各种工具进行组件开发也是屡见不鲜。但介绍打印组开发却不怎么看到? procedure prtcustompage(pagewidth: integer; pageheight: integer); 2回顶部 它们意义是: prtcustompage 用来设置自定义纸张.传入的参数自定义纸张的宽度和高度。 prtstart 用来初始化打印机。如果初始化成功,则将属性isinit置为真,反之则为假。 prtnewpage 用来使打印机换页。 prtend 结束打印任务。 prtdrawline 用来在页面上绘制一条线。(x1,y1)为起始点.(x2,y2)为终止点。linewidth为打印线的宽度。 prtsetfont 用来设置打印的字体名及大小。 prttextrect 用来指定的方框内的输出的指定的字符串。 Delphi开发WEB应用程序打印组件(2) 四、调用 在脚本中调用这个组件的方法: (1)、利用createobject函数创建一个打印对象。 (2)、调用prtcustompage来指定定制的纸张的大小(以0.1毫米为基本单位)。如果,不是定制的纸张则不需要调用这个过程(即以打印默认的纸张大小进行打印)。 (3)、调用prtstart进行打印机的初始化工作。如果打印机初始化成功,则会将isinit属性置为真,表示初始化成功;否则,表示打印机正在忙或有别的应用程序正在使用打印机,初始化不能成功。 (4)、判断isinit标志。如果为真,则继续执行打印段。 (5)、执行打印段。可以在利用打印机画线、和在指定位置输出文字。 (注:在组件接中的所有位置单位都是0.1毫米。例?prtobject.prtdrawlien 0,0,1000,1000 表示从左上角(0,0)毫米到右下角(100,100)毫米处,画一条直线) (6)、利用prtend结束打印任务。 < script language=vbscript> < !-- sub testprtobject dim prtobject set prtobject=createobject(prttest3.prttest3) prtobject.prtcustompage 1000,1000 prtobject.prtstart if prtobject.isinit then prtobject.prtdrawline 0,0,1000,1000,1 prtobject.prtdrawline 500,700,1000,1000,1 prtobject.prtsetfont 宋体,16 prtobject.prttextrect 2,2,0,0,1000,500,web应用程序打印测试 prtobject.prtend end if set prtobject=nothing end sub testprtobject() //--> < /script> Delphi开发WEB应用程序打印组件(3) 3回顶部 五、代码解析 在这个组件中,我们所要解决的几个问题: (1)、在delphi的应用程序设计中自定义打印纸张的设置,delphi中自身带了一个quickreport的打印设计程序,这个程序在一定的程度上方便了打印的设计,但这个设计程序对于自定义纸张的设定和打印支持却不是很好。因此,在这个组件中我们采用手工代码来设定自定义纸张大小。 function tprttest3.initprintpaper:boolean; 4回顶部 (2)、打印位置的确定:由于组件是以图形方式进行打印,这就使得我们可以精确指向打印文件的输出位置,以便于进行对某些票据的套打。但这样就产生一个问题,我们是以打印的像素位置指定输入位置,还是以打印尺寸来指定位置。显然,利用像素来输出打印位置,对于编制程序来说是比较方便的。但由于一般用户对像素的概念并不理解,因此会带来使用上的困难;而且每一种打印机的分辩率是不一样的,因此,会出现在不同打印机上打印的效果不一样的问题。而以打印尺寸来指定位置并在程序中妥善加以处理就不会有上面的问题。具体的处理方法是,由用户输入尺寸位置。然后,在打印时,首先取得当前打印机的分辩率(注意:分辨率是以每英寸多少像素为单位的),再计算得出实际输入的像素位置后进行打印,这样就可以使得组件更加实用,而且,保持打印幅面的一致。具体的函数如下。 function tprttest3.mmtoprintpixel(inputpoint:tpoint):tpoint; 5回顶部 六、组件的注册 如果是在delphi编写了这个组件的,则可以选择run菜单下的register activex server来进行这个组件的注册。 对于不开发机器的注册则可使用:点击“开始”→“运行”;在运行对话框中输入以下命令: regsvr32 < 文件名 > 注册一个activex控件 regsvr32 /u < 文件名 > 解除某activex控件的注册 七、其它应用 组件的扩展:以上列出的仅仅是编写这个组件的框架,功能比较有限。根据需要我们还可以添加上画圆、椭圆,矩形,甚至图片等功能。有兴趣的读者就请自行添加。 因为,组件是采用com的方式运行,所以,我们还在window script hosts(wsh)中应用这个组件,结合wsh原有(通过ado对象)访问外部数据库的能力,就可能做出在windows下功能强大的wsh的脚本程序。 |
正在阅读:Delphi开发WEB应用程序打印组件Delphi开发WEB应用程序打印组件
2004-04-06 09:51
出处:delphi精髓网
责任编辑:sdq