- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在努力购买 Epson“ESC/POS”打印机来打印条形码(使用 Delphi),并想测试打印机是否有故障。你知道在哪里可以找到在“ESC/POS”中打印条形码的程序吗?我想作为最后的手段,OPOS 程序也可以。
此外,一个可以运行的演示 Delphi 程序也可以。到目前为止我拥有的所有 Delphi 代码片段都不起作用。
我使用的打印机是 Epson TM-L60II
最佳答案
我有一个用 Delphi 5 为 TMT88 编写的完整测试程序,但这里的源代码有点大,所以这里是条形码位
请注意,由于其来自完整对象的片段,某些变量/函数可能会丢失
获取条形码字符
{**
* @param a ean13 barcode numeric value
* @return the escpos code for the barcode print
* Description uses escpos code, return code needed to print a ean13 barcode
*}
function TPrintEscPosToPort.getBarcodeEscPosCode(l_ean13:String):String;
var
l_return:String;
begin
l_return := CHR(29) + 'k' + CHR(67) + CHR(12);
l_return := l_return + l_ean13; // Print bar code
l_return := l_return + l_ean13; // Print bar code number under thge barcode
Result := l_return
end;
打印到打印机
{**
* @param Printer Name, Item be printed, Cut the papers after the cut, #no of copies to print
* @return boolen, true if it printed
* Description prints a test page to the tysso printer
*}
function TPrintEscPosToPort.escPosPrint(const l_printer, l_textToPrint :String;l_cutPaper:Boolean=true;l_copies:integer=1): Boolean;
var
l_pPort,l_pName,l_tmp:String;
i,x:integer;
PrinterFile: TextFile;
begin
// set result to false so any thing other then a good print will be false
Result:= FALSE;
try
//Find if the printer exists, else set to defult -1
i := Printer.Printers.IndexOf(l_printer);
if (i > -1) then
begin
Printer.PrinterIndex := i;
l_pName := Printer.Printers[i]; //Get the printer name (incase its the defult and not the one passed)
l_pPort := Self.getPrinterPort(l_pName) ; // get the port name from the reg
end;
// If true add headers and footers to the passed text
if (Self.aPrintHeadersFooters) then
begin
l_tmp := Self.getHeader()
+ l_textToPrint + Self.GetFooter();
end
else
begin
l_tmp := l_textToPrint;
end;
//Send the Document To the printer
try
for x:= 1 to l_copies do //Print multi-copies
Begin
//Assign the file to a tmp file in the printer port
if (length(trim(l_pPort)) > 0) then AssignFile(PrinterFile,l_pPort)
else
begin
//only use if we cant get the port
//(may look bad as ctrl codes are still in place)
AssignPrn(PrinterFile);
l_tmp := Self.stripEscPos(l_tmp);
end;
Rewrite(PrinterFile);
try
//Send the passed Text to the printer
WriteLn(PrinterFile,l_tmp);
if (Self.aPrinterReset) then
WriteLn(PrinterFile,escReset); // Reset the printer alignment
if (l_cutPaper) then
WriteLn(PrinterFile,escFeedAndCut); //Cut the paper if needed
finally
CloseFile(PrinterFile);
Result:= true;
end;
end;
except
end;
except
end;
end;
更新
这是上面代码中的失控代码常量,希望这些名称具有足够的描述性。
const
escNewLine = chr(10); // New line (LF line feed)
escUnerlineOn = chr(27) + chr(45) + chr(1); // Unerline On
escUnerlineOnx2 = chr(27) + chr(45) + chr(2); // Unerline On x 2
escUnerlineOff = chr(27) + chr(45) + chr(0); // Unerline Off
escBoldOn = chr(27) + chr(69) + chr(1); // Bold On
escBoldOff = chr(27) + chr(69) + chr(0); // Bold Off
escNegativeOn = chr(29) + chr(66) + chr(1); // White On Black On'
escNegativeOff = chr(29) + chr(66) + chr(0); // White On Black Off
esc8CpiOn = chr(29) + chr(33) + chr(16); // Font Size x2 On
esc8CpiOff = chr(29) + chr(33) + chr(0); // Font Size x2 Off
esc16Cpi = chr(27) + chr(77) + chr(48); // Font A - Normal Font
esc20Cpi = chr(27) + chr(77) + chr(49); // Font B - Small Font
escReset = chr(27) + chr(64); //chr(27) + chr(77) + chr(48); // Reset Printer
escFeedAndCut = chr(29) + chr(86) + chr(65); // Partial Cut and feed
escAlignLeft = chr(27) + chr(97) + chr(48); // Align Text to the Left
escAlignCenter = chr(27) + chr(97) + chr(49); // Align Text to the Center
escAlignRight = chr(27) + chr(97) + chr(50); // Align Text to the Right
关于delphi - 在哪里可以找到 "ESC/POS"Epson 条码测试程序?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/308588/
我想通过 Python 控制 Epson 打印机。该打印机相当新(最近 2 年),因此规范说明其语言是 ESC/P R。这与 ESC/P 兼容吗?维基百科文章称 ESC/P R 是打印机语言的较新变体
我想用 ESC POS 命令 ESC* 打印位图标志文件。 以下是该命令的技术文档链接。 https://reference.epson-biz.com/modules/ref_escpos/inde
我有一个模式对话框 div,设置为当用户按 ESC 时关闭,如下所示: //close modal when pressing Esc document.addEventListener('keyup
想象两种常见情况的结合:一个 JDialog(或 JFrame)在 VK_ESCAPE(设置为根 Pane 上的键绑定(bind))上关闭,一个内部 JPopupMenu 也应该在 ESC 上关闭。问
关闭。这个问题需要多问focused 。目前不接受答案。 想要改进此问题吗?更新问题,使其仅关注一个问题 editing this post . 已关闭5 年前。 Improve this quest
我正在尝试抑制任务切换键(例如 winkey、alt+tab、alt +esc、ctrl+esc 等)通过使用低级键盘钩子(Hook)。 我正在使用以下 LowLevelKeyboardProc 回调
我得到了一个 .txt 文件供我解析以提取某些信息,我并不是真的想编写扫描仪来执行此操作。它对我来说类似于 ANSI,可能还添加了一些内容。我不知道。它是一些使用多年的硬件的自动输出。这里还有一些只是
谁能告诉我如何使用 C# 禁用任务切换键 最佳答案 我有完整的代码来禁用 Windows 键 , Alt + Tab 等等.. 现在我提供以下代码供其他人引用: /* Code to Disa
我需要在打印收据上打印非英文字符,请使用热敏 POS 收据打印机。 Xprinter XP-58III 热敏 POS 收据打印机支持通用 ESC/POS 命令。 据我所知,这应该通过设置字符代码表来完
我已经添加了按键监听器,但这不起作用。当“click”的监听器被调用时 - 工作完美。 这是代码: var closeSave = document.getElementById("closeSave
我正在开发一个巨大的应用程序,它使用一些子菜单、模式窗口、提示等。 现在,我想知道在此类应用程序中处理 Esc 和单击外部事件的正确方法。 $(document).keyup(function(e)
我想让 Esc 键撤消文本框获得焦点后的任何更改。 我有文本,但似乎无法弄清楚如何捕获 Esc 键。 KeyUp 和 KeyPressed 似乎都没有得到它。 最佳答案 这应该有效。你是如何处理这个事
将 Android Studio 从 1.5 升级到 2.0 后,模拟器(现在版本为 25.1.1,我在其上配置了模拟硬件键盘)不再将 [Esc] 键识别为等同于 [Back] 按钮。 如何恢复这个有
此代码不会隐藏当我按 Esc 键时本应隐藏的框 div。 function Boxup(elementN, event){ $("#"+elementN).css({ "dis
我在网上找到了一个代码,它可以帮助我使用 ESC 按钮关闭弹出对话框。代码如下: function ESCclose(evt) { if (evt.keyCode == 27) wind
我有一个控制台应用程序可以提示用户进行多项输入。我希望用户能够在任何提示取消操作后按 Esc 键。 类似于: if (Console.ReadKey().Key != ConsoleKey.Escap
使用 Esc/Pos,我想将位图图像上传到打印机上的 NV 显存。 我正在使用 GS ( L / GS 8 L Esc/Pos 手册。 我可以使用 和 删除所有或一个图形。 我知道在将位图添加到函数
我在使用转义字符打印 ITF 条码时遇到问题。我有一个使用 Pos for .NET 的 .NET 应用程序,但我无法使用“PrintBarCode”方法。我的代码如下所示: public stati
我对 Objective C 上的 ESC POS 编程非常陌生。我已经用普通的 ESC pos 行命令测试了打印机,它运行良好。但是我无法理解光栅模式命令。 (GS v 0) 我只需要使用 ESC
东芝Toshiba笔记本电脑开机进入BIOS的方法 东芝笔记本电脑的BIOS一般可分为3种,在Tecra/Portege/Satellite Pro 3个系列的笔记本电脑上使用的是To
我是一名优秀的程序员,十分优秀!