- 博客(0)
- 资源 (4)
- 收藏
- 关注
MSBCODE9.ocx 条形码code128,code39打印
这是微软提供的条码控件,可以表示多种条码字体,具体资料大家可以查阅MSBCODE9.CHM,可以到office安装目录下查找。
msbcode9.ocx是微软公司OFFICE自带的一个条码控件。不需要条码字体直接就可以打印一些条码,比如CODE128、CODE39等。而且对于开发环境没有太多的限制,至少pb9、pb10都测试通过。
1、首先你要注册一下msbcode9.ocx控件。regsvr32 msbcode9.ocx
2、使用ole在PB中把注册的控件增加到窗口中或数据窗口中。
3、双击控件就会看到一些属性,包括选择条码字体。
4、不过也可以在程序中用代码来控制。
dw_1.o b j e c t.ole_1.o b j e c t.style = 7 //7代表CODE128 6代表CODE39
dw_1.o b j e c t.ole_1.o b j e c t.value = '条码值'
然后就可以打印了,最后测试没问题,激光打印机打出来的条码可以在普通的条码扫描枪上正确识别,而且扫描效果很好,比用字体实现的要好。但存在另一个问题,如果想要打印一批单据,每个单据都带条码的话,用条码字体比较好实现,用控件的话不好实现。可以先把ole对象存在数据库中,最后检索出来,但日后数据库检索的速度会很慢,这是因为存储ole对象的缘故。
2015-07-04
处理摄像头图像的动态库
能录像和抓拍图像。您可以使用函数function ulong capCreateCaptureWindowA(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId ) LIBRARY 'AVICAP32.DLL'
;
///开始事件:
string lpszName
ulong l1
l1=handle(win_test)
lpszName='摄像头界面...'
//capCreateCaptureWindowA(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId )
lhand=capCreateCaptureWindowA(lpszName,262144+12582912+1073741824 + 268435456 ,60,0,150,200,l1,0)
if lhand <> 0 then
send(lhand, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)
send(lhand, WM_CAP_SET_CALLBACK_ERROR, 0, 0)
send(lhand, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)
send(lhand, WM_CAP_DRIVER_CONNECT, 0, 0)
send(lhand, WM_CAP_SET_SCALE, 1, 0)
send(lhand, WM_CAP_SET_PREVIEWRATE, 66, 0)
send(lhand, WM_CAP_SET_OVERLAY, 1, 0)
send(lhand, WM_CAP_SET_PREVIEW, 1, 0)
end if
////录像事件
string s
s='c:\save.avi'
if lhand<>0 then
Send(lhand,WM_CAP_FILE_SET_CAPTURE_FILEA,0, s);
Send(lhand,WM_CAP_SEQUENCE, 0, 0) //开始捕捉
end if
//停止保存
send(lhand, WM_CAP_STOP, 0, 0)
/////保存图像
//保存为图片(按钮的clicked事件中)
string s
s='c:\save.bmp'
if lhand <> 0 then
Send(lhand,WM_CAP_SAVEDIB,0,s);
end if
2010-08-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人