[求助]追老马追到这里来了

szbory · 发表于 2008-10-15 09:49:20

那天我问ActiveX.exe与程序传递数据的问题
 
你回答说：
与使用普通的类差别不大,只是要注意: 一,编译A EXE时,编译选项里选择"每个对象使用一个线程"; 二,实例化对象时,不能使用New,而要用CreateObject语句. 三,数据放入对象后,可以使用一个定时器来返回当前过程,具体: (调用者端)数据放入对象内----->启动定时器------->返回调用者 (A EXE端)接收到数据------->等待定时器事件(此时调用者已经返回)-------->定时器事件到来,开始提交数据 不然,你如果直接利用A EXE里的对象来提交,还是一样会在提交完成前造成无响应. 
 
 
我想再问问你，为啥要用CreateObject语句？ 
还有就是我用NEW能正常调用，用CreateObject就会报实时错误91 这是为什么呢？先谢了哈~

马大哈 · 发表于 2008-10-15 12:34:47

CreateObject的作用是让建立的对象处于一个新的线程里......你用NEW当然也可以,只是NEW出来的对象并非是处于另一线程,而是在你当前线程里
 
因此如果这个NEW的对象里有阻塞操作,一样会挂起整个程序(VB6里就是当前线程).
 
所以才要用CreateObject.
 
至于这个函数,具体语法可能你没有弄对,查一下MSDN里的具体用法吧
 
我这里有关于利用ActiveX EXE实现多线程的相关文章与代码,你可以参考一下,有不明白的请回复:
 
<a href="http://www.m5home.com/blog/article.asp?id=65">http://www.m5home.com/blog/article.asp?id=65</a>
 
<a href="http://www.m5home.com/blog/article.asp?id=54">http://www.m5home.com/blog/article.asp?id=54</a>

szbory · 发表于 2008-10-15 15:21:05

Dim myJob As Object myJob = CreateObject("BigJobServer.BigJob")
 
这样会出现实时错误91, 但用NEW方式就没错
 
这种情况是我A EXE里有错误吗?

马大哈 · 发表于 2008-10-16 10:54:35

我这里是完全正常的
 
BigJobServer.BigJob,这里面的BigJobServer是不是BigJob类所在的库名?有没有拼写/大小写错误?
 
EXE工程里,你按F2打开对象浏览器,在第一个库名COMBO里选中你的库,看看下面是不是类似这样:
 
Library MultThread     D:\SysBack\我的程序\VB6.0\VB多线程(用ActiveX EXE实现)\A EXE\MultThread.exe 
"Library MultThread"这里就说明了真正的库名,我的例子是MultThread.那么就应该写"MultThread.XXXXX".

szbory · 发表于 2008-10-16 12:48:12

问题解决了只能用
Set myJob = CreateObject("BigJobServer.BigJob")
 
如果我用
    Dim myJob As Object     myJob = CreateObject("BigJobServer.BigJob")
 
会出现实时错误91...[em62]
 
MSDN的例子都可以这样的嘛
 

<table>
<tbody>
<tr>
<td style="BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px">
<div class="CodeSnippetTitleBar">
<div class="CopyCodeButton"> </div></div></td></tr>
<tr>
<td style="BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px"><pre class="libCScode" id="ctl00_rs1_mainContentContainer_ctl31other" space="preserve">Sub CreateADODB()
Dim adoApp As Object
adoApp = CreateObject("ADODB.Connection")
End Sub</pre></td></tr></tbody></table>

[此贴子已经被作者于2008-10-18 21:04:46编辑过]

szbory · 发表于 2008-10-18 20:58:00

OMG 虽然问题解决了但还是比较迷惑.....[em52]

马大哈 · 发表于 2008-10-23 01:00:13

我估计是ADODB.Connection对象与你建立的对象有不同.
 
原因不清楚,没研究过.....
 
查了一下MSDN,貌似也没有说明SET使用中的必要性.
 
看来这个细节MSDN是没有考虑到?

账号		自动登录	找回密码
密码			加入我们

[求助]追老马追到这里来了

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章