CreateRemoteComObject 如何配置?

ilikeff8 2005-09-05 05:44:08

var
COM:OleVariant;
begin
COM:=CreateRemoteComObject('Server',ProgIDToClassID('Project1.Functions')) as IDispatch;
COM.GetServerStateString;
end;

假设本地机器名为Client(192.168.1.55),服务器名为Server

Project1已经在Server上用regsvr32注册

可运行时说无法写注册表,是权限不够?(我可以看服务器的东西的呀)
是ProgIDToClassID读本地注册表的原因吗?那远程怎么读?


而且注册/调用本地的也会有这个问题



var
COM:OleVariant;
begin
COM:=CreateRemoteComObject('Client',ProgIDToClassID('Project1.Functions')) as IDispatch;
COM.GetServerStateString;
end;



var
COM:OleVariant;
begin
COM:=CreateComObject(ProgIDToClassID('Project1.Functions')) as IDispatch;
COM.GetServerStateString;
end;



var
COM:OleVariant;
begin
COM:=CreateOleObject('Project1.Functions');
COM.GetServerStateString;
end;



var
COM:OleVariant;
begin
COM:=CreateRemoteComObject('Client',ProgIDToClassID('Project1.Functions')) as IDispatch;
COM.GetServerStateString;
end;

都没问题,但如果用本地计算机IP
var
COM:OleVariant;
begin
COM:=CreateRemoteComObject('192.168.1.55',ProgIDToClassID('Project1.Functions')) as IDispatch;
COM.GetServerStateString;
end;

也是不能写注册表错误?
最后,CreateRemoteComObject能跨域吗






...全文
139 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
caike 2006-01-02
  • 打赏
  • 举报
回复
在开始时运行一下cointizlize方法。
real_name 2005-09-07
  • 打赏
  • 举报
回复
关注
ilikeff8 2005-09-05
  • 打赏
  • 举报
回复
ip不会错,ip错就会调用失败而抱告“尚未coinitialize”了
real_name 2005-09-05
  • 打赏
  • 举报
回复
是不是IP 取错啊?

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧