在DELPHI6中按部就班的用李维的例子PDemoProfileObject,客户端(本机)老是提示interface not supported, 请问到底什么问题,搞的一头雾水,而用delphi5是可以的,在CSDN上找到篇文章,(Transactional objects support MTS and COM+. MTS support was exclusive to Delphi 5 Enterprise but transactional objects are supported in Delphi 6 Professional Edition. 
)好象是DELHI6只有Professional 才支持啊,COM+我用的Transactional object
大至代码如下:
客户端:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,PDemoProfileObject_TLB;type
  TForm1 = class(TForm)
    edName: TEdit;
    edPassword: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    edCookie: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
USES ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var LoginObj:IMTSSecurityObj;
    vCookie:OleVariant;
begin
//  LoginObj:=CoMTSSecurityObj.CreateRemote('ztech-ec03c9ecd');
  LoginObj:=CoMTSSecurityObj.CreateRemote('127.0.0.1');
  LoginObj.Login(edName.Text,edPassword.Text,vCookie);  if vCookie<>'' then
  begin
    edCookie.Text:=vCookie;
    edCookie.Visible:=True;
  end
  else
  begin
    Application.MessageBox('无法登陆','警告',MB_OK+MB_ICONWARNING);
  end;
end;  

解决方案 »

  1.   

    也许是还有一些调用到的dll没有在系统中注册,
    以前我在delphi5中用midas开发三层时,因为刚开始没有注册midas.dll,也是老是提示
    这个错误interface not supported
      

  2.   

    TO lovendII(流氓都做了城管) :我这根本没用到MISDAS,因为还没用到数据模块,只是通过接口(可能这么叫吧)调用的.
    to wing_er() ( ):我是在本机上用的,还没应用到局域网中,这也需要设置权限,如果需要那我的DELPHI5为什么可以呢?我也没设置啊
    恳请各位关注一下该问题