请选择 进入手机版 | 继续访问电脑版
  • 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi打印机设置

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
Delphi打印机设置2009-02-03 19:192009-02-03 15:37http://blog.sina.com.cn/s/blog_46666bf90100001f.html 分类:技术 
以下是来自Borland公司的完整例子。请注意其中两条判断语句,这说明有时候仅仅凭getprinters并不能保证信息的正确,还需要WIN.INI的帮助。
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;
FreeMem(pDevice,cchDeviceName);
FreeMem(pDriver,MAX_PATH);
FreeMem(pPort,MAX_PATH);
end;
end;

· 获取打印机队列的状态信息:
在有些情况下,需要获取打印机队列的状态信息,可以通过WindowsAPI函数ENumJobs来获取打印机队列的状态信息。
下面的程序片断对获取打印机队列的状态信息进行了说明。
(1)创建一个新工程;
(2)在窗体Form1中添加一个Button组件和一个Memo组件,进行相关属性的设置;
(3)添加Button1的OnClick事件。
procedure TForm1.Button1Click(Sender :TObject);
var
LPHandle : THandle;//打印机句柄
LPStrBuf : Array [0..256] of Char;//打印机名称
NoJobs : Word; //希望获取的作业数
s : LongWord; //Job_Info的字节数
Job_Info : Array [0..10] of JOB_INFO_1; //打印队列信息
cbNeeded : Cardinal;
cReturned : Cardinal; //返回的作业数
ret : LongBool;
I : integer;
begin
LPStrBuf := 'HPLaserJet';//指定打印机名
//打开打印机
if OpenPrinter() then
begin
MessageBox(Form1.Handle,'打开打印机失败。','信息',MB_OK);
Exit;
end;
s := SizeOf(Job_Info);
cbNeeded := 0;
cReturned := 0;
NoJobs := 10;
ret := ENumJobs(LPHandle,0,NoJobs,1,@Job_Info,s,cbNeeded,cReturn);
//显示打印队列信息
Memo1.Lines.Add('共有打印任务:' + InttoStr(cReturned) + '个。');
for I := 0 to cReturned -1 do
Memo1.Lines.Add('第' + IntToStr(I+1) + '个打印任务有' + IntToStr(Job_Info[I].TotalPages) + '页。');
end;
在进行测试的时候,应根据系统中安装的打印机设置LPStrBuf的数值,可以通过Windows系统的“控制面板”打开打印机管理器验证运行结果。

· 获取默认打印机的信息:
在Windows的Win.ini文件中有下面的一些配置信息:
[Windows]
load = 
run =
NullPort = None
device = HPLaserJetIII,HPPCL5MS,LPT1
.............
其中Windows节的device键中指明了当前系统中默认打印机的信息。可以通过WindowsAPI函数GetProfileString获取该信息。函数GetProfileString的原形如下:
DWORDGetProfileString(
LPCTSTRlpAppName, //指定节名的字符串
LPCTSTRlpKeyName, //指定键名的字符串
LPCTSTRlpDefault, //没有找到键名时返回的字符串
LPTSTRlpReturnedString, //在键名找到时返回的字符串
DWORDnSize //lpReturnedString的字节数
);
例子如下:
(1)创建一个新的工程;
(2)在窗体Form1上添加一个Button组件和一个Edit组件,进行相关属性设置;
(3)添加Button1的OnClick事件。
procedure TForm1.Button1Click(Sender : TObject);
var 
AppName : Array [0..256] of Char; //节名称字符串
KeyName : Array [0..256] of Char; //键名称字符串
DefaultString : Array [0..256] of Char; //在键名没找到时默认返回的字串
ReturnedString : Array [0..256] of Char; //在键名找到时返回的字串
begin
AppName := 'Windows';//节名称
KeyName := 'device'; //键名称
GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
Edit1.Text := ReturnedString;//显示结果
end;
以上测试可打开win.ini进行对照。 
 

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

上一篇:
matlab矩阵操作发布时间:2022-07-18
下一篇:
【转】MATLAB各种矩阵生成函数发布时间:2022-07-18
热门推荐
阅读排行榜
  • ** REJECT ** DO NOT USE THIS CANDIDATE NUMBER. ConsultIDs: none. Reason: This ca

    阅读:526|2022-09-23
  • Simple Task Scheduling System v1.0 was discovered to contain a SQL injection vul

    阅读:355|2022-09-18
  • Simple Task Scheduling System v1.0 was discovered to contain a SQL injection vul

    阅读:369|2022-09-18
  • Novel-Plus v3.6.2 was discovered to contain a hard-coded JWT key located in the

    阅读:369|2022-09-18
  • Novel-Plus v3.6.2 was discovered to contain an arbitrary file download vulnerabi

    阅读:365|2022-09-18
  • Simple Task Scheduling System v1.0 was discovered to contain a SQL injection vul

    阅读:291|2022-09-18
  • An issue was discovered in the Arm Mali GPU Kernel Driver. A non-privileged user

    阅读:415|2022-09-18
  • HashiCorp Boundary up to 0.10.1 did not properly perform data integrity checks t

    阅读:303|2022-09-18
  • In D-Link DIR-816 A2_v1.10CNB04.img a command injection vulnerability occurs in

    阅读:351|2022-09-18
  • D-Link DIR-816 A2_v1.10CNB04.img is vulnerable to Command Injection via /goform/

    阅读:323|2022-09-18

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap