谁知道二维条码程序开发啊？
各位好！谁知道二维条码程序开发啊？怎么做啊？小弟请教请教！ 问题点数：50、回复次数：21Top
1 楼joling321（）回复于 2006-08-24 15:54:31 得分 0
没人知道吗？
Top
2 楼wxskysoft（方人也）回复于 2006-08-24 16:17:14 得分 0
Private Declare Function A_Bar2d_Maxi Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal primary As Long, ByVal secondary As Long, ByVal country As Long, ByVal service As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Bar2d_Maxi_Ori Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal ori As Long, ByVal primary As Long, ByVal secondary As Long, ByVal country As Long, ByVal service As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Bar2d_PDF417 Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal narrow As Long, ByVal width As Long, ByVal normal As Byte, ByVal security As Long, ByVal aspect As Long, ByVal row As Long, ByVal column As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Bar2d_PDF417_Ori Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal ori As Long, ByVal narrow As Long, ByVal width As Long, ByVal normal As Byte, ByVal security As Long, ByVal aspect As Long, ByVal row As Long, ByVal column As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Sub A_Clear_Memory Lib "WINPPLA.DLL" ()
Private Declare Function A_CreatePrn Lib "WINPPLA.DLL" (ByVal selection As Long, ByVal filename As String) As Long
Private Declare Sub A_ClosePrn Lib "WINPPLA.DLL" ()
Private Declare Function A_Del_Graphic Lib "WINPPLA.DLL" (ByVal mem_mode As Long, ByVal graphic As String) As Long
Private Declare Function A_Draw_Box Lib "WINPPLA.DLL" (ByVal mode As Byte, ByVal X As Long, ByVal Y As Long, ByVal width As Long, ByVal height As Long, ByVal top As Long, ByVal side As Long) As Long
Private Declare Function A_Draw_Line Lib "WINPPLA.DLL" (ByVal mode As Byte, ByVal X As Long, ByVal Y As Long, ByVal width As Long, ByVal height As Long) As Long
Private Declare Sub A_Feed_Label Lib "WINPPLA.DLL" ()
Private Declare Function A_Get_DLL_Version Lib "WINPPLA.DLL" (ByVal nShowMessage As Long) As String
Private Declare Function A_Get_DLL_VersionA Lib "WINPPLA.DLL" (ByVal nShowMessage As Long) As Long
Private Declare Function A_Get_Graphic Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal mem_mode As Long, ByVal format As Byte, ByVal filename As String) As Long
Private Declare Function A_Get_Graphic_ColorBMP Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal mem_mode As Long, ByVal format As Byte, ByVal filename As String) As Long
Private Declare Function A_Initial_Setting Lib "WINPPLA.DLL" (ByVal ttype As Long, ByVal Source As String) As Long
Private Declare Function A_Load_Graphic Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal Graphic_name As String) As Long
Private Declare Function A_Open_ChineseFont Lib "WINPPLA.DLL" (ByVal Path As String) As Long
Private Declare Function A_Print_Form Lib "WINPPLA.DLL" (ByVal width As Long, ByVal height As Long, ByVal copies As Long, ByVal Amount As Long, ByVal form_name As String) As Long
Private Declare Function A_Print_Out Lib "WINPPLA.DLL" (ByVal width As Long, ByVal height As Long, ByVal copies As Long, ByVal Amount As Long) As Long
Private Declare Function A_Prn_Barcode Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal ori As Long, ByVal typee As Byte, ByVal narrow As Long, ByVal width As Long, ByVal height As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Prn_Text Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal ori As Long, ByVal font As Long, ByVal typee As Long, ByVal hor_factor As Long, ByVal ver_factor As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Prn_Text_Chinese Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal fonttype As Long, ByVal id_name As String, ByVal data As String, ByVal mem_mode As Long) As Long
Private Declare Function A_Prn_Text_TrueType Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal FSize As Long, ByVal FType As String, ByVal Fspin As Long, ByVal FWeight As Long, ByVal FItalic As Long, ByVal FUnline As Long, ByVal FStrikeOut As Long, ByVal id_name As String, ByVal data As String, ByVal mem_mode As Long) As Long
Private Declare Function A_Prn_Text_TrueType_W Lib "WINPPLA.DLL" (ByVal X As Long, ByVal Y As Long, ByVal FHeight As Long, ByVal FWidth As Long, ByVal FType As String, ByVal Fspin As Long, ByVal FWeight As Long, ByVal FItalic As Long, ByVal FUnline As Long, ByVal FStrikeOut As Long, ByVal id_name As String, ByVal data As String, ByVal mem_mode As Long) As Long
Private Declare Function A_Set_Backfeed Lib "WINPPLA.DLL" (ByVal back As Long) As Long
Private Declare Function A_Set_BMPSave Lib "WINPPLA.DLL" (ByVal nSave As Long, ByVal pstrBMPFName As String) As Long
Private Declare Function A_Set_Cutting Lib "WINPPLA.DLL" (ByVal cutting As Long) As Long
Private Declare Function A_Set_Darkness Lib "WINPPLA.DLL" (ByVal darkness As Long) As Long
Private Declare Function A_Set_DebugDialog Lib "WINPPLA.DLL" (ByVal nEnable As Long) As Long
Private Declare Function A_Set_Feed Lib "WINPPLA.DLL" (ByVal Rate As Byte) As Long
Private Declare Function A_Set_Form Lib "WINPPLA.DLL" (ByVal formfile As String, ByVal form_name As String, ByVal mem_mode As Long) As Long
Private Declare Function A_Set_Margin Lib "WINPPLA.DLL" (ByVal position As Long, ByVal margin As Long) As Long
Private Declare Function A_Set_Prncomport Lib "WINPPLA.DLL" (ByVal baud As Long, ByVal parity As Long, ByVal data As Long, ByVal sstop As Long) As Long
Private Declare Function A_Set_Prncomport_PC Lib "WINPPLA.DLL" (ByVal nBaudRate As Long, ByVal nByteSize As Long, ByVal nParity As Long, ByVal nStopBits As Long, ByVal nDsr As Long, ByVal nCts As Long, ByVal nXonXoff As Long) As Long
Private Declare Function A_Set_Sensor_Mode Lib "WINPPLA.DLL" (ByVal ttype As Byte, ByVal continuous As Long) As Long
Private Declare Function A_Set_Speed Lib "WINPPLA.DLL" (ByVal speed As Byte) As Long
Private Declare Function A_Set_Syssetting Lib "WINPPLA.DLL" (ByVal transfer As Long, ByVal cut_peel As Long, ByVal length As Long, ByVal zero As Long, ByVal pause As Long) As Long
Private Declare Function A_Set_Unit Lib "WINPPLA.DLL" (ByVal unit As Byte) As Long
Top
3 楼joling321（）回复于 2006-08-25 09:36:24 得分 0
哇！ 这是啥玩艺啊？怎么用啊？谢谢！Top
4 楼joling321（）回复于 2006-08-25 09:41:51 得分 0
分不够可以再加！请帮一下我吧！谢谢！Top
5 楼yorkness（机器猫）回复于 2006-08-29 09:46:14 得分 0
上面就是开发二维条码需要用到的函数阿Top
6 楼joling321（）回复于 2006-08-30 09:05:55 得分 0
有没具体的用法啊？我是新手好难看懂啊。
Top
7 楼iamxiang（真心微笑）回复于 2006-09-04 17:17:28 得分 0
你去下载个条形码的源代码看看就可以了，很多的，枕善居里面好象也有的!Top
8 楼sjb_dl（飞火流星）回复于 2006-09-04 19:16:32 得分 0
卖二维条码枪的厂家有控件,买枪去吧!Top
9 楼joling321（）回复于 2006-09-05 09:06:17 得分 0
条形码的源代码我做过，就是二维的没做过，网上很少资料，控件都是要钱的。Top
10 楼TinyJimmy（Jimmy）回复于 2006-09-05 09:10:44 得分 0
二维条码读取的数据可生成模拟键盘数据信息吧, 难道开放硬件识别程序?Top
11 楼christion3（黑翼堕天使）回复于 2006-09-05 11:12:22 得分 0
用CODESOFT 6 ENTERPISET軟件在裡面拉個二維條型碼 在程序中和他對應的變量綁定就可以了
Public oCSVars As LabelManager2.Variables
oCSVars.FormVariables("變量名稱").Value=條型碼內容Top
12 楼joling321（）回复于 2006-09-06 10:31:12 得分 0
christion3(黑翼堕天使) 能说清楚点吗？
用CODESOFT 6 ENTERPISET軟件在裡面拉個二維條型碼 在程序中和他對應的變量綁定就可以了？？？谢谢1Top
13 楼skywolfY（莫愁）回复于 2006-09-06 13:48:41 得分 0
举个例子，一般来说二维条码都是这样 有个QRmaker控件，
打码时,
先用Printer对象打好，
再用PrintPicture 打到QRmaker控件中
Private Sub PrintPicture(ByVal X As Double, ByVal y As Double, ByVal Picture As IPictureDisp)
Printer.CurrentX = X
Printer.CurrentY = y
Printer.PaintPicture Picture, X, y
End Sub
PrintPicture 0.3, 0.3, QRmaker1.Picture
读码就麻烦了。有些公司不提供读码动态库，或是要注册。但可以自己写串口通信读取。
官方提供的动态库编写最好了。如果是用MSComm1自己写串口通信就得根据厂家不同来做了Top
14 楼christion3（黑翼堕天使）回复于 2006-09-06 17:19:52 得分 0
你想做成怎麼樣的效果阿?
2維條型碼做好了在哪顯示出來Top
15 楼joling321（）回复于 2006-09-07 13:39:13 得分 0
我想把数据库里的资料能分页的打印出来，比如说我的数据库里有100条记录，我要一页35个分几页打印出来。我就是想这样做？有好办法吗？谢谢！Top
16 楼christion3（黑翼堕天使）回复于 2006-09-07 13:50:19 得分 0
....
條型碼怎麼又成了分頁了...
寫個分頁存儲過程Top
17 楼jdbing2008（）回复于 2006-09-07 14:17:32 得分 0
大峡们好:请问二维条码是做什么的?
Top
18 楼kamengwang（卡蒙）回复于 2006-09-07 14:42:03 得分 0
一般二微条码打印机里都有dll,有接口文件和实例,你看看就知道怎么做了,呵呵Top
19 楼joling321（）回复于 2006-09-07 15:28:09 得分 0
條型碼怎麼又成了分頁了...
寫個分頁存儲過程 ????
我们数据库里是一条记录就对应一个二维条码，如果里面有100条的话那就对应100个二维条码。我们要求一页A4纸里分三排一页打35个。一页不够就分页打啊，明白了吧？ 我现在都不知道二维条码怎么个打法，更不用说分页了！
Top
20 楼christion3（黑翼堕天使）回复于 2006-09-07 15:35:02 得分 0
喔.不是告訴你了 .你 那 100條 紀錄 就對應 100 個 2維條型 碼 中的 內容
方法上面不是教你了?Top
21 楼superreed（）回复于 2006-09-15 19:33:22 得分 0
下个DLL: www.PDF417Kit.com
中国人写的.很好用的.里面有开发文档,vc/vb/dephi/vc#的示例代码.Top
