检测打印纸的状态答案

【问题标题】：Detect the status of a printer paper检测打印纸的状态
【发布时间】：2012-04-01 08:49:33
【问题描述】：

我需要从打印机获取纸张状态信息。我有一个 esc/pos 命令列表。我正在尝试使用转义功能发送这些命令

http://msdn.microsoft.com/en-us/library/windows/desktop/dd162701%28v=vs.85%29.aspx

这是我的代码

type
TPrnBuffRec = record
  bufflength: Word;
  Buff_1: array[0..255] of Char;
end;

procedure TFTestStampa.SpeedButton2Click(Sender: TObject);
var
  Buff: TPrnBuffRec;
  BuffOut: TPrnBuffRec;
  TestInt: Integer;
  cmd : string;
begin
  printer.BeginDoc;

  try
    TestInt := PassThrough;
    if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TESTINT),
@testint, nil) > 0 then
      begin
        cmd := chr(10) + chr(04) + '4';
        StrPCopy(Buff.Buff_1, cmd);
        Buff.bufflength := StrLen(Buff.Buff_1);
        Escape(Printer.Canvas.Handle, Passthrough, 0, @buff,
@buffOut);

        ShowMessage( conver(strPas(buffOut.Buff_1)) );
      end

  finally
    printer.EndDoc;

end;


function TFTestStampa.Conver(s: string): String;
var
  i:  Byte;
  t : String;
begin
  t := '';
  for i := 1 to Length(s)  do
    t := t + IntToHex(Ord(s[i]), 2) + ' ';
  Result := t;
end;

问题在于不同的 cmds 我总是获得相同的字符串 .... 你能给我一个最后一个参数不是 nill 的转义函数的例子吗？获得纸张状态的替代方法？

【问题讨论】：

我的阅读是否正确？

标签： delphi printing

【解决方案1】：

我假设您使用的是上面的 Delphi 2009，并且您在示例中使用了 this source，因此您的问题可能是由 Unicode 参数引起的。在自 2009 版以来的 Delphi 中，string 类型定义为 UnicodeString，而在 Delphi 2009 下面定义为 AnsiString，同样代表 Char，即在 Delphi 2009 及以下版本中为 WideChar。

如果是这样，那么我认为您的缓冲区数据长度至少存在问题，因为Char = WideChar 占用 2 个字节，而您使用的是 StrLen 函数，该函数返回与数据大小不对应的字符数number of chars * 2 bytes.

我希望这能解决您的问题，但我无法验证，因为我没有您的打印机 :)

type
  TPrinterData = record
    DataLength: Word;
    Data: array [0..255] of AnsiChar; // let's use 1 byte long AnsiChar
end;

function Convert(const S: AnsiString): string;
var
  I: Integer; // 32-bit integer is more efficient than 8-bit byte type
  T: string;  // here we keep the native string data type
begin
  T := '';
  for I := 1 to Length(S) do
    T := T + IntToHex(Ord(S[I]), 2) + ' ';
  Result := T;
end;

procedure TFTestStampa.SpeedButton2Click(Sender: TObject);
var
  TestInt: Integer;
  Command: AnsiString;
  BufferIn: TPrinterData;
  BufferOut: TPrinterData;
begin
  Printer.BeginDoc;

  try
    TestInt := PASSTHROUGH;

    if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TestInt), @TestInt, nil) > 0 then
    begin
      Command := Chr(10) + Chr(04) + '4';
      StrPCopy(BufferIn.Data, Command);
      BufferIn.DataLength := StrLen(Command);
      FillChar(BufferOut.Data, Length(BufferOut.Data), #0);
      BufferOut.DataLength := 0;
      Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @BufferIn, @BufferOut);

      ShowMessage(Convert(StrPas(BufferOut.Data)));
    end

  finally
    Printer.EndDoc;
  end;
end;

【讨论】：