资源描述：
《delphi的打印》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、Delphi开发WEB应用程序打印组件一、引言 近些年来,随着互联网的普及和推广,传统的单机模式和局域中的ｃ／ｓ模式的应用程序越来越不能满足信息共享的要求。因此,一种新的基于浏览器的ｂ／ｓ的应用程序的开发方式被提了出来。新的开发方案以其客户端的免维护、免配置、程序能根据服务器的信息能够自动更新升级;服务器端多层模式的应有提高处理的效率和安全性越来越被广大的应用程序的开发者所看好。成为应用程序开发的一个新的发展方向。在windows的平台上,人们利用asp来开发服务的显示界面,而用组件来封装商业规则,在各种杂志上利用各种工具进
2、行组件开发也是屡见不鲜。但介绍打印组开发却不怎么看到?收呦Ｍ妥砸芽⒋蛴∽榧囊坏阈牡锰寤崂磁鬃┮瘛?二、设想 web打印组件要求是在一次为某单位开发信息管理系统中被提及的,这个系统中的一些票据需要打印。这样,如何对这些票据进行套打成了我们必须解决的问题。 要在客户端打印一些用户要求的票据或其它的文字或图片资料,有两种方式:一种是利用delphi的active form来生成客户端的界面,由浏览器下载安装,并在客户端运行。(这种方式在开发多后台数据库中,较为常用。在国内许多新版本的财务软件都采用了这种方法,其缺点是对开
3、发人员的要求太高),另一种是开发一个组件在客户端安装,然后,由服务器端来生成vbscript脚本,在客户端运行、创建相应的组件对象;利用组件对象来进行打印操作。(这种方法只要客户端的com组件开发完成,使用者只要熟悉vbscript或javascript脚本语言就可能方便的调用)?疚奈颐侵饕致鄣诙址绞健?三、实现 首先、运行delphi5.0;选择file菜单中的new,在弹出的对话框中选择activex页,选择activexlibrary创建activex库.然后,再往新建的库中加入一个automationobject
4、,操作步骤同上。在automationobjectwizard对话框中填入组件名prttest3;单击ok。 然后、在弹出的prttest3.tlb窗口中,选择iprttest3。单击右键新增一个isinit的property,类型为long。再继续增加如下5个method: procedureprtcustompage(pagewidth:integer;pageheight:integer); safecall; procedureprtstart;safecall; procedureprtnewpage;s
5、afecall; procedureprtend;safecall; procedureprtdrawline(x1:integer;y1:integer;x2:integer;y2: integer;linewidth:integer);safecall; procedureprtsetfont(constfontname:widestring;fontsize: integer);safecall; procedureprttextrect(valign:integer;halign:integer;rec
6、tleft: integer;recttop:integer;rectright:integer;rectbottom: integer;constprintstring:widestring);safecall; 它们意义是:prtcustompage用来设置自定义纸张.传入的参数自定义纸张的宽度和高度。prtstart用来初始化打印机。如果初始化成功,则将属性isinit置为真,反之则为假。 prtnewpage用来使打印机换页。prtend 结束打印任务。prtdrawline用来在页面上绘制一条线。(
7、x1,y1)为起始点.(x2,y2)为终止点。linewidth为打印线的宽度。prtsetfont用来设置打印的字体名及大小。prttextrect用来指定的方框内的输出的指定的字符串。Delphi开发WEB应用程序打印组件(2)四、调用在脚本中调用这个组件的方法:(1)、利用createobject函数创建一个打印对象。(２)、调用prtcustompage来指定定制的纸张的大小(以0.1毫米为基本单位)。如果,不是定制的纸张则不需要调用这个过程(即以打印默认的纸张大小进行打印)。(３)、调用prtstart进行打印机的初
8、始化工作。如果打印机初始化成功,则会将isinit属性置为真,表示初始化成功;否则,表示打印机正在忙或有别的应用程序正在使用打印机,初始化不能成功。(４)、判断isinit标志。如果为真,则继续执行打印段。(５)、执行打印段。可以在利用打印机画线、和在指定位置输出文字。(注:
