请教如何使用Delphi 7 语言生成、打印二维码？谢谢高手-CSDN论坛

论坛帮助

CSDN论坛 > Delphi > 语言基础/算法/系统设计

请教如何使用Delphi 7 语言生成、打印二维码？谢谢高手 [问题点数：50分]

⋅delphi 7中使用Rave 报表的问题 ⋅最近计划用Delphi做一个系统 ⋅请教如何使用Delphi 7 语言生成、打印二维码？谢谢高手 更多帖子 关注空间博客 宿涛 本版专家分：0 结帖率 33.33%: 如题，感谢各位高手的大力支持！

0 2018-06-07 10:32:42

回复数 4 只看楼主引用举报楼主

⋅谁有kylix3，能共享一下给我吗？ ⋅有没有人弄过XE连接蓝牙4.0或者是BLE4.0也行 ⋅手机安卓怎么监听蓝牙COM口上的数据 更多帖子 关注空间博客 doloopcn 本版专家分：6097: 论坛上有现成的QR二维码资源，自己找找吧

0 2018-06-07 11:18:27

只看TA 引用举报 #1 得分 0

热敏打印机数据截取+追加打印二维码目前市场上出现新的需求，就是通过在收银机和小票打印机中间添加硬件的方式，采集每一张小票的信息，并且追加打印二维码。往往应用在商超，购物中心，景点娱乐，金融监控等方面，这种方式最大的优点是不需要在收银机上安装任何软件或者修改收银机设置，收银员也不需要任何操作，即插即用。数贝通（TB有售）正是这样的产品。数贝通是一个硬件小票采集器，可以兼容USB、并口、串口、网口的小票打印机，高效，精准识别每一张需要

⋅SQLSERVER 查询字符串截取, 查询结果合并 ⋅MSSQL 如何统计单位的子级单位中项的数量 ⋅MSSQL 用脚本同时创建多表, 出错时如何全部回滚 更多帖子 关注空间博客 道玄希言 本版专家分：3283 黄花 2015年10月 MS-SQL Server大版内专家分月排行榜第二 2015年8月其他数据库开发大版内专家分月排行榜第二 2015年7月其他数据库开发大版内专家分月排行榜第二 蓝花 2015年9月其他数据库开发大版内专家分月排行榜第三 2015年7月 MS-SQL Server大版内专家分月排行榜第三 2015年6月其他数据库开发大版内专家分月排行榜第三: https://download.csdn.net/download/yangb0803/8303553

我有个资源, 应该能满足你的要求. 不过里面是日文的注释

0 2018-06-09 10:25:30

只看TA 引用举报 #2 得分 0

delphI 打印二维码Fastreport delphI Fastreport打印二维码，可支持打印PDF417，QRCODE，DATAmatrix!直接安装就可以使用了，非常方便

⋅2019年新年快乐万事如意码家接分 ⋅XML 空节点保持开始与结束符号完整 ⋅Delphi Dll封闭Form 嵌入TabSheet中，失去焦点 更多帖子 关注空间博客 lyhoo163 本版专家分：50585 红花 2018年11月 Delphi大版内专家分月排行榜第一 2018年5月 Delphi大版内专家分月排行榜第一 2018年2月 Delphi大版内专家分月排行榜第一 2018年1月 Delphi大版内专家分月排行榜第一 2017年12月 Delphi大版内专家分月排行榜第一 2017年8月 Delphi大版内专家分月排行榜第一 2017年7月 Delphi大版内专家分月排行榜第一 2017年5月 Delphi大版内专家分月排行榜第一 2017年3月 Delphi大版内专家分月排行榜第一 2017年2月 Delphi大版内专家分月排行榜第一 2016年12月 Delphi大版内专家分月排行榜第一 2016年11月 Delphi大版内专家分月排行榜第一 2016年10月 Delphi大版内专家分月排行榜第一 2016年9月 Delphi大版内专家分月排行榜第一 2016年8月 Delphi大版内专家分月排行榜第一 2016年7月 Delphi大版内专家分月排行榜第一 2016年6月 Delphi大版内专家分月排行榜第一 2016年5月 Delphi大版内专家分月排行榜第一 2016年4月 Delphi大版内专家分月排行榜第一 2016年3月 Delphi大版内专家分月排行榜第一 2016年2月 Delphi大版内专家分月排行榜第一 2016年1月 Delphi大版内专家分月排行榜第一 2015年12月 Delphi大版内专家分月排行榜第一 2015年11月 Delphi大版内专家分月排行榜第一 2015年10月 Delphi大版内专家分月排行榜第一 2015年9月 Delphi大版内专家分月排行榜第一 2015年8月 Delphi大版内专家分月排行榜第一 2015年7月 Delphi大版内专家分月排行榜第一 2015年6月 Delphi大版内专家分月排行榜第一 2015年5月 Delphi大版内专家分月排行榜第一 2015年4月 Delphi大版内专家分月排行榜第一 2015年3月 Delphi大版内专家分月排行榜第一 2015年2月 Delphi大版内专家分月排行榜第一 2015年1月 Delphi大版内专家分月排行榜第一 2014年12月 Delphi大版内专家分月排行榜第一 2014年11月 Delphi大版内专家分月排行榜第一 黄花 2017年11月 Delphi大版内专家分月排行榜第二 2017年4月 Delphi大版内专家分月排行榜第二 2017年1月 Delphi大版内专家分月排行榜第二 2014年10月 Delphi大版内专家分月排行榜第二 2014年9月 Delphi大版内专家分月排行榜第二: 建议使用国产的“锐浪”打印控件。有二维码打印控件。

0 2018-06-09 17:25:19

只看TA 引用举报 #3 得分 0

delphi打印二维码用delphi打印二维码，并用RM报表输出

Jose158162 本版专家分：0: 我有一个打印二维码的实例，给邮箱号我

0 2018-06-26 16:48:19

只看TA 引用举报 #4 得分 0

Delphi二维码、分组、批量打印笔记和例程没有分的请发邮件给我：jacdfb@163.com,qq:505689211 一直也没接触到什么复杂的报表，都是一些简单的报表，在DelphI下使用QuickReport一般也就能满足需要了，由于公司

收藏帖子

delphi fastreport4 打印二维码 条形码: 二维码生成 fastreport应用

使用delphi语言生成的dll: 通过delphi生成的dll，其中一个方法返回一个single类型的数组。再通过JNA使用。但是在编写dll时，不知道怎么返回数组，网上的资源也不够详细。如果使用结构体，在java IDE上会报错，不支持的类型。之前没有学习过delphi，希望大家帮助一下。[code=delphi]usesrn System.SysUtils,rn System.Classes;rnrn$R *.resrntypern TArr2 = array[0..3] of single;rn PArr2 = ^TArr2;rnFunction MyFunc(s:single):array[0..3] of single;rn var arr:array[0..3] of single;rnbeginrn//new(arr);rn arr[0]:=s;rn arr[1]:=s;rn arr[2]:=s;rn arr[3]:=s;rn Result:= arr;rn// dispose(arr);rnend;rnexportsrn MyFunc;rnbeginrnend.[/code]

C语言生成二维码驱动: 本二维码驱动使用方法见http://blog.csdn.net/qq_21475601/article/details/71480028

请教Delphi打印高手。。: 是关于DevMOde结构与printer对象属性： rn如下代码：rn var curOrientation: integer;rnrn cbPrinters.items.assign(Printer.Printers);rnrn Printer.PrinterIndex:=Printer.PrinterIndex;rn Printer.GetPrinter(Device, Driver, Port, DMode);rn if hDMode <> 0 thenrn beginrn pDMode := GlobalLock(hDMode);rn if pDMode <> nil thenrn beginrn curOrientation:=pDMode^.dmOrientation;rn GlobalUnlock(hDMode);rn end;rn rn showMessage(inttostr(curOrientation)); // =1rn showMessage(intTostr(integer(Printer.orientation))); // =0rnrn发现 dmOrientation 与 Printer.orientation的值不同。这两个值不是当有打印机的打印方向值吗？rn我的目的是：自定义一个打印设置对话框，用当前所选的打印机的打印方向值填充窗体，请问各位朋友应如何做？？？rnrnrn

delphi:斑马打印机ZPL指令打印中文及二维码，补充说明: 由于个人水平有限，修正一下上一篇文章中的一些错误和改进一、图片对齐的方法，最简单的莫过于下面这种了 newWidth = (bmp.width +7) div 8; 用这条语句可以保持图片没对齐的数据完整性二、qrcode的对齐方法，经仔细研究，发现可以使用FT的相对布局指令来调整位置，完全不受限制三、提高打印效率的方法：如果条码上面很多中文，生成的ZP

打印二维码命令: 前言正确的ESC指令下QRCode打印流程为四步： 1、设定QRCode大小；（可以省略） 2、设定纠错等级；（一般无需设定，忽略） 3、将QRCode对应的文字信息存入打印机缓存中；（必须要有） 4、发送打印QRCode命令。一共有四个命令对应上述四步。 I、设置大小 [command addQRCodeSizewithpL:(content.length+3) withp...

二维码打印程序(BarTender 7.10): 装好BarTender7.10 可直接使用，代码未封装，嗯，就这样了

Delphi 实现二维码打印: delphi中，实现Fastreport二维码打印功能

delphi 二维码形成并打印: delphi 二维码形成并打印，源代码。

delphi 打印二维码: PDF417码有长度短,破损都可以扫描等优点.最近做项目需要用到二维码PDF417码,使用rb报表直接打印,不显示预览框.找了很久,这些资料都比较难找到.现在共享给位,希望有所帮助.delphi7,rbserver7下调试成功.

C#如何打印二维码: c#如何打印二维码，用到什么dll，最好有简单清晰的源码，谢谢诶！

如何使用java调用bartender打印二维码: 使用就JAVA代码去调用bartender打印一个二维码,代码应该怎么写,是不是生成一个批处理文件在调用呢

delphi 7打印不了的问题: 程序代码：rnprocedure TForm1.Button2Click(Sender: TObject);rnrnbeginrnif PrintDialog1.Execute thenrn beginrn Printer.BeginDoc;rn printer.Canvas.rectangle(0,0,100,100);rn Printer.EndDoc;rn end;rnend;rnend.rn编译能通过可是按了按钮后选者打印机却出现打印到文件的输入框，给输入框输入名字后却不是打印而是在程序的文件夹下面生成一个什么软件都不能打开的文件，郁闷，Printer.BeginDoc;这句好象是引起的，我电脑的环境是WINDOW XP +DELPHI 7.0

使用C语言生成bitmap: C语言 bitmap 画图

请教delphi高手，关于打印的问题。: 各位高手，我分不多，请多多包涵！rn我想把打印服务器上的打印历史记录保存下来。

delphi 7 使用问题: 打开工程文件时，弹出一个出错窗口，显示“Access violation at address 00509370 in module 'coreide70.bpl'.Read of address 00000008. ”。我重装了好几次delphi 7 还是不行，请问这是怎么回事？

请教高手.....,好象跟我的delphi打印有关: 程序报错，Exception Eprint in module Project1.exe at 0002E3E2 Printer selected is not valid；在别人的机子上运行的好好的。是不是Delphi那里设置的有问题。操作系统win2k。

Java使用Zxing打印二维码: Java使用Zxing打印二维码，zxing2.0架包，完整的一个例子...

C#使用DataMatrix.net打印二维码: ---------使用DataMatrix.net库进行标签打印的示例代码

打印二维码: rbserver Delphi打印二维码,PDF417码有长度短,破损都可以扫描等优点.最近做项目需要用到二维码PDF417码,使用rb报表直接打印,不显示预览框.找了很久,这些资料都比较难找到.在delphi7,rbserver7下调试成功。

二维码打印: 配置内容连接打印机 打印二维码

水晶报表打印问题，请教高手，谢谢！: 我在水晶报表设计时设定了横打，为什么打印的时候，还要重新设置打印横打？

请教delphi的打印问题？: 我公司的办公自动化系统是用delphi3编的，我编译了之后，在xp和2000下可以打印，但是在98下无法实现打印功能，不知到为什么，是不是需要补丁啊，

delphi控制标签机打印一维码、二维码: 求编码规则rnrn如1E12022，打印一维码rnrn

Delphi二维码、分组、批量打印经验小结: Delphi二维码中文支持、分组、批量打印经验小结rnFastReport设计入库单报表实例rnrnDelphi 二维码 分组批量打印 fastreport 控件rnrn背景：rn一直也没接触到什么复杂的报表，都是一些简单的报表，在DelphI下使用QuickReport一般也就能满足需要了，由于公司现在需求的变化，对条码扫描提出了新的要求，主要是扫码要包含更多地内容，以前的一维码显然不能完全满足，再说二维码也是一种趋势，故而需要解决二维码的问题，网上搜了一下，方式有多种多样，我花了3天时间找了很多，也尝试了很多。也经历了很多失败！总结一下在Delphi下实现二维码主要有三种方法：rn1、使用PtImageRW.dll和PtQREncode.dll动态连接库，使用uQRCode生成二维码图像，如此就可以在报表中予以打印了，具体如何用uQRCode实现绘制二维码，本人水平太低，无法参透；结合QuikReport就可以实现打印二维码了，但此种有一个问题就是不支持中文，如source1（整合到FastReport中也无法实现对中文的支持）；rn2、还有一种就是生成控件,利用ZINT制作的控件，如source2；此种有个问题就是无法在报表中使用（也许是我不会用），只可在窗体上显示，当然理论上说能在窗体上使用就完全可以用于打印报表了，可问题时我不会，哎，还是技术水平太低。还有一种叫Han-sof 2D Barcodes的控件，我可以安装，但却无法使用，无法生成二维码到图片。可上网搜索一下下载这个控件安装一下，有搞定的与我共享一下。rn3、用ZINT整合到FastReport中，也是下面我要叙述的形式:source3。完全可以满足我的需求。rnrn例子实现了对采购入库数据的分组批量打印，加入了二维码的使用，当然实际工作当中制作入库单基本上用不到批量打印的，一般都是一单一打，但在我这里没办法，必须设计这样的功能，历史遗留问题吧，这里也牢骚一下吧！rn如做一些延伸，很多的打印都和这个有很多的类似之处，我说的是并不太复杂的应用，至于什么更复杂得我想FS也能搞的定，这里做一个总结是希望对和我一样水平的人提供一些帮助吧，也许现在很多人根本不用Delphi了，权且当作自己的一个笔记吧！rn入库单样式如下：rn [img=https://img-bbs.csdn.net/upload/201508/04/1438658838_967736.png][/img]rn [img=https://img-bbs.csdn.net/upload/201508/04/1438658939_850080.png][/img]rnrn一、环境及所用组件程序rn1、Delphi2010rn2、FastReport4.9 for 2010rn3、zint.dllrn4、frx2DBarcode.pasrn5、frx2DBarcodeRTTI.pasrn6、uBitMapOverriden.pasrn7、ufrxZintBarcode.pasrn8、uRegZintBarcode.pasrn9、uZintInterface.pasrnrn二、安装FastReport4.9 for 2010rn注意：安装有一定要新建一个工程，并放置一个frxReport1控件，看看是否可以正常运行，如果不能正常运行，那么到安装目录检查一下权限，将EVERYONE添加到文件夹权限，应该就可以了，我的就是这样。一定要确保frxReport可以正常运行，否则一切都是白搭。rn在2010下安装，直接下一步到底就可以了，并不需要重新编译；rnFastreport5在安装的时候无法生成相应版本的文件进行编译，不知道是何原因。rnrn三、zint.dll与相关文件rn1、将Zint.dll复制到工程文件的当前目录及windows的system32目录下；不过好像不复制在当前目录页不要紧，谨慎起见还是放一个吧！rn2、在单元文件中引用frx2DBarcode，即可调用二维码；我参考网上的例子，多引用了很多，具体如下，具体什么意思，也没有细细研究。反正多几个也没坏处frxDesgn, frxClass, frxDCtrl, frxChart,frxDBSet, frxRich, frxBarcode,frxOLE, frxCross, frxDMPExport, frxExportImage, frxExportRTF, frxExportXML, frxExportXLS, frxExportHTML, frxGZip, frxExportPDF, frxChBox, frxExportText, frxExportCSV, frxExportMail, frxADOComponents, frxCrypt, frxExportODF, frxGradient,frx2DBarcode;rn3、窗体中加入以下控件。rn [img=https://img-bbs.csdn.net/upload/201508/04/1438658963_586715.png][/img]rnrn属性设置参考例程rn4、打开设计rnprocedure TMain_Form.RzBitBtn1Click(Sender: TObject);rnbeginrnfrxReport1.DesignReport;rnend;rn5、打开预览rnfrxReport1.Clear;rnfrxReport1.LoadFromFile('group.fr3');rnfrxReport1.DataSets.Clear;rnfrxReport1.DataSets.Add(frxDBData);rnfrxReport1.ShowReport;rnfrxReport1.Modified:=false;rn6、设置ADOquery1的SQL为“select * from data_in order by bill_code_in desc”;再设置Active为True；rn7、设置frxDBData的DataSet为ADOQuery1；右击控件可以打开Edit aliases对话框，如此在设计其中就可以使用数据源了。当然在设计中也可自己设定。rn[img=https://img-bbs.csdn.net/upload/201508/04/1438658990_545399.png][/img] rnUserName就是在FastReport下课见的数据连接名。rn四、设计报表rn注意：此种用法只能在运行程序文件时才能设计报表，否则直接Delphi环境下的控件是无法显示含有二维码的设计页面的。rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659015_174337.png][/img]rn运行程序，单击设计即可打开“设计”界面；rn[img=https://img-bbs.csdn.net/upload/201508/04/1438659041_26270.png][/img] rn1、双击页面可以打开此对话框，选择Large height in design mode可以最大限度显示设计的的幅面，不选择此项目，添加几个Band后你就会发现有的Band就找不到了！rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659053_768623.png][/img]rn2、在FASTREPORTX下用到的控件及布局区域；rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659071_54886.png][/img]rn3、page设计模式，主要用到Header、GroupHeader、MasterData、GroupFooter、PageFooterrn [img=https://img-bbs.csdn.net/upload/201508/04/1438659083_761718.png][/img]rn4、添加完MasterData后，双击该BAND，如下图选择，之后再MasterData的右上角出现frxDB，表示数据选择成功rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659095_539580.png][/img]rnrn5、双击GroupHeader，选择bill_code_in作为筛选条件；Options如下，之后右上角显示frxDB.”bill_code_in”：rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659103_941696.png][/img]rn6、在各Band添加数据，直接将右边的字段拖入相应区域即可，从这一点来看还是有优势的。rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659119_49416.png][/img]rnrn五、注意事项rn（1）页脚以[img=https://img-bbs.csdn.net/upload/201508/04/1438659129_443688.png][/img] 形式显示，必须选择Report的DoublePass属性为True，否则显示总页数位0，记得插入那个不带#好的page和totalpage，带#好的事表示全部，试一下就知道什么意思了。rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659155_259599.png][/img]rn（2）如果需要在每页都显示Header，则在设计时选择ReprintOnNewPage为Truern [img=https://img-bbs.csdn.net/upload/201508/04/1438659168_535891.png][/img]rn（3）在使用到frx2DBarcode.pas文件时可能出现无法加载，即便已在USE里做了引用，因此最好的办法就是直接加入到项目里来。Add to projectrn [img=https://img-bbs.csdn.net/upload/201508/04/1438659204_945532.png][/img]rn（4）在Delphi下如何改变FastReport的控件属性。rnTfrxMemoView(frxReport1.FindObject('memo16')).Text:=’设定的内容’rn（5）二维码大小调整rn二维码大小调整可以在设计模式下设置参数AutoSizeZoom改变，也就是放大的比例；但这样容易出现一个在你批量打印的时候滚动鼠标你会发现二维码底部会少一小部分，也就无法扫描了，不知道打印是否有影响。rn[img=https://img-bbs.csdn.net/upload/201508/04/1438659233_570979.png][/img] rn我是通过设置代码来完成，我觉得这样更方便一下，也不会出现上面的情况。rn [img=https://img-bbs.csdn.net/upload/201508/04/1438659249_302985.png][/img]rnrn备注：rn1、fastreport for 2010是我用的，可以正常使用也是例子里用到的4.9版本rn2、fastreport5 for delphi7,已经好久不用7了，故也没测试，这是下载到的！测试成功的告诉我一下！rn3、fastreport5 for xe8，我朋友测试通过的，也是他发给我的，但在我的xe8下就是不行，可以看到控件，但一运行，就报错，还没时间研究，我记得在装XE8的时候是自带了fastreport5的，但并没有二维码的选项，我是卸载了自带的，然后再安装的，然后出现了一系列的问题，实在没时间，因为大部分程序是在2010下的，还没时间向XE8切换，不知道是不在安装的时候不能安装自带的FS5，我朋友在第一次安装的时候就没有选择，然后手动安装的，效果很好！rn有知道fastreport5如何在2010下用的，麻烦指教一下！rn4、source1-3，前面有说过了，主要是一些例子，我所总结的三种方法，也不知道对不对！rn5、zinBarcode文件里也是一个例子，也是用fastreport，可以比较完美的显示中文fastreport，但二维码不能显示中文，设置成中文即报错。rnrn感觉FastReport的功能实在是太强大了，但好多功能还不太会用，以后愿意与大家多交流这方面的信息！rn联系方式：jacdfb@163.com;qq:505689211rn[img=https://img-bbs.csdn.net/upload/201508/04/1438659271_857792.png][/img]rnrnhttp://download.csdn.net/detail/daifubing/8957447rn

如何打印？如何打印？如何打印？谢谢: .要对网页进行打印，如何才能取得IE浏览器自带的打印控件中的页面设置参数，如纸张尺寸，打印方向等？ rn又如何通过程序修改这些参数。 rn2.ScriptX.cab有没有真正免费的终生使用无限制安装的破解版？有没有其他的免费控件，不带广告或水印的 rn3.VC++开发一个ACTIVEX控件需要net formwork 运行环境吗？ rn4.WEB打印如何才能做到自动分页。而不是强制分页？ rn5.合位的解决方式是什么？

请教高手，如何做WebForm及WinForm同时使用的打印模块?谢谢!: 供WebForm及WinForm同时使用的的打印模块?rn 我公司想开发一个打印信封的模块供各种程序调用，我的设想如下rn 将打印信封的格式数据放在XML文件中，控制打印的程序放在DLL中?rn WebForm使用是传递网络打印机名称,打印的具体内容。rn WinFrom使用是传递网络打印机名称,打印的具体内容。rn 打印类封装在System.Drawing.Printing.PrintDocument类中,rn 但调用ASP.NET调用 pd.Print()时现Win32Exception (0x80004005): RPC 服务器不可用rn 我想是不是PrintDocument是专为WindForm准备的，如果，请问还有什么方法可将打印模块封装，供rn WindForm和WebForm共用？rn谢谢

如何批量打印二维码图: 用c#生成了一批二维码图，如何批量从条码打印机上连续打印出来？rn

使用delphi控制标签机（打印一维码、二维码、数字、文字）: procedure T3CBOX_Barcode.Barcode_PEGATRON(Comm: TComPort; BoxNO,rn CustPn, DateCode, QTY: string);rnvar pbuf:String;rnbeginrn Comm.Open;rn Pbuf:= #2+'L'+cr + 'D11'+cr + 'H18'+ cr;rn Comm.Write(Pbuf[1],length(Pbuf));rnrn Pbuf:=''+''+'' ; // 角度 高 水平 rn Pbuf :=Pbuf + '1X11000' + '0005' + '0045' + 'L260001' + cr; //水平rn Pbuf :=Pbuf + '1311001' + '0020' + '0055' + 'Note:' + cr;rn Pbuf :=Pbuf + '1X11000' + '0045' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1311001' + '0055' + '0055' + 'QTY:' + cr;rn Pbuf :=Pbuf + '1E11020' + '0055' + '0150' + QTY + cr; //一维码rn Pbuf :=Pbuf + '1X11000' + '0085' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1311001' + '0095' + '0055' + 'BatchNo:'+ cr;rn Pbuf :=Pbuf + '1X11000' + '0125' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1311001' + '0135' + '0055' + 'DateCode:'+ cr;rn Pbuf :=Pbuf + '1E11020' + '0135' + '0150' + DateCode + cr;rn Pbuf :=Pbuf + '1X11000' + '0165' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1311001' + '0175' + '0055' + 'Vendor P/N:'+ cr;rn Pbuf :=Pbuf + '1311001' + '0175' + '0150' + Copy(BoxNo,9,9)+ cr;rn Pbuf :=Pbuf + '1X11000' + '0205' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1311001' + '0215' + '0055' + 'Pega P/N:'+ cr;rn Pbuf :=Pbuf + '1E11020' + '0215' + '0150' + CustPn + cr;rn Pbuf :=Pbuf + '1X11000' + '0245' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1311001' + '0255' + '0055' + 'Vendor SMP'+ cr;rn Pbuf :=Pbuf + '1E11020' + '0255' + '0150' + BoxNO + cr;rn Pbuf :=Pbuf + '1X11000' + '0285' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1911005' + '0295' + '0055' + 'PEGATRON Unihan PI 965'+ cr;rn Pbuf :=Pbuf + '1X11000' + '0325' + '0045' + 'L260001' + cr;rn Pbuf :=Pbuf + '1X11001' + '0005' + '0045' + 'L001320' + cr; //rn Pbuf :=Pbuf + '1X11001' + '0005' + '0305' + 'L001320' + cr;rn Pbuf :=Pbuf + 'Q0001' + cr;rn Pbuf :=Pbuf + 'C00' + cr;rn Pbuf :=Pbuf + 'E' + cr;rn Comm.Write(Pbuf[1],Length(Pbuf));rn Comm.Close;rnend;

delphi二维码: 针对delphi生成二维码，经测试，可以使用，基础使用已经足够，细节需要自己研究

在DELPHI 7 中如何使用"TDBChart"?: rn 各位朋友,大家好.rnrnrn 我现在想使用"TDBChart"把ACCESS中的数据以统计图形的样式比较直观的显示出来.rnrn ACCESS的目录"D:\WATER\数据库.mdb"rnrnrn 统计图形"饼型图、柱状图、线条型“三种。rnrn 具体步骤是什么？rnrnrn 谢谢了。

delphi 7 的socket问题请教: 客户端通过socket发送一个图片给服务器端，服务器端判断是否接收完毕时，判断如果接收完毕后，就调用另一个函数处理图片，请问在判断图片接收完毕这里，怎么写调用另一个函数呢，我现在在socketread 里面，在判断接收完毕语句后面加上处理图片的函数，出现二种情况，一种同一张图片接收，由于需要多次接收才接收完毕，从而调用多次图片处理函数，另一种情况就是接收不正常，rn请问该怎么写才对呢，我只需要调用一次处理函数，调用多次就会出错。

Delphi 7高手进来看看: 请教一下如何用DELPHI实现进程互斥？

请教 C 语言生成环境变量的问题: 我用putenv（）生成环境变量，rn但是它是临时的，只要重新开机就没了。rn请问我该怎么弄才能实现把环境变量加到rn“我的电脑”->"属性"->“高级”->“环境变量”rn只有加到这里，重新开机环境变量还在。

请教delphi问题，，谢谢: rn1。 delphi中数据库提示框：用户名sysdba，密码masterkey怎样才能不输入而正常执行程序rn2。执行程序时说已经超过最大用户数怎么办rn

Delphi 使用CODESOFT打印: rn// BarApp := GetActiveOleObject('lppx.Application');rn BarApp := CreateOleObject('lppx.Application');rn BarApp.Visible:=False;rn BarDoc:=BarApp.ActiveDocument;rn BarVars:=BarDoc.Variables;rn BarDoc.Open(vDSNFile);rn BarDoc.Variables.Item('Var0').Value := ‘123456’;rn Bardoc.Printlabel(1);rn BarDoc.FormFeed;rn Bardoc.Close;rn BarApp.Quit;rnrn上面是打印的代码，现在使用CreateOleObject('lppx.Application')就会提示“文件名、目录名或者卷标语法错误"，而当把CODESOFT软件打开以后，使用GetActiveOleObject('lppx.Application')则可以正常打印，还请各位指点迷境。

用DELPHI语言在datamax打印机上打印二维码怎么做？: 用DELPHI语言在datamax打印机上打印二维码怎么做？rnrn请问有谁知道，如何用DELPHI语言，在DATAMAX 打印机上打印二维码？rnrn目前使用的datamax 是用DPL语言写的。rnrn就是想知道如何打印二维码。公司要求用DELPHI语言来实现。

请教如何使用IxChariot？谢谢: 有这方面的说明和教程吗？

【求助】delphi 7 使用infopower: 原来用的是delphi6，安装infopower3000可以正常使用。最近换了delphi7，安装infopower4000之后，编译报错，提示找不到C:\Program Files\Woll2Woll\ip4000Trialvcl7\lib\Wwdbigrd.pas，请问这个怎么解决，lib下是有Wwdbigrd.dcu的，求赐教，谢谢...

C语言生成打印结构语句工具: C语言用来生成打印结构体语句的小工具，命令行下运行格式：命令+包含结构体定义的文件+结构体变量名默认在程序目录下生成wxx.out文件并打印到屏幕上（注：打印到屏幕上的没加打印语句中的回车符号，你可以自行修改）

使用Delphi代码,如何检查打印机状态: 使用Delphi代码,如何检查打印机状态,如缺纸,卡纸,未开机.

如何使用DELPHI打印条形码（三九码）: 如何用DELPHI实现条形码的轻版印刷，并能用条形码扫描仪读取出来。我已经实现了条形码的打印，却不能读取不知是否打印机的问题，我的打印机是激光打印机。

Python使用C语言生成的库: 下载需要的工具 1、下载pcre库 wget ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/pcre-8.37.tar.gz 2、下载SWIG：wget http://sourceforge.net/projects/swig/files/latest/download?source=typ_redirect 安装pcr

Win7-8打印Web二维码打印: Win7-8二维码打印问题解决，Web应用程序开发的打印如何在Win7-8下进行运行实现打印，大家可以参照，不明白可以留言

打印的问题请教高手！: 本人是新手，想打印一些报表，怎么方便呢？rn有人说导到excel中去打？怎么做啊？rn能给个例子吗？rn谢谢！

打印请教高手: CPrintDialog printDlg(FALSE);rnrn if (printDlg.DoModal() != IDOK) // Get printer settings from userrn return;rn这段代码只是选择打印页面范围为全部打印,rn如何设置代码才能够使拥护能够选择选择打印页面范围:从第几页到第几页进行打印

打印的乱码问题?请教高手: DocFlavor flavor = DocFlavor.INPUT_STREAM.AUTOSENSE;rn// // 查找所有的可用打印服务rn// PrintService printService[] = PrintServiceLookup.lookupPrintServices(rn// flavor, pras);rn// // 定位默认的打印服务rn// PrintService defaultService = PrintServiceLookuprn// .lookupDefaultPrintService();rn// // 显示打印对话框rn// PrintService service = ServiceUI.printDialog(null, 200, 200,rn// printService, defaultService, flavor, pras);rn// if (service != null) rn// try rn// DocPrintJob job = service.createPrintJob();// 创建打印作业rn// FileInputStream fis = new FileInputStream(file);// 构造待打印的文件流rn// DocAttributeSet das = new HashDocAttributeSet();rn// Doc doc = new SimpleDoc(this,flavor, das);// 建立打印文件格式rn//// job.print(doc, pras);// 进行文件的打印rn// catch (Exception e) rn// e.printStackTrace();rn// rn// rnrn如上代码,打印出来的中文都是乱码.rn如果把第一句改成:DocFlavor flavor = DocFlavor.SERVICE_FORMATTED.PRINTABLErn将出现如下异常:rndata is not of declared type.rn请教高手这个问题的解决方法.

DataGrid 打印,请教高手: datagrid给我们带来了方便,但是他的打印好像集成的不是那么好,怎么才能实现页面上的datagrid单独打印,并且对分页能够兼容,即我们所说的所见即所得,谢谢高手的指点 :)

请教VB打印高手: 用条件查询，将结果显示在MSHFLexgrid控件中，不用报表控件想得到如下结果：rn1）打印出标题rn2）对MSHFLexgrid控件中的列有选择的打印，rn3）根据设定的行树/每页，决定换页。rn

请教高手打印问题？: 小弟想做一个打印程序，rn要求在每页的特定位置，打印一数码，每打一页，该数值就加1，我该怎么做呢rn谢谢各位大侠的参与。

请教高手：打印问题: 请教高手，我在一个过程中打开文件，然后通过参数将这个文件指针传递到另一个过程中进行写入fprintf()操作，为什么写不进去数据？又不报错？请帮个忙解决，谢谢rn

请教高手打印问题: 打印对话框弹出时，有一个选项：打印范围，无论何时都是从1到9999页（实际上并没有那么多页）。

不惜重金，请教打印高手: 各位大虾：rn 我在做打印程序时遇到了一个问题，代码如下：rn出现的问题是运行到标识的一步时，弹出出错对话框三个按钮的那种，终止，重试，取消rnLRESULT CShenjianView::OnMyPrint(WPARAM a,LPARAM b)rnrn CDC dc;rn PRINTDLG pd;rn LPDEVMODE lpDevMode; rn CPrintDialog printDlg(FALSE); rn if(AfxGetApp()->GetPrinterDeviceDefaults(&pd))rn rn lpDevMode=(LPDEVMODE)pd.hDevMode;rn lpDevMode->dmPaperLength=1500;rn lpDevMode->dmPaperWidth=1100;rn rn printDlg.m_pd.hDevMode=pd.hDevMode;rn dc.Attach(printDlg.GetPrinterDC()); rn dc.m_bPrinting = TRUE; rn CString strTitle; rn strTitle="您当前打印的是生检质量";rn DOCINFO di; rn ::ZeroMemory (&di, sizeof (DOCINFO));rn di.cbSize = sizeof (DOCINFO);rn di.lpszDocName = strTitle;rn BOOL bPrintingOK = dc.StartDoc(&di); //运行到这一步时有问题 rn CPrintInfo Info; rn OnBeginPrinting(&dc, &Info); rn for (UINT page = Info.GetMinPage(); rn page 0); rn rn OnEndPrinting(&dc, &Info); rn if (bPrintingOK)rn dc.EndDoc(); rn elsernrn dc.AbortDoc(); rnrn dc.Detach(); rn return 1;rn

请教打印高手!!!: VB能实现对一级汉字点阵库的缩放功能吗?急!

请教高手,打印问题: 我在打印时x坐标超过14460无法显示出,不知什么问题?纸张大小绝对够大.rn x=14460rn y=1008rn这个就可以打印.如果超过了14460,就打印不出来了.

自定义打印??? 请教高手: 请问如何通过程序,而不是打印设置对话框设置打印纸的大小rn 这样就可以保证在任何宽窄,大小的纸张上进行打印了rn 谢谢了

请教高手，打印的问题？: 我编了一个不基于CVIEW类的打印程序，在NT下运行良好，但在98下却不行。不知为什么？rn请高手们指教一二！rn谢谢！

请教高手，打印问题: 请教高手，关于打印问题rn要打印窗体form中的内容rn在‘form’中有一‘frame’，‘frame’的高度超过‘form’窗体，而且‘frame’中有许多‘lable’和一个‘picture’。rn要求打印frame中的所有内容（包括超出窗体的lable和picture）rn本人试过窗体打印。无法打印全部内容。

在Delphi中使用类的问题请教高手: 请看以下程序，我在Unit2单元中建立了一个类TParams，在Unit1单元中建立了一个类TMyParams,它是从TParams继承而来的。在程序运行时出错：TMyParams不能使用TParams中的私有变量。但把两个类写在一个单元中TMyParams能使用TParams中的私有变量。我想在一般的设计中总会把父类写在一个单独的单元中的，如何解决这个问题？rn另：即使把两个类写在一个单元中，程序运行进没问题，但当程序结束时（点击关闭按钮）程序却报错，这是为何，如何避免？rnrnunit Unit1;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,rn StdCtrls,Unit2;rnrntypern TForm1 = class(TForm)rn Button1: TButton;rn Button2: TButton;rn procedure Button1Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rn TMyParams = Class(TParams)rn privatern FDpt:string;rn publicrn function getdpt():string;rn procedure setdpt(dpt:string);rn end;rnvarrn Form1: TForm1;rn myParams1:TMyparams;rnimplementationrnrn$R *.DFMrnrnprocedure TMyParams.setdpt(dpt:string);rnbeginrn fdpt:=dpt;rnend;rnrnfunction TMyParams.getdpt ():string;rnbeginrn result :=fdpt;rnend;rnrnrnprocedure TForm1.Button1Click(Sender: TObject);rnbeginrn myParams1.setstyle(3);rn showmessage(inttostr(myParams1.readstyle));rn myParams1.setdpt('aaa');rn showmessage(myparams1.getdpt);rnend;rnrnend.rnrnrnrnunit Unit2;rnrninterfacerntypern TParams = Classrn privatern FStyle:integer;rnrn publicrn function readstyle():integer;rn procedure setstyle(style:integer);rn end;rnvarrn Params:TParams;rnimplementationrnfunction TParams.readstyle():integer;rnbeginrn result:=FStyle;rnend;rnprocedure TParams.setstyle(style:integer);rnbeginrn FStyle:=style;rnend;rnrnend.rn

请教高手：delphi 中存储过程的使用: 您好，我是一上道时间不长的新手，今天问一同事存储过程的问题，他告诉我说主要用的是用的它的执行后返回的详细信息，高手们哪位有运用存储过程的代码啊，让小弟研究一下，谢谢，

delphi 如何打印文本文件: delphi 如何将一个文本文件打印出来（打印机)rn另外它能读取WORD文档吗，如何读rnrn以上两个小问题主要是想解决打印凭票据的问题：rn我有一个固定格式的票据，用的是word，我只需在里面添加一些要素后打印出来，有啥好方法

请教delphi高手高手高高手！: 现有一个鬼子的项目，要求对两张图片中的产品的金属表面质量进行检测，要用到高斯低通滤波代码、图像轮廓提取代码和灰度直方图代码，有哪位前辈可以指点小弟一下，不胜感激！

请教delphi的高手们！！: c++中这样一个定义：rntypedef FT_ACTION (*FT_GET_ACTION) (IN FT_STATUS_PT, void *);rn在delphi中该如何表达？

请教DELPHI高手！！: 将应用程序拷到另一台机上，数据库、公用环境配置好后，运行时出现找不到有关.dcu文件。该怎么解决？？我急用！！！

请教delphi 6 高手: General SQL error.rn[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for userrn'(null)'.Reason:Not associated with a trusted SQL Serve connection.rnAlias:oyoy.rnrn我的程序在运行时没有错，但是在使用的时候就出现上面的这个问题，请问是什么原因？

请教Delphi的高手，重谢: 本人现在在韩国一个机器人公司做研发工作，现在需要开发一个EtherCAT总线的Master。目前有一段例程是用Delphi写的，需要找高手指点一下。我可以提供有关EtherCAT总线的所有核心资料（这些资料都是花重金从德国购入），如果有意者请联系我 rn rnQQ 50274220 rnEmail：allen1979_12@hotmail.com

请教Delphi的COM 高手: 请问是否可以为一个TForm来增加一个接口,就象这样:rn TMAINFORM = CLASS ( TFORM , IMYINTERFACE )rnrn接口我是通过new 一个 typelib 增加的, 在main 单元的 initialization 部分rn我用 TComponentFactory.Create(Comserver , TMAINFORM , CLASS_MAINFORM,... )rn在创建工厂类,编译通过了.运行的时候一开始有个问题,好像是TMainForm的类型与rn要求的不匹配,后来将类型库里面自动化部分去掉就可以了,但是目前的问题是虽然rn运行没有问题了,但是这个CLASS_ID好像还是没有注册成功,因为我在注册表里面没有rn找到这个ID,书上一般都是讲new一个automation object的方法来引入一个com对象,rn不知道有没有人做过为 Tform这样的类添加com接口支持?

请教Delphi高手几个问题?: 我用C++Builder一年多了。熟悉win32汇编，可就是对Delhpi的代码总是理解不上去啊。rn问题1：rnvarrn TmpRegistry : TRegIniFile;rn TapiProcesses : TStringList;rnbeginrn。。。。。。。。rnTmpRegistry := TRegIniFile.Create('SOFTWARE\TurboPower\APRO\TAPI'); I rn...rnendrn在上面的代码段中根据汇编窗口的显示，第一行就调用构造函数了，可是最后赋值那行又调用了一次，这不是调用了两次构造函数吗？是不是分配了两次的内存？？？？？rnrn问题2：上面的代码段中，如何在申明的时候就赋初值啊？rn就好比在CB中TRegIniFile * p=new TRegIniFile("aaaaaaaa");rn如何在Delphi中实现？？？？？？rnrn谢谢诸位解答。

请教各位delphi高手: 你们是如何学会各类属性和用法的？是不是看.pas文件的？有什么学习的思想和捷径？rn先谢谢.

请教DELPHI高手: 问题1：编译出错问题，具体问题如下rnrnUndeclared identifier 'Editing' at line 61(61,28)rn第61行是这样的cxtlcSetData.Options.Editing:= False;rn而cxtlcSetData的Options属性明明是有Editing的rnrn问题2：既然有错误，为什么能编译生成应用程序？rn

请教delphi高手: 有如下一段程序，运行时，在第一个窗口按按钮能打开第二个窗口，在第二个窗口按第一个按钮能打开第三个窗口，但在第二个窗口按第二个按钮不能打开第四个窗口，不知何解，望有高手能指出。rnprogram Project1;rnrnusesrn Forms,rn Unit1 in 'Unit1.pas' Form1,rn Unit2 in 'Unit2.pas' Form2,rn Unit3 in 'Unit3.pas' Form3,rn Unit4 in 'Unit4.pas' Form4;rnrn$R *.resrnrnbeginrn Application.Initialize;rn Application.CreateForm(TForm1, Form1);rn Application.Run;rnend.rnrn//第一单元rnrnunit Unit1;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, StdCtrls;rnrntypern TForm1 = class(TForm)rn Button1: TButton;rn Label1: TLabel;rn procedure Button1Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form1: TForm1;rnrnimplementationrnuses unit2;rn$R *.dfmrnrnprocedure TForm1.Button1Click(Sender: TObject);rnvarrn form2 : TForm2;rnbeginrnform2 := TForm2.Create(self);rnform2.ShowModal;rnform2.free;rnrnrnend;rnrnend.rnrnrn//第二单元rnrnunit Unit2;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, ExtCtrls,StdCtrls;rnrntypern TForm2 = class(TForm)rn Button1: TButton;rn Label2: TLabel;rn Button2: TButton;rn procedure Button1Click(Sender: TObject);rn procedure Button2Click(Sender: TObject);rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form2: TForm2;rnrnimplementationrn uses unit3, unit4;rn$R *.dfmrnrnprocedure TForm2.Button1Click(Sender: TObject);rnvarrn form3 : TForm3;rnbeginrnform3 := TForm3.Create(self);rnform3.ShowModal;rnform3.free;rnend;rnrnprocedure TForm2.Button2Click(Sender: TObject);rnvarrn form4 : TForm4;rnbeginrnform4 := TForm4.Create(self);rnform4.ShowModal;rnform4.free;rnend;rnrnend.rnrnrn//第三单元rnrnrnunit Unit3;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, StdCtrls;rnrntypern TForm3 = class(TForm)rn Label1: TLabel;rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form3: TForm3;rnrnimplementationrnrn$R *.dfmrnrnend.rnrnrn//第四单元rnrnunit Unit4;rnrninterfacernrnusesrn Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,rn Dialogs, StdCtrls;rnrntypern TForm4 = class(TForm)rn Label1: TLabel;rn privatern Private declarations rn publicrn Public declarations rn end;rnrnvarrn Form4: TForm4;rnrnimplementationrnrn$R *.dfmrnrnend.

关于delphi，请教高手: ＤＥＬＰＨＩ中有那些数据库控件。rn它们是怎样分配线程和进程的内存空间？rn望高手指点！！！

请教高手DELPHI的问题？: DELPHI中：在主窗体显示后以SHOW打开子窗体时如何使新打开的子窗体在最前面显示。

高分请教Delphi高手？？？: 如何监控到用户同时按下Ctrl+Alt+Delete三个键？？？先谢了！！！

请教DELPHI高手！！！！！: 将应用程序拷到另一台机上，数据库、公用环境配置好后，运行时出现找不到有关.dcu文件。该怎么解决？？我急用！！！

请教Delphi的高手: 如何将MS SQL Sever 2000中建立的数据库与Delphi中的BDE进行连接？

Delphi问题,请教高手: 各位朋友：大家好，我已经被江西财经大学用友软件学院高分录取，我很想进入大学学习Delphi开发数据库，请问我应该怎样学习，买哪方面的参考书／rn我应该继续向软件哪个方向发展／

请教Delphi高手: 本人在使用Batchmove转换Foxpro数据至Oracle数据库时，出现错误提示，不能将Null值插入Oracle数据表，但在反复进行多次操作后，又可成功。rnrn请教：Batchmove 的源表和目的表是否会对转换数据产生影响，在执行转换前，是否需将两个表打开？

Delphi项目文件请教高手！: 在文件夹中有很多文件不知道是做什么用的，不知是否能删。rn有.~ddp，.~dfm，~pas，.cfg，.dcu，.ddp等等，这些文件都是做什么用的，哪些能删？rn谢谢！

请教ASP和delphi高手: 现在有一个考试系统，用delphi做得考务管理，用asp做得考试答题，要求用delphi加密考题再用asp解密考题。我现在的做法是：用delphi将考题以string类型读出，转化成pchar，再用rnord(pchar(考题)[i])读出每一个字符ascii码，在把每个ascii码加上一个常量，再用chr()转成字符并赋给一个string型变量，最后一次变量值写进数据库。在asp中想用相反的方法解密，没想到不行。例如，在delphi中chr(215)+chr(214)的值是'字'，而在asp中却不能得到有意义的值。请教高手，应该怎样做才能实现解密效果。rn

oracle10g rac 安装下载: oracle10g rac 安装 Liunx 安装全过程相关下载链接：[url=//download.csdn.net/download/hq12/2602150?utm_source=bbsseo]//download.csdn.net/download/hq12/2602150?utm_source=bbsseo[/url]

x86 emulator 源码下载: 模拟器源代码，内有汇编器、反汇编器，实现windows底层操作，ZwCreateSection, ZwCreateFileMapping， OpenProcess等，含有PE结构解析，引入表IAT重构，调试器dbg，还有linux底层相关的源码等等，自己去宝库发掘。可以作为实现自己的模拟器的参考，也可以用作其他相关项目的源码参考，相当经典，推荐！相关下载链接：[url=//download.csdn.net/download/mars6505/3914733?utm_source=bbsseo]//download.csdn.net/download/mars6505/3914733?utm_source=bbsseo[/url]

摄像头控制下载: c#摄像头控制工程，用于控制视频监测，截取图像和保存相关下载链接：[url=//download.csdn.net/download/ztmkadaj/4412695?utm_source=bbsseo]//download.csdn.net/download/ztmkadaj/4412695?utm_source=bbsseo[/url]

我们是很有底线的