blocks|key|906938|text|大多数接受raw命令的打印机都需要一个前缀(起始字符序列)和后缀(结束字符序列)来包装每个命令。我不知道斑马的前缀和后缀是什么，但文档应该会告诉你。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|906939|只需添加一对常量来定义前缀和后缀，并在发送命令之前将它们添加到命令中。|906940|另一个问题可能是您正在从TMemo读取命令的内容，在Delphi2009和更高版本中，它包含Unicode字符串。然后将它们转换为PAnsiChar，这可能会截断内容。提前完成转换，方法是将cm定义为AnsiString，然后在类型转换传递给Escape函数之前首先(按照您的方式)对其赋值。为了说明这一点，我在我的代码中这样做了。|offset|length|style|CODE|906941|var
++cm:+AnsiString;
++p:+TPrinter;
++i:+integer;
const
++ZPrefix+=+AnsiString('$(');+++++//+Replace+values+for+each+of+these+with+what
++ZSuffix+=+AnsiString(')$');+++++//+your+documentation+says+you+should+use
begin
++p+:=+Printer;
++p.BeginDoc;++++
++for+i+:=+0+to+memo1.Lines.Count-2+do
++begin
++++cm+:=+ZPrefix+%2B+memo1.Lines[i]+%2B+ZSuffix;
++++if+Escape(p.Canvas.Handle,
++++++++++++++++PASSTHROUGH,
++++++++++++++++Length(cm),
++++++++++++++++PAnsiChar(cm),
++++++++++++++++nil)+=+0+then
++++++ShowMessage('Command+error:+'+%2B+IntToStr(GetLastError));
++end;
++p.EndDoc;
end;|code-block|syntax|javascript|906942|entityMap^0|0|0|C|5|1T|9|2N|2|2S|A|3D|6|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|S|8|@$F|T|G|U|H|I]|$F|V|G|W|H|I]|$F|X|G|Y|H|I]|$F|Z|G|10|H|I]|$F|11|G|12|H|I]]|9|@]|A|$]]|$1|J|3|K|5|L|7|13|8|@]|9|@]|A|$M|N]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$]]

Most printers that take raw commands require a prefix (starting sequence of characters) and suffix (ending sequence of chars) wrapping each command. I don't know what the prefix and suffix are for the Zebra, but the documentation should tell you.

Just add a pair of constants to define the prefix and suffix, and add them to your command before sending it. 

The other issue might be that you're reading the content of your commands from a <code>TMemo</code>, which in Delphi 2009 and higher contains Unicode strings. You're then casting them down to <code>PAnsiChar</code>, which may be truncating the content. Do the conversion ahead of time by defining <code>cm</code> as an <code>AnsiString</code>, and then assigning to it first (as you are) before typecasting to pass to the <code>Escape</code> function. I've done this in my code to illustrate it.

<pre><code>var
 cm: AnsiString;
 p: TPrinter;
 i: integer;
const
 ZPrefix = AnsiString('$('); // Replace values for each of these with what
 ZSuffix = AnsiString(')$'); // your documentation says you should use
begin
 p := Printer;
 p.BeginDoc; 
 for i := 0 to memo1.Lines.Count-2 do
 begin
 cm := ZPrefix + memo1.Lines[i] + ZSuffix;
 if Escape(p.Canvas.Handle,
 PASSTHROUGH,
 Length(cm),
 PAnsiChar(cm),
 nil) = 0 then
 ShowMessage('Command error: ' + IntToStr(GetLastError));
 end;
 p.EndDoc;
end;
</code></pre>

blocks|key|983697|text|我用php编程，它类似于C%2B%2B|type|unstyled|depth|inlineStyleRanges|entityRanges|data|983698|我可以把东西发送到打印机|983699|我的代码看起来像你的代码，唯一的问题是我不确定你的编程语言如何处理php中的换行符\n每行的末尾|983700|如果没有换行符，打印作业将不会打印|983701|如果“未发送”，则不会打印|983702|您的EPL看起来很好，应该可以打印出来|983703|斑马网站上的某个地方提供了下载，您可以将命令发送到通过USB数据线连接到您的计算机上的打印机。|983704|我认为它叫做Zebra+Setup+Utilities|983705|entityMap^0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|R|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|S|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|T|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|U|8|@]|9|@]|A|$]]|$1|H|3|I|5|6|7|V|8|@]|9|@]|A|$]]|$1|J|3|K|5|6|7|W|8|@]|9|@]|A|$]]|$1|L|3|M|5|6|7|X|8|@]|9|@]|A|$]]|$1|N|3|O|5|6|7|Y|8|@]|9|@]|A|$]]|$1|P|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|Q|$]]

I program in php which is like C 

I can send things to the printer just fine 

my code looks like your code the only thing is I am not sure how your programming language handles the newline in php it's \n at the end of each line

if the newline is not there the print job will not print

and if the " are not sent it will not print 

your EPL looks fine and should print 

there is somewhere on the zebra web site a download where you can send commands to a printer which is hooked up to your computer by USB cable 

think it is called Zebra Setup Utilities

I am trying to send commands directly to a Zebra TLP2844 printer. I followed the suggestion made <a href="https://stackoverflow.com/questions/16949683/sending-data-to-usb-printer-in-delphi">here</a> and my final code came to be as follows:

<pre><code>var
 cm: String;
 p: TPrinter;
 i: integer;
begin
 p := Printer;
 p.BeginDoc; 
 for i := 0 to memo1.Lines.Count-2 do
 begin
 cm := memo1.Lines[i];
 if Escape(p.Canvas.Handle,
 PASSTHROUGH,
 Length(cm),
 PAnsiChar(cm),
 nil) = 0 then
 ShowMessage('Command error: ' + IntToStr(GetLastError));
 end;
 p.EndDoc;
end;
</code></pre>

The content of memo1 is (first line is empty) as purposed <a href="http://nicholas.piasecki.name/blog/2009/03/sending-raw-epl2-directly-to-a-zebra-lp2844-via-c/" rel="nofollow noreferrer">here</a>:

<pre><code>N
q609
Q203,26
B26,26,0,UA0,2,2,152,B,"603679025109"
A253,26,0,3,1,1,N,"SKU 6205518 MFG 6354"
A253,56,0,3,1,1,N,"2XIST TROPICAL BEACH"
A253,86,0,3,1,1,N,"STRIPE SQUARE CUT TRUNK"
A253,116,0,3,1,1,N,"BRICK"
A253,146,0,3,1,1,N,"X-LARGE"
P1,1
</code></pre>

The commands don't seem to be properly received or interpreted by the printer. I checked that the printer is in Page Mode (EPL2), with the suggested code I am able to open the printer handle. But nothing is printed, only a new line of labels is feeded.

I tried to completely change the commands to something obviously wrong and the behaviour is the same.

What else should I be looking to get things printed?

Sending commands directly to Zebra EPL

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我正尝试将命令直接发送到Zebra TLP2844打印机。我遵循了的建议，我的最终代码如下：var  cm: String;  p: TPrinter;  i: integer;begin  p := Printer;  p.BeginDoc;      for i := 0 to memo1.Lines.Count-...

问直接向Zebra EPL发送命令
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问直接向Zebra EPL发送命令EN