700字范文 > Delphi 打印机编程获取打印机设备名和端口名 Api函数

Delphi 打印机编程获取打印机设备名和端口名 Api函数

时间：2019-12-29 06:45:10

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;

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)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。

黑色头发:/

本内容不代表本网观点和政治立场，如有侵犯你的权益请联系我们处理。

网友评论

网友评论仅供其表达个人看法，并不表明网站立场。