如何检测打印机是否联机并且可用？

[黑兵]

我用BCB做一个程序，构造了一个报表窗体，在XP下，在局域网内搜索出好多台共享的打印机，如果默认的打印机没有正常联机、连接或者不可用，那么程序一运行时就出现错误，查找默认打印机。
我的问题是，如何在程序首部，报表窗体创建前，我就能获得这些信息，如果打印机不可用，我就不创建报表窗体，如果可用，就正常运行。
急！！！

[lovebcb]

#include <printers.hpp>

TPrinter *p = Printer();
if( p == NULL)
{
ShowMessage("No Priner available!");
return;
}

[黑兵]

不行，判断不出来。再帮帮我，试试。谢谢大家。

[lovebcb]

try...catch...测试一下看看是否正常，如果不正常的话，就不创建报表了。
呵呵，我说了点儿废话，就算帮楼主顶一下了

[黑兵]

没有人知道么？

[黑兵]

说白了，我就是想知道：当前系统所连接（默认的）打印机到底可不可用。

[hwz_119]

Printers是专门用来控制打印机的，可是在没有安装打印机时，
却会提示I/O错误，所以必须有一个检测是否存在打印机的方法，我
试过很多方法，可是I/O错误总是比我的判断早出现，所以采用以下
的烂招来检测打印机。首先在uses增加Printers，再准备一个列表框
ComboBox1，其属性Visible设为FALSE，然后在打印之前执行下列语
句，那么就可以检测到是否存在打印机了：

procedure TForm1.ButtonClick(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Assign(Printer.Printers);
if ComboBox1.Items.CommaText=''
then Messagedlg('你需要安装打印机才能打印！',mtError,[mbOk],0);
else Form1.Print;
end;

[hwz_119]

//从并行端口读取打印机状态
function GetPrinterStatus:byte;
asm
MOV DX,$379;
IN AL,DX;
end;
//获取打印机是否出错
function CheckPrinter:boolean;
var
temp:byte;
begin
temp:=GetPrinterStatus;
Result:=not ( ((temp and $80)=0) //打印机忙
or ((temp and $20)<>0) //打印机缺纸
or ((temp and $10)=0) //打印机未联机
or ((temp and $08)=0) ); //打印机出错;
end;

[hwz_119]

上面的在98下可以，xp不可以，别的未测试

[insert2003]

栓测是否存在打印机：

先定义一函数：
Function hasprinter: boolean;
begin
if printer.Printers.count = 0 then
result := fasle;
else
result := true;
end;


调用：

if not hasprinter then
begin
showmessage('没有检测到打印机！');
exit;
end;

[JetKingLau]

VC 的代码

bool LptPrint(char prtdata[],int prtlen,int timeout)
{
HANDLE h;
DWORD n;
COMMTIMEOUTS t;
bool result;
h = CreateFile("lpt1", GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
if (h == INVALID_HANDLE_VALUE){
AfxMessageBox("Can not open lpt1");
return false;
}
t.ReadIntervalTimeout = 0;
t.ReadTotalTimeoutMultiplier = 0;
t.ReadTotalTimeoutConstant = 0;
t.WriteTotalTimeoutMultiplier = timeout * 1000 / prtlen;
t.WriteTotalTimeoutConstant = 0;
if (!SetCommTimeouts(h,&t)){
AfxMessageBox("SetCommTimeout error");
return false;
}
result = true;
if (!WriteFile(h,prtdata,prtlen,&n,NULL)){
AfxMessageBox("Print error");
result = false;
}
CloseHandle(h);
return result;
}

[JetKingLau]

TPrinter *p = Printer();
TStringList *list = new TStringList();
list->Assign(p->Printers);//重点是这句
...
//如果没有打印机，list->Count = 0
...
delete list;

[aiirii]

我覺得 JetKingLau 的方法可行!!!

[Chimae]

Ping打印机机器，返回数据包即可；

[黑兵]

能说得具体点么？谢谢大家了。这个问题一直困扰着我，我是用BCB的报表设计器创建的报表。很急啊。谢谢

[黑兵]

真地没有人会么？我很急的。为什么我用BCB自带的报表设计器设计的含报表的程序在当前打印机不可用的情况下就不能运行呢？谢谢大家啦。

[黑兵]

以上的方法我试了一下，出现的问题如下。
1.这些都是在程序运行以后才能做的，程序开始时不好用。我想让程序一开始运行时就检测。
2.在XP中，局域网，计算机能找到很多共享的打印机，但有时由于某台连接共享打印机的计算机没打开，而当前的计算机又是设定的该台打印机为共享打印机，怎么能判断出它是不可用的。

[黑兵]

以上的方法我试了一下，出现的问题如下。
1.这些都是在程序运行以后才能做的，程序开始时不好用。我想让程序一开始运行时就检测。
2.在XP中，局域网，计算机能找到很多共享的打印机，但有时由于某台连接共享打印机的计算机没打开，而当前的计算机又是设定的该台打印机为默认打印机，怎么能判断出它是不可用的。