在将 PJL 发送到打印机时,我正在努力从打印机获取信息。打印机支持 PJL,它是一个 USB 打印机。现在获取信息/示例似乎是一个问题,或者我正在寻找错误的地方。我知道在 MSDN 上有很多信息,但我已经尝试了所有的东西,从 docinfo 到写/读打印机,但似乎没有任何效果。
有人说可以使用 writeprinter 和 readprinter。我试过这个,当我写打印机时,打印机似乎在“做”一些事情,但读打印机返回或错误或空白。现在我认为这可能是因为打印驱动程序正在“锁定”端口,所以您无法从中读取信息?
我在某处看到的另一个选项是使用 writefile 和 readfile。在这里,您将获得打印机的物理端口部分,例如“\?\USB#VID_05CA&PID_0403#S5208603411#{28d78fad-5a12-11d1-ae5b-0000f803a8c2}”。然后将端口更改为“FILE”。使用带有路径的 writefile 和 readfile 作为上面的物理路径。获取您需要的信息,然后将端口设置回原始端口。这个也试过了,也报错。
我只是想做一个简单的@PJL INFO PAGECOUNT(我省略了转义字符等)。该字符串是正确的,因为在联网打印机上使用该字符串,它可以 100% 工作,我可以获得信息。但是本地打印机是个问题。
有没有人有这个工作或工作的例子?任何帮助将非常感激。
PS:以下是我尝试过的 100 个示例中的 1 个。这是 writeprinter 示例:
procedure TForm1.Button5Click(Sender: TObject);
Const
Defaults: TPrinterDefaults = (
pDatatype : Nil;
pDevMode : nil;
DesiredAccess : PRINTER_ACCESS_USE or PRINTER_ACCESS_ADMINISTER ) ;
Var
Device : array[0..255] of char;
FPrinterHandle:THandle;
DocInfo1: TDocInfo1;
Buffer, Buffer2:PChar;
Written, Len:Cardinal;
i: Integer;
sPath: String;
Begin
StrCopy(Device,PChar('RICOH Aficio SP 4210N PCL 6'));
OpenPrinter(@Device, FPrinterHandle, @Defaults);
DocInfo1.pDocName := 'test';
DocInfo1.pOutputFile := Nil;
DocInfo1.pDatatype := 'RAW';
StartDocPrinter(FPrinterHandle, 1, @DocInfo1);
StartPagePrinter(FPrinterHandle);
Buffer := #27+'%-12345X@PJL COMMENT'+#13+#10+'@PJL INFO PAGECOUNT'+#13+#10+#27+'%-12345X';
WritePrinter(FPrinterHandle,@Buffer,Length(Buffer), Written);
EndPagePrinter(FPrinterHandle);
EndDocPrinter(FPrinterHandle);
// everithing is OK here, BUT
ReadPrinter(FPrinterHandle, @Buffer2, Length(Buffer2), len );
end;