可用分押宝游戏火热进行中...	专题改版：Java Web 专题

comm contorl的ole插不进去呀

楼主nsqsmile（阿南）2004-12-02 03:30:50 在 PowerBuilder / 基础类提问

提示insert ole object failed,lince file required

怎么回事呀问题点数：100、回复次数：18Top

1 楼feixianzhi（函数）回复于 2004-12-02 08:35:10 得分 10

你用的控件是要给米的!
错误的意思是你要插入的ole没有许可文件!
最好从网上找一个破解版的!Top

2 楼lzp_lrp（lzp）回复于 2004-12-02 08:46:25 得分 10

建议你安装一个VB即不会出现这个问题Top

3 楼braversmmu（笨鸟先飞）回复于 2004-12-02 08:47:03 得分 10

OLE控件一定不能是加密的Top

4 楼braversmmu（笨鸟先飞）回复于 2004-12-02 08:47:42 得分 2

请问你插入的是什么控件？Top

5 楼balloonman2002（）回复于 2004-12-02 09:11:25 得分 20

如果是mscomm32.ocx的话，用regsvr32注册后，再将下面的reg保存为demo.reg导入注册表即可正常使用

REGEDIT4

[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905]
@="kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

Top

6 楼sdhylj（青锋-SS)(献血有益健康(别人的)）回复于 2004-12-02 10:28:50 得分 10

用Visual Studio 6.0装个ActiveX控件就可以了。Top

7 楼nsqsmile（阿南）回复于 2004-12-02 13:18:28 得分 0

是mscomm32.ocx,那为兄弟提供个为加密的 NSQSMILE@163.com

问 balloonman2002兄，导入注册表后，我在另一台机器上运行的话怎么办呀Top

8 楼nsqsmile（阿南）回复于 2004-12-02 13:26:29 得分 0

是解密的
Top

9 楼nsqsmile（阿南）回复于 2004-12-02 13:34:06 得分 0

balloonman2002兄，用你的方法我试了为何不行呢Top

10 楼xirumin（吃好喝好）回复于 2004-12-02 15:55:46 得分 2

学习来了Top

11 楼nsqsmile（阿南）回复于 2004-12-02 23:43:54 得分 0

balloonman2002兄，可以插入了，不过键值应该没有@="

但我用下面的代码，无法读取呀,是不是portopen 设为true 后，读卡器read灯就应该亮的

string ls_a
ole_1.object.CommPort = 1
ole_1.object.settings = "9600,n,8,1"
ole_1.object.inputlen = 0
ole_1.object.inbuffersize = 1024
ole_1.object.inbuffercount = 0
ole_1.object.portopen = true

do
yield()
loop until ole_1.object.inbuffercount>=1

ls_a = ole_1.object.input
messagebox("",ls_a)
ole_1.object.portopen = falseTop

12 楼nsqsmile（阿南）回复于 2004-12-02 23:44:07 得分 0

中午咋没发成功呢，哎，越忙越乱啊

兄弟们快来帮按侃侃
Top

13 楼renwanly（★★★★）回复于 2004-12-03 16:00:09 得分 2

http://www.gjwtech.com/scomm/manaualregistermscomm.htmTop

14 楼nsqsmile（阿南）回复于 2004-12-03 18:34:09 得分 0

能插入空件了，但没法读Top

15 楼lzp_lrp（lzp）回复于 2004-12-04 18:11:13 得分 20

不能那样循环，你这么写试试

do
yield()
ls_a = ole_1.object.input
loop until len(ls_a) >= 1

我在做串口取数的地方，从没用过
do
yield()
loop until ole_1.object.inbuffercount>=1
建议你去掉，按我说的方法，再试试Top

16 楼hygougou（uoguogyh）回复于 2004-12-04 20:14:21 得分 9

关注：若不行就留E-MAIL吧，我给你发资料，我常年用到串口通信Top

17 楼lzheng2001（１加１）回复于 2004-12-05 00:18:47 得分 5

//你的循环中用了yield(),pb会继续执行循环后面的语句,可能就是这样读不了数据,试试这样吧
do
yield()
if ole_1.object.inbuffercount>=1 then
ls_a = ole_1.object.input
messagebox("",ls_a)
ole_1.object.portopen = false
end if

loop until ole_1.object.inbuffercount>=1

Top

18 楼nsqsmile（阿南）回复于 2004-12-05 20:44:08 得分 0

在这先写过各位兄弟

to lzheng2001(１加１＝０) 试了一下，不行

to hygougou(狗狗) e-mail nsqsmile@163.com 谢谢

Top