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進行對照。
