0

我有一个接收打印命令并对其进行解码的应用程序。我将打印命令保存在文本文件中。然后在字节数组中读取它。解码后的字符串还包含显示为垃圾字符的图像部分。当我尝试使用WritePrinter函数将字节数组发送到打印机时，它返回 False。我试图检查返回的错误代码是1784，但找不到有关此错误代码的任何信息以及它可能发生的原因。

请在下面的代码片段中找到：

AssignFile (decodedfile, st_path + '\Sample.txt');
reset(decodedfile);
SetLength(buffer, FileSize(decodedfile));
For i := 1 to FileSize(decodedfile) do
    Read(decodedfile, buffer[i - 1]);
CloseFile(decodedfile);
DocInfo.pDocName := pChar('Direct to Printer');
DocInfo.pOutput := Nil;
DocInfo.pDatatype := pChar('RAW');
PrinterName := cmbPrinters.Text;;
if not WinSpool.OpenPrinter(pChar(PrinterName), hPrinter, nil) then begin
   raise exception.create('Printer not found');
end;
If StartDocPrinter(hPrinter, 1, @DocInfo) = 0 then
    Abort;
try
    If not StartPagePrinter(hPrinter) then
        Abort;
    try
        If not WritePrinter(hPrinter, @buffer, Length(buffer), BytesWritten) then begin
            dError := GetLastError;
            ShowMessage(InttoStr(dError));
            Abort;
        end;
    finally
        EndPagePrinter(hPrinter);
    end;
finally
    EndDocPrinter(hPrinter);
end;
WinSpool.ClosePrinter(hPrinter);

如果有人遇到过类似的问题，请告诉我是否遗漏了什么。

笔记：

  1. 我已经验证在解码输入打印命令时没有错误。
  2. 我使用德尔福 4。
4

1 回答 1

1

它看起来像buffer一个动态数组。如果您将变量的声明包含在其余代码中，那将会非常有帮助。但是，我有理由相信它的类型是

buffer: array of Byte;

但是你传递@buffer给WritePrinter. 那是指向数组第一个字节的指针的地址。

您只需将指针传递给第一个字节。像这样：

WritePrinter(..., Pointer(buffer), ...);

顺便说一句，您加载文件的方式有点过时。TMemoryStream创建一个并调用它可能会更简单LoadFromFile。

stream := TMemoryStream.Create;
try
  stream.LoadFromFile(filename);
  ....
  if not WritePrinter(..., stream.Memory, stream.Size, ...) then
    ....
finally
  stream.Free;
end;
于 2012-05-15T12:34:20.943 回答