使用热敏打印机打印 base64 编码的打印命令时出错

Question

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

请在下面找到代码 sn-p ：

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. 我使用 Delphi 4。

Answer 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;