Z
zhang
Unregistered / Unconfirmed
GUEST, unregistred user!
我在客户端调用服务器的COM+时出现“interface not supported”错误是什么原因(同一台
机器上调用没问题)。客户端代码如下:
const
classid:TGUID= '{7DAEA8E7-3D2A-4CD6-8BDA-9395E21DD8FA}';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var iroot:IUnknown;
Isum1:Isum;
count,begin
time,endtime:integer;
begin
begin
time:=gettickcount();
iroot:=createremotecomobject('orserver',classid);
Isum1:= iroot as isum;
Isum1.sum(10,count);
endtime:=gettickcount();
edit2.text:=inttostr(endtime-begin
time);
end;
安装客户端时我也是先从服务器的组件服务中导出组件的MSI文件,然后在客户端上安装的。
各位富翁帮帮忙。
机器上调用没问题)。客户端代码如下:
const
classid:TGUID= '{7DAEA8E7-3D2A-4CD6-8BDA-9395E21DD8FA}';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var iroot:IUnknown;
Isum1:Isum;
count,begin
time,endtime:integer;
begin
begin
time:=gettickcount();
iroot:=createremotecomobject('orserver',classid);
Isum1:= iroot as isum;
Isum1.sum(10,count);
endtime:=gettickcount();
edit2.text:=inttostr(endtime-begin
time);
end;
安装客户端时我也是先从服务器的组件服务中导出组件的MSI文件,然后在客户端上安装的。
各位富翁帮帮忙。