关于com的一个小问题(50分)

夜

夜黑风高

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #1

我用vb写了客户端调用com的程序,但是运行会提示错误,请问以下代码用delphi怎么写?
Option Explicit
Sub main()
Dim objTmp As Object
Dim strMessage As String
Set objTmp = CreateObject("工程名.类名","服务器名")
strMessage = objTmp.Service()
End Sub

 

E

ezacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #2

运行会提示什么错误？
是不是无法创建对象？

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #3

这是dcom对象了吧？ 测试一下服务器名的这台服务器是否可以访问。

 

H

Hongjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #4

用Delphi写的话如下：
procedure main;
var
objTmp: IYourObject;
strMessage: String;
begin
objTmp:=CreateRemoteComObject('服务器名',ProgIDToClassID('工程名.类名')) as IYourObject;
strMessage:=objTmp.Service();
end;

 

夜

夜黑风高

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #5

多人接受答案了。