**帮忙解释一下这个delphi过程

来源:百度知道 编辑:UC知道 时间:2024/07/08 01:48:52
procedure TFrmMsComm.OpenPrnComm;
begin
if not PRNExist then exit;
try
//并行口
PRNHwnd:=CreateFile(
Pchar(PrnIslPort),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_FLAG_OVERLAPPED,
0);
if PRNHwnd=INVALID_HANDLE_VALUE then
Exception.Create('无效并行口');
PrnIgnored:=false;
except
on E:Exception do
SaveMsg('**********票据打印机打开串口出错:'+E.Message+'**********');
end;
end;

在下不才,为加分说两句:

用CreateFile打开并行口设备(windows的所有设备逻辑上都是文件),获取读写权限。

如果CreateFile 函数返回句柄值为null,证明没打开.并且捕获这个错误,以一个对话框的形式通知用户错误原因