delphi打印机编程

Delphi中获取打印机设备名和端口名

uses Printers;

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
   pDevice : pChar;
   pDriver : pChar;
   pPort   : pChar;
   hDMode : THandle;
begin
   if PrintDialog1.Execute then begin
     GetMem(pDevice, cchDeviceName);
     GetMem(pDriver, MAX_PATH);
     GetMem(pPort, MAX_PATH);
     Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
     if lStrLen(pDriver) = 0 then begin
       GetProfileString('Devices', pDevice, '', pDriver, MAX_PATH);
       pDriver[pos(',', pDriver) - 1] := #0;
     end;
     if lStrLen(pPort) = 0 then begin
       GetProfileString('Devices', pDevice, '', pPort, MAX_PATH);
       lStrCpy(pPort,  @pPort[lStrLen(pPort)+2]);
     end;
     Memo1.Lines.Add('Device := ' + StrPas(pDevice));
     Memo1.Lines.Add('Driver := ' + StrPas(pDriver));
     Memo1.Lines.Add('Port := ' + StrPas(pPort));
     FreeMem(pDevice, cchDeviceName);
     FreeMem(pDriver, MAX_PATH);
     FreeMem(pPort, MAX_PATH);
   end;
end;

Api函数列表
--与打印相关


Api函数名                     函数说明                                适用范围
                                                                       W3.x W95 NT
AddPrinterConnection          为当前用户建立与打印机的联系            否是是
StartPagePrinter              开始打印机                              否是是
StartDoc                      开始打印作业                            是是是
StartDocPrinter               开始打印作业                            否是是
AddPrintProvidor              加入一个打印机支持器                    否是是
AddForm                       加入一个打印机窗体                      否是是
AddPort                       加入一个打印机端口                      否是是
AddMonitor                    加入一个打印机管理器                    否是是
ShellExecute                  打开或打印指定文件                      否是是
ClosePrinter                  关闭打开的打印机                        否是是
WritePrinter                  向打印机输出数据                        否是是
AddPrinter                    在打印机服务器上建立一个打印机          否是是
SetAbortProc                  设备打印作业的放弃函数                  否是是
SetPrinter                    设置打印机信息                          否是是
SetPrinterData                设置打印机配置                          否是是
SetJob                        设置打印作业信息                        否是是
ResetPrinter                  设置打印数据类型和设备模式值            否是是
DeletePrinterConnection       删除与打印机的连接                      否是是
DeletePrintProcessor          删除打印机处理器                        否是是
DeletePrinterDriver           删除打印机驱动程序                      否是是
DeletePrinter                 删除打印机服务器上的打印机              否是是
DeleteMonitor                 删除打印机监视器                        否是是
DeletePrintProvidor           删除打印机提供者                        否是是
DeleteForm                    删除打印机窗体层差                      否是是
AbortPrinter                  删除打印机缓冲文件                      否是是
DeletePort                    删除打印机端口                          否是是
AddJob                        启动一个打印作业                        否是是
AdvancedDocumentProperties    进行打印机高级设置                      否是是
PrintDlg                      建立打印文本对话框                      否是是
EnumPrintProcessors           枚举已安装的打印机处理器                否是是
EnumPrinterDrivers            枚举已安装的打印机驱动程序              否是是
EnumPorts                     枚举可用打印机端口                      否是是
EnumPrintProcessorDatatypes   枚举打印机所支持的数据类型              否是是
EnumForms                     枚举所支持的打印机窗体                  否是是
AbortDoc                      终止一项打印作业                        是是是
PrinterProperties             修改打印机属性                          否是是
AddPrintProcessor             将打印处理器复制到打印机服务器中        否是是
AddPrinterDriver              将打印机驱动程序复制到打印机服务器中    否是是
PrinterMessageBox             显示打印作业出错信息                    否是是
ConnectToPrinterDlg           显示浏览对话并连接网络打印机            否是是
EndPagePrinter                结束打印页                              否是是
EndDoc                        结束打印作业                            是是是
EndDocPrinter                 结束打印作业                            否是是
StartPage                     准备打印机接收数据                      是是是
WaitForPrinterChange          监测打印机或打印机服务器变化            否是是
GetPrintProcessorDirectory    获取打印机驱动处理器路径                否是是
GetPrinterDriver              获取打印机驱动程序信息                  否是是
GetPrinterDriverDirectory     获取打印机驱动程序路径                  否是是
GetPrinter                    获取打印机信息                          否是是
GetPrinterData                获取打印机配置信息                      否是是
GetForm                       获取打印机窗口信息                      否是是
EnumJobs                      获取打印作业信息                        否是是
GetJob                        获取打印作业信息                        否是是
OpenPrinter                   获取指定打印机的句柄                    否是是
ReadPrinter                   读打印机数据                            否是是
DocumentProperties            配置打印机设置                          否是是
ConfigurePort                 配置打印机端口                          否是是

用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。
1.获娶显示当前打印机的分辨率
Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printerHandle,LOGPIXELSX))＋chr(13)＋′垂直分辨率：′＋inttostr(GetDeviceCaps(printerHandle,LOGPIXELSY)));结果就一目了然了。
2.将结果直接送到打印机
Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。
3.尽量不要使用AssignPrn
尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。
4.用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printerCanvasrectangle(0,0,360,720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出06英寸宽、12英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printerHandle,LOGPIXELSX);PointY:=GetDeviceCaps(printerHandle,LOGPIXELSX);printerCanvasrectangle(0,0,PointX＊1,PointY＊2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。
5.添加打印程序单元
尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。

delphi打印机编程相关推荐

Delphi面向对象编程的20条规则
前言大多数Delphi程序员都像使用Visual Basic 那样使用他们手头上开发工具,而丝毫没有意识到Delphi的强大功能,更谈不上使用这些功能了.(写到这里,编辑惶恐的举起了手,怎么可能呢? ...
▼▲Delphi面向对象编程的20条规则
▼▲Delphi面向对象编程的20条规则(转载) 楼主ZyxIp(绝望中...)2003-09-02 14:28:07 在 Delphi / VCL组件开发及应用提问作者简介 Marc ...
Delphi数据库编程一日通
Delphi数据库编程一日通. 通常情况下,利用 Delphi 开发数据库应用程序,可以使用TTable.TDataSource.TDBEdit.TDBNavigator等构件.只要正确设置了构件的某 ...
delphi windows编程_2020年值得关注的新编程V语言Vlang，对标Golang、Rust、Swift
编程语言的世界总是能搞出新花样,虽然基本原理都是万变不离其宗,但是对我们个人而言,选择好一个语言的确可以事半功倍,何乐而不为呢? 要说目前2020年比较新奇的语言,就得说说V语言Vlang了,MIT开 ...
Delphi拖放编程
拖放(DragDrop)是Windows提供的一种快捷的操作方式.作为基于Windows的开发工具,Delphi同样支持拖放操作,而且开发应用系统的拖放功能十分方便,真正体现了Delphi的强大功能和 ...
delphi windows编程_学习C/C++：伴随我成长的编程书！
学习C++是一个艰难的过程.如果从我第一次看C++的书算起,现在已经过了11年了.一开始的动机也是很不靠谱的.刚开始我很喜欢用VB6来开发游戏,但是我能找到的资料都是用C++来做例子的,文字部分又不丰 ...
Delphi COM编程介绍
软件重用是业界追求的目标,人们一直希望能够像搭积木一样随意"装配"应用程序,组件对象就充当了积木的角色.所谓组件对象,实际上就是预定义好的.能完成一定功能的服务或接口.问题是,这些 ...
Delphi 多线程编程（1）
本文的内容取自万一博客,并重新加以整理,在此留存仅仅是方便自己学习和查阅.所有代码均亲自测试 delphi7下测试有效.图片均为自己制作. 多线程应该是编程工作者的基础技能, 但这个基础我从来没学过, ...
Delphi多线程编程基础入门
1. 概述对于开发人员来说,多线程是必备的知识,但相对来说,也是比较难的知识点.Delphi是一门古老而优秀的编程语言,它对多线程的处理有一些特殊的地方,本文尝试做一些简单的讲解,可以当作Delph ...
delphi摄像头编程
这里介绍使用 DELPHI 使用 MS 的 AVICAP32.DLL 就可轻松的实现对摄像头编程, 如果再加上你的网络编程水平,实现一个视屏聊天就不成什么问题了. 看看下面代码的代码: const W ...

delphi打印机编程

delphi打印机编程相关推荐

最新文章

热门文章