做餐饮系统,有打印功能,通过设置名称,ip,端口号,如何操作佳博热敏打印机(80xx系列)

smkf225 2019-07-29 05:55:25
做餐饮系统,有打印功能,通过设置名称,ip,端口号,如何操作佳博热敏打印机(80xx系列)
...全文
428 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
smkf225 2019-08-01
  • 打赏
  • 举报
回复




[dcc32 Warning] Unit1.pas(37): W1044 Suspicious typecast of string to PAnsiChar
[dcc32 Error] Unit1.pas(37): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'


没有办法转换。 dll里面也是Char
smkf225 2019-08-01
  • 打赏
  • 举报
回复
感谢你!我以为第三方写的Pos_Open 不能随便乱改。感谢各位!
  • 打赏
  • 举报
回复
是让你把
function POS_Open(pszPortName: PChar; nComBaudrate: integer; nComDataBits: integer; nComStopBits: integer; nComParity: Integer; nComFlowControl: Integer): Integer; stdcall; external 'POSDLL.dll';
声明中的PChar换成PAnsiChar
另外,用到的string也应该换成AnsiString
p47655255 2019-07-31
  • 打赏
  • 举报
回复
PChar 换 PAnsiChar
smkf225 2019-07-31
  • 打赏
  • 举报
回复
感谢你的回答!我找官网打了一个demo。
我截取部份代码。
发现D7运行,可以显示打开成功。
D10.2运行,却是失败。能帮忙看看吗?


function POS_Open(pszPortName: PChar; nComBaudrate: integer; nComDataBits: integer; nComStopBits: integer; nComParity: Integer; nComFlowControl: Integer): Integer; stdcall; external 'POSDLL.dll';
p47655255 2019-07-31
  • 打赏
  • 举报
回复
with IdTCPClient do
begin
Host := 打印机ip;
Port := 打印机端口;
try
Connect(30);
if Connected then
begin
Writeln(要发送的命令);

end
except

end;

end;
smkf225 2019-07-30
  • 打赏
  • 举报
回复
能帮忙写个吗?谢谢
p47655255 2019-07-30
  • 打赏
  • 举报
回复
就是普通的socket请求, 安装文档发命令就行了

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧