接口的问题

[panxiaosen]

初学接口,又碰到一个问题

unit Unit2;

interface
uses
  Windows;

type
  IBase = interface
    procedure a;
  end;

  IMyTest = interface(IBase)
    procedure b;
  end;

  tbase = class(TInterfacedObject, ibase)
    procedure a;
  end;

  tmytest = class(tbase, imytest)
    procedure b;
  end;

function CreateMytest: IBase;
implementation

{ tbase }

procedure tbase.a;
begin

end;

{ tmytest }

procedure tmytest.b;
begin
  MessageBox(0, 'test', 'test', MB_OK);
end;

function CreateMytest: IBase;
begin
  Result := tmytest.create;
end;
end.

为什么
a := CreateMytest;
imytest(a).b;
不行


但是

a := CreateMytest;
Tmytest(a).b;
就可以了呢?


我是准备通过接口来操作类的...应该怎么改好呢??

[panxiaosen]

对了,a的声明如下

a: IBase;

[五维思考]

因为Tmytest实现了IBase和IMyTest接口，所以Tmytest(a).b这样是正常的

IBase和IMyTest接口没有关系，所以imytest(a).b转换肯定会出错的

[五维思考]

var a: IBase;
begin
  a:=tbase.Create;
  //或者a:=tmytest.Create;
  tmytest(a).b;
end;

这样就可以通过接口来操作类

[panxiaosen]

[Quote=引用 3 楼 3150379 的回复:]
Delphi(Pascal) code
var a: IBase;
begin
a:=tbase.Create;
//或者a:=tmytest.Create;
tmytest(a).b;
end;



这样就可以通过接口来操作类
[/Quote]

tmytest(a).b;

这样子不是还要引用类吗? 我想把类封装到DLL里,只提供接口来操作.. 难道没办法了吗?

[7年]

学习，帮顶。

[starluck]

unit Unit3;

interface
uses
  Windows;

type
  IBase = interface
    procedure a;
  end;

  IMyTest = interface(IBase)
    procedure b;
  end;

  Tbase = class(TInterfacedObject, ibase)
    procedure a;
  end;

  Tmytest = class(tbase, imytest)
    procedure b;
  end;

function CreateMytest: imytest;
implementation

{ tbase }

procedure tbase.a;
begin

end;

{ tmytest }

procedure tmytest.b;
begin
  MessageBox(0, 'test', 'test', MB_OK);
end;

function CreateMytest: imytest;
begin
  Result := Tmytest.create;
end;
end.





//  測試：
procedure TForm2.Button1Click(Sender: TObject);
var
  a : IMyTest;
begin
 a := CreateMytest;
 IMyTest(A).b;
end;

[panxiaosen]

[Quote=引用 6 楼 starluck 的回复:]

//  測試：
procedure TForm2.Button1Click(Sender: TObject);
var
  a : IMyTest;
begin
 a := CreateMytest;
 IMyTest(A).b;
end;

[/Quote]


a不能定义成具体的派生接口,因为会有很多个从IBASE派生出来的接口,CreateMytest返回哪个派生接口是未知的,所以只能定义成IBASE

[panxiaosen]

刚才试了一下
把
imytest(a).b;

改成
(a as imytest).b;

就可以了?? 哪位兄弟来解释一下? 还有这样使用会不会有问题?

[bdmh]

delphi帮助中的解释
Classes that implement interfaces can use the as operator for dynamic binding on the interface

[starluck]

兄弟你再看下你的代碼，你確定你的理論？

[qiume]

[Quote=引用 4 楼 panxiaosen 的回复:]
引用 3 楼 3150379 的回复:
Delphi(Pascal) code
var a: IBase;
begin
a:=tbase.Create;
//或者a:=tmytest.Create;
tmytest(a).b;
end;


这样就可以通过接口来操作类


tmytest(a).b;

这样子不是还要引用类吗? 我想把类封装到DLL里,只提供接口来操作.. 难道没办法了吗?
[/Quote]

如果要传递接口，应该使用COM对象而不是DLL......

[panxiaosen]

呵呵 结贴了,现在可以用了,就不知道有没问题...... 接口,COM,我是一窍不通..继续学习中...可能还要叨扰各位 :)