1

我在这里有一个问题，我正在尝试将磁条数据编码到 Fargo DTC400 打印机，在规范中它说我需要从示例记事本、写字板等发送以下字符串命令：

~1%TRACK NUMBER ONE?
~2;123456789?
~3;123456789?

此示例对音轨 1 中的字符串以及音轨 2 和 3 中的数字 123456789 进行编码。这适用于 Notepad.exe。

编辑： 我使用的当前德尔福代码适用于另一台打印机：

procedure SendQuote(MyCommand : AnsiString);
var
  PTBlock       : TPassThrough;

begin
  PTBlock.nLen := Length(MyCommand);
  StrPCopy(@PTBlock.SData, MyCommand);
  Escape(printer.handle, PASSTHROUGH, 0, @PTBlock, nil);
end;

当我试图从我自己的应用程序中编码这个字符串时，我遇到了麻烦，似乎打印机完全忽略了我的命令，当我选择打印到文件时，我可以读取二进制数据并在打印文件中看到我的字符串，当我尝试从示例notepad.exe打印到文件我只得到rubish二进制数据并且根本找不到我的字符串......

所以我想知道记事本如何发送我不发送的这个字符串命令？

希望有人能对此有所了解，因为我一直渴望在我的应用程序中实现对 Fargo 的支持很长一段时间。

谢谢

更新。 下面的代码是古老的，但它可以完成工作，但是有没有另一种方法可以将它与上面的 Passthrough 代码一起使用？

var
  POutput: TextFile;
  k: Integer;
begin
  with TPrintDialog.Create(self) do
  try
    if Execute then
    begin
      AssignPrn(POutput);
      Rewrite(POutput);

      Writeln(POutput,'~1%TESTENCODER?');
      Writeln(POutput,'~2;123456789?');
      Writeln(POutput,'~2;987654321?');
      CloseFile(POutput);
    end;
  finally
    free;
  end
end;
4

1 回答 1

4

TPassThrough 应该这样声明：

type 
  TPassThrough = packed record 
    nLen  : SmallInt; 
    SData : Array[0..255] of AnsiChar; 
  end;

您可能正在使用现代 Delphi（2009 或更新版本）或忘记了打包指令。

另请参阅此 SO question 以了解正确的方式发送命令直接到打印机。

在Torry's有一个示例代码段（由 Fatih Ölçer 编写）： 备注：修改后也可用于 Unicode Delphi 版本。

{
  By using the Windows API Escape() function,
  your application can pass data directly to the printer.
  If the printer driver supports the PASSTHROUGH printer escape,
  you can use the Escape() function and the PASSTHROUGH printer escape
  to send native printer language codes to the printer driver.
  If the printer driver does not support the PASSTHROUGH printer escape,
  you must use the DeviceCapabilities() and ExtDevMode() functions instead.


  Mit der Windows API Funktion Escape() kann man Daten direkt zum Drucker schicken.
  Wenn der Drucker Treiber dies nicht unterstützt, müssen die DeviceCapabilities()
  und ExtDevMode() Funktionen verwendet werden.
}

//  DOS like printing using Passthrough command
// you should use "printer.begindoc" and "printer.enddoc"

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

function DirectToPrinter(S: AnsiString; NextLine: Boolean): Boolean;
var 
  Buff: TPrnBuffRec;
  TestInt: Integer;
begin
  TestInt := PassThrough;
  if Escape(Printer.Handle, QUERYESCSUPPORT, SizeOf(TESTINT), @testint, nil) > 0 then
  begin
    if NextLine then  S := S + #13 + #10;
    StrPCopy(Buff.Buff_1, S);
    Buff.bufflength := StrLen(Buff.Buff_1);
    Escape(Printer.Canvas.Handle, Passthrough, 0, @buff, nil);
    Result := True;
  end
  else
    Result := False;
end;

// this code works if the printer supports escape commands
// you can get special esc codes from printer's manual

//  example:
printer.BeginDoc;
try
  DirectToPrinter('This text ');
finally
  printer.EndDoc;
end;
于 2012-03-21T21:26:21.140 回答