请问谁用过Remote Automation?

snowguy 2000-12-25 01:02:00
有问题请教!
在Remote Automation中,客户方怎样才能使用withevents 申明类而不发生80004005错误!
...全文
138 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
snowguy 2001-02-08
关注
回复
snowguy 2000-12-30
在win95/98里是要装DCOM95/98的,但是就是不知在95/98里怎样设置网络!
WUCCC,您能不能详细讲解一下95/98下网络的设置方法(NT4。0和windows2000我会的)
回复
wuccc 2000-12-30
我没有太多时间上网,还有问题欢迎给我发信:
rhost@china.com
回复
wuccc 2000-12-30
不好意思,隔了这么久. 今天终于翻出了以前的代码,
看了一下,解释如下:
Set myCls = New Class1 不对
应当为
Set myCls = CreateObject("Class1","ServerName")
其中"ServerName"是服务器的计算机名.
在95/98下网络不需特别设置,反而在NT下权限设置很麻烦.
回复
wuccc 2000-12-29
我一直是使用NT4.0的,不论server还是client都是,
所以无论使用DCOM还是RPC都没有问题,只需要设一下
相关权限就可以了,用win95/98作服务器我想需要安装
DCOM95/98(Visual Studio 光盘里面有)。
回复
snowguy 2000-12-29
难道没人知道吗?
回复
snowguy 2000-12-28
wuccc,在不在?
回复
snowguy 2000-12-27
请指点!
回复
snowguy 2000-12-27
假若我在Server中包括以下代码:

Class1中的CODE

Option Explicit
Public Event SendMessage1
......
Private Sub Text1_change()
......
RaiseEvent SendMessage
End
......

然后在客户方包括以下代码:
Option Explicit

Private WithEvents myCls as Class1

Private Sub Form_Load()
Set myCls = New Class1 '???????????????????????
.......
End Sub

Private Sub myCls_SendMessage()
msgbox "Message Arive"
End Sub

程序在执行时会出现错误,错误代码是80004005,看MSDN说是Remote Automation不支持WithEvents!但听说有人可以做到这一点,不知道是不是借用了其他软件。当然用DCOM是
能够做到的。但如果是在win95/win98做服务器和工作站时又怎么样配置网络呢?
回复
wuccc 2000-12-25
请详细些,我没有遇到这样的问题。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告