Delphi开发WEB应用程序打印组件[1]

近些年来 随着互联网的普及和推广 传统的单机模式和局域中的c/s模式的应用程序越来越不能满足信息共享的要求 因此 一种新的基于浏览器的b/s的应用程序的开发方式被提了出来 新的开发方案以其客户端的免维护 免配置 程序能根据服务器的信息能够自动更新升级服务器端多层模式的应有提高处理的效率和安全性越来越被广大的应用程序的开发者所看好 成为应用程序开发的一个新的发展方向 在windows的平台上 人们利用asp来开发服务的显示界面 而用组件来封装商业规则 在各种杂志上利用各种工具进行组件开发也是屡见不鲜 但介绍打印组开发却不怎么看到?

二 设想

web打印组件要求是在一次为某单位开发信息管理系统中被提及的 这个系统中的一些票据需要打印 这样 如何对这些票据进行套打成了我们必须解决的问题

要在客户端打印一些用户要求的票据或其它的文字或图片资料 有两种方式:一种是利用delphi的active　form来生成客户端的界面 由浏览器下载安装 并在客户端运行 (这种方式在开发多后台数据库中 较为常用 在国内许多新版本的财务软件都采用了这种方法 其缺点是对开发人员的要求太高) 另一种是开发一个组件在客户端安装 然后 由服务器端来生成vbscript脚本 在客户端运行 创建相应的组件对象利用组件对象来进行打印 *** 作 (这种方法只要客户端的组件开发完成 使用者只要熟悉vbscript或javascript脚本语言就可能方便的调用)?

三 实现

首先 运行delphi 选择file菜单中的new 在d出的对话框中选择activex页 选择activex library创建activex库 然后 再往新建的库中加入一个automation object *** 作步骤同上 在automation object wizard对话框中填入组件名prttest 单击ok

然后 在d出的prttest tlb窗口中 选择iprttest 单击右键新增一个isinit的property 类型为long 再继续增加如下 个method:

procedure prtcustompage(pagewidth: integerpageheight: integer)

safecall

procedure prtstartsafecall

procedure prtnewpagesafecall

procedure prtendsafecall

procedure prtdrawline(x : integery : integerx : integery :

integerlinewidth: integer)safecall

procedure prtsetfont(const fontname: widestringfontsize:

integer)safecall

procedure prttextrect(valign: integerhalign: integerrectleft:

integerrecttop: integerrectright: integerrectbottom:

integerconst printstring: widestring)safecall

它们意义是:

prtcustompage 用来设置自定义纸张 传入的参数自定义纸张的宽度和高度

prtstart 用来初始化打印机 如果初始化成功 则将属性isinit置为真 反之则为假

prtnewpage 用来使打印机换页

prtend　结束打印任务

prtdrawline 用来在页面上绘制一条线 (x y )为起始点 (x y )为终止点 linewidth为打印线的宽度

prtsetfont 用来设置打印的字体名及大小

prttextrect 用来指定的方框内的输出的指定的字符串

Delphi开发WEB应用程序打印组件( )

[ ]  [ ]  [ ]

lishixinzhi/Article/program/Delphi/201311/24792

Web

开发有多种应用形式，要看应用的平台（比如是电脑还是手机）。

以下提供用

delphi

开发

web

的一些方式：

一、使用

Indy

组件包里的

Internet

控件

如果是开发网络应用（架构web服务器等），可以使用

Indy

组件包里的

Internet

控件。

二、使用

IntraWeb

组件

IntraWeb很像是普通的应用程序，唯一不同的是它的用户界面是用浏览器代替了通常的Windows界面，当把应用程序安装到Web服务器上之后，用户马上就可以通过它的网络地址来开启它，应用程序会马上建立使用者的用户信息，这样就可以避免丢失用户信息或者与其它的使用者发生使用混乱。

三、开发

Android

/

IOS

手机应用

此外，UniGUI

组件包改编

ExtJS

框架，提供了一整套的

web

UI

元素。

---