CSDN论坛 > Delphi > VCL组件开发及应用

请教Delphi高手:如何编写一个打印机实时监控程序???? [问题点数:27分,结帖人QDZZQ]

Bbs1
本版专家分:27
结帖率 100%
CSDN今日推荐
Bbs3
本版专家分:608
Bbs1
本版专家分:27
Bbs3
本版专家分:608
Bbs1
本版专家分:27
Bbs1
本版专家分:27
Bbs1
本版专家分:75
Bbs4
本版专家分:1562
匿名用户不能发表回复!
其他相关推荐
Delphi打印机设置
Delphi打印机设置Delphi打印机设置2009-02-03 19:192009-02-03 15:37http://blog.sina.com.cn/s/blog_46666bf90100001f.html 分类:技术 以下是来自Borland公司的完整例子。请注意其中
delphi 实现虚拟打印, 远程集中打印
技术重点: 说白了就是利用已安装在电脑中的打开印驱动, 打印出Prn文件.再用Prn文件在其它地方相同驱动的打印机上打印. 1.从注册表(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers)中读出要监控的打印机的端口(Port)和设置(Attributes)保存备份. 2.在注册表(
获取打印机是否连机
也没什么好说的,主要是一直以为status返回的就是状态。应该先通过attributes判断是否是联机,否则status可能是无效的。坑爹的是status里有一个PRINTER_STATUS_OFFLINE。。。看起来应该可以返回脱机状态。这可能各个驱动的实现细节不一致(未证实)。而attributes里的属性目前的打印机都能检测是到否脱机。 DWORD GetPrinterStatus(LP...
如何使用 SetPrinter 修改打印机设置
SetPrinter 是新 API for Windows 95、 Windows NT、 Windows 2000 和 Windows XP,允许应用程序更改各种打印机属性。 但是,如本文中的代码所示某些量准备为正确调用 SetPrinter 所需。 SetPrinter() 参数如下: Printer 第一个参数是其设置为要更改的打印机句柄。 这应获取 OpenPrinter() 。
调用蓝牙打印机示例源代码
C++ Builder XE7 调用蓝牙打印机示例源代码
Delphi下使用并口控制打印机的方法
Delphi下使用并口控制打印机的方法 使用Delphi编程的人员如果需要在Windows下使用并口打印机逐行打印,而又不想使用Windows的驱动程序。我们这里提供一种不需要任何外来的元件的方法。 Var F:TextFile; Str:string; Begin try Str:=’ 欢迎使用票据打印机!’+Chr(10); A
Delphi 10 Seattle小票打印控件 增强版TQ_Print_V2.0
TQ_Print控件,是一个为方便需要控制打印命令而设计的跨平台专用控件,已包含标准ESC/POS打印控制的基本指令在内(这些基本指令已能很好的满足多数项目使用)。在新版控件中,增加了条码、二维码与图片打印功能。因各打印机控制码不同,某些打印机中可能无法完成控制。 TQ_Print控件让开发人员在开发跨平台项目相关打印控制时更加方便快捷。控件支持Android、iOS以及WIN32/64的开发,可控制兼容ESC/POS的小票打印机。目前控件已在多个Android、iOS项目中配合蓝牙小票打印机使用。
请教高手关于delphi中的一个问题
首先我是用delphi写了一个dll ,导出一个函数,然后delphi写的程序中调用这个导出的函数,通过pchar类型,通过函数传参数得到返回值。但是传出来的总是乱码?   dll中函数是这样写的: 声明: function checkdll(temp1 : string; temp2:pchar  ):Integer  ; 实现 function checkdll; const ti
向高手请教一个delphi 数据操作的问题!!!
各位同仁!    偶是学deopi的一个新手,在学习程序的过程中碰到一个问题 ,代码如下:procedure TExcSql.AddDelModData(SQL:String);begin    Try     AdoQuery.close;    Adoquery.SQL .Clear;    ADOQuery.SQL.ADD(SQL);    AdoQuery.
Delphi调用打印机的ZPL指令来打印数据
一、如果是并口打印机这样,可直接以打印机为本地文件操作。 代码如下: procedure TDSaleBillDetailForm.YRButton1Click(Sender: TObject);var  F :Textfile;begin   AssignFile(F, LPT1);  try    ReWrite(F);    Write(F, ch
关闭
关闭