如何控制打印机打印 RAW 文件
RAW文件是 word类型的像素块矩阵,如何控制打印机打印呢?
我这么操作后,打印任务是传到打印机里了,但是一直显示 “正在打印”,而没有东西出来
- Delphi(Pascal) code
if not OpenPrinter(PChar(PrinterName), Handle, nil) then begin ShowMessage('OpenPrinter Error ' + IntToStr(GetLastError)); Result:= 1; Exit; end; with DocInfo do begin pDocName := PChar('XGY Print Server'); pOutputFile := nil; pDataType := 'RAW'; end; if StartDocPrinter(Handle, 1, @DocInfo)=0 then begin ShowMessage('StartDocPrinter Error ' + IntToStr(GetLastError)); ClosePrinter(Handle); Result:= 1; Exit; end; if not StartPagePrinter(Handle) then begin ShowMessage('StartPagePrinter Error ' + IntToStr(GetLastError)); EndDocPrinter(Handle); ClosePrinter(Handle); Result:= 1; Exit; end; if not WritePrinter(Handle, lPixelBuf, lBufSize, N) then begin ShowMessage('WritePrinter Error ' + IntToStr(GetLastError)); Result:= 1; Exit; end; EndPagePrinter(Handle); EndDocPrinter(Handle); ClosePrinter(Handle);[解决办法]
我来顶顶先
没研究过