评论

#fellow99 发表于2007-02-02 10:17:47  IP: 202.116.22.*

在java/cpp中使用interface那是多么顺手多么自然的事情。换到delphi来，必须步步为营！
我承认，我对delphi的接口实现不熟。。。好吧，我不在delphi中用接口了，我放弃。

#xiammy 发表于2007-02-02 11:05:24  IP:

呵呵，要用的时候，还是得用。

#zhmnsw 发表于2007-02-02 11:37:49  IP: 218.12.29.*

无聊的比较

语言所处的层次不一样，为什么要以己之长来比别人的短处呢？
VCL的设计同时兼顾了效率和扩展性，那么有些东西是需要牺牲的，它也比不过JAVA那种“反正我就是慢，不在乎那些牺牲”的言论，语言各有特点，各有各的适用范围，要是都一样了，干脆只出一种语言好了。

.NET或JAVA里对象接口混用是建立在独立的垃圾回收机制上的，但VCL没有，不要告诉我，这一点就是VCL不如这两种语言的原因之一。

虽然楼主恨铁不成钢的心情是可以理解的，但很多理由都不够充分，甚至是狡辩，没有杀伤力，就好比拿白痴能生活自理和很多医生不是院长来比一样。

VCL是不断进步的，如果在将来，它可以放弃以前要兼顾的一些特性，就能够踢开很多限制，实现更多的特性。

#zhmnsw 发表于2007-02-02 11:41:00  IP: 218.12.29.*

如果非要深究，楼主还是跟李维老师探讨一下吧，我等小辈水平太有限了，不过别忘了把聊天记录贴上共享哦。
以上言论如有不妥，敬请不吝赐教

#ralf1999 发表于2007-02-02 11:44:39  IP: 222.131.201.*

定义一个这样接可就可以解决你说的那个两问题
IObject = interface
function GetObjectInstance: TObject;
procedure ReleaseObjectInstance;
end;

其实也没什么，DELPHI就是DELPHI，有她自己的风格，只是你还不了解。

#Rainstorey 发表于2007-02-02 12:06:01  IP: 222.92.92.*

真所谓有得必有失。世界并非完美，人也是，语言机制也一样。某一特性或许在你看来是累赘在别人看来就是完美。要用不同角度看问题，没有绝对的不好也没有决对的Perfect

#zeroyet 发表于2007-02-02 12:36:43  IP: 218.249.11.*

你要求的接口混用的情况出现，我觉得是你设计出了问题，不是接口没有设计好，就是对象没有设计好。
还有关于释放的问题你的看看TInterfacedObject类了，TInterfacedObject类中Destroy是不会把还在引用的对象释放的，只是抛出一个异常（当然你可以改变这一点），你如果要用接口就从这个类派生。
TObject是核心，他不会为一个特定的需求去设计什么，我觉得设计本应该如此。

#hacker47 发表于2007-02-02 12:47:44  IP: 61.191.117.*

用java和c++的思想来使用delphi/pascal，
那是人的问题，不是delphi的问题。

#cocoboy79 发表于2007-02-02 13:09:27  IP: 60.27.21.*

VCL就现在来说，本来也就不是什么多先进的东西了。

#SeaWave 发表于2007-02-02 16:11:09  IP: 124.161.135.*

原文中说“对象指针和接口指针并不是同一个地址”，这句话没有交代明白，同一个对象实例，怎么可能不是同一个地址呢，这一点解释不通。
事实上，做个简单的实验，发现对象指针和指口指针肯定是同一个地址。新建一个工程，在Form上放一个Memo控件：

type
IFoo = interface
procedure Execute;
end;

TFoo = class(TInterfacedObject, IFoo)
procedure Execute;
procedure MyMethod;
end;

procedure Test(AFoo: IFoo);
begin
AFoo.Execute;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
intf: IFoo;
obj: TFoo;
begin
obj := TFoo.Create;
obj.Execute;
intf := obj;
intf.Execute;
Test(obj);
Test(intf);
end;

procedure TFoo.Execute;
begin
Form1.Memo1.Lines.Add(Format('this=%d', [Integer(Self)]));
end;

结果当然是地址都相同。

这段代码还说明了从对象转换到接口是很轻松的事情，连AS都不用（上面Test过程要求一个接口，由于obj这个对象实例实现了该接口，所以直接传递就可以了）。

至于原文中所说的“如何从接口转换到对象”，首先想到的是为什么要把接口转换到对象？动机是什么？通常，编程是基于抽象，用接口的目的就是为了让上层不必了解底层细节，将派生类看生基类是很自然的做法，反过来把基类向下强制转换为派生类就很费解了。

如果非要这么做，当且仅当你知道intf实现就是TFoo时，你可以用一个强制类型转换：

TFoo(intf).MyMethod;

#ralf1999 发表于2007-02-02 17:06:03  IP: 221.220.89.*

在实际情况中，将INTERFACE转换成OBJECT也是很正常的事。你提供的方法：
TFoo(intf).MyMethod;
强制将INTERFACE转换成OBJECT，将跳过DELPHI的编译检查，如果转换错误将得到一个空指针。如果你的INTERFACE定义的层次很深的话也不能保证转换成功。正常情况下应当什么AS操作转换，但DELPHI中AS操作不能作用于INTERFACE到OBJECT的转换。

DELPHI提供一个标准方法将INTERFACE转换为对象，即IInterfaceComponentReference接口，但此方法只针对从TCOMPONENT派生的类.但对于大规模复用的设计来说，使用TCOMPONENT作为最初的基类是唯一的选择。

也可以参照IInterfaceComponentReference，定义自已的INTERFACE类型树，系统的解决这个问题。

编程就像走钢丝，如果你掉下来，那一定不是因为钢丝太细。

#maozefa 发表于2007-02-02 18:12:34  IP: 221.201.146.*

Delphi中，由对象实现的接口后，对象和接口地址确实不相同，楼上举例显示的Self地址是对象的地址而不是接口地址，只不过说明对象方法映射到接口中了，从2个方面可以证明：
1、直接显示对象和接口的地址:
ShowMessage(Format('Obj=%.8x, Intf=%.8x', [Integer(Obj), Integer(Intf)]));
可以看出它们的地址是不一样的。
2、从BCB头文件代码可以证明，以TStreamAdapter为例：
class DELPHICLASS TStreamAdapter;
class PASCALIMPLEMENTATION TStreamAdapter : public System::TInterfacedObject
{
typedef System::TInterfacedObject inherited;

private:
TStream* FStream;
TStreamOwnership FOwnership;

public:
__fastcall TStreamAdapter(TStream* Stream, TStreamOwnership Ownership);
__fastcall virtual ~TStreamAdapter(void);
(省略)
private:
void *__IStream; /* IStream */

public:
operator IStream*(void) { return (IStream*)&__IStream; }

};

当调用一个类似下面c++方法时候：
void Load(IStream *stream);
是这样传递参数的：
TStreamAdapter *adapter = new TStreamAdapter(参数省略);
Load(*adapter);
也就是说不是直接传递adapter地址，而是用了一个取值符号*，而这个取值符号又是重载了的：
operator IStream*(void) { return (IStream*)&__IStream; }
取得是TStreamAdapter的一个私有指针__IStream而已。


我上面只是实事求是指出Delphi接口和对象地址问题，并不代表我同意博主的观点，正如楼上zhmnsw所说：“我等小辈水平太有限了”。

#cuizm 发表于2007-02-02 20:46:22  IP: 60.20.193.*

路过

http://www.egooglet.com/

#xiammy 发表于2007-02-02 23:04:25  IP: 221.218.35.*

不好意思，没有交代清楚。如果大家研究过TObject的方法，就会在InitInstance方法中发现端倪。
<pre>
class function TObject.InitInstance(Instance: Pointer): TObject;
{$IFDEF PUREPASCAL}
var
IntfTable: PInterfaceTable;
ClassPtr: TClass;
I: Integer;
begin
FillChar(Instance^, InstanceSize, 0);
PInteger(Instance)^ := Integer(Self);
ClassPtr := Self;
while ClassPtr <> nil do
begin
IntfTable := ClassPtr.GetInterfaceTable;
if IntfTable <> nil then
for I := 0 to IntfTable.EntryCount-1 do
with IntfTable.Entries[I] do
begin
if VTable <> nil then
PInteger(@PChar(Instance)[IOffset])^ := Integer(VTable);
end;
ClassPtr := ClassPtr.ClassParent;
end;
Result := Instance;
end;
</Pre>
其中， PInteger(@PChar(Instance)[IOffset])^ := Integer(VTable);就是在对象实例中初始化接口的VMT指针。

#cimil 发表于2007-02-03 08:55:12  IP:

我说大哥，你起子号能不能规范点，上次那个就不说了，这个星子怎么跟日本女人似的，还是看书的时候看反了，改成子星要好多了。

#daiyun 发表于2007-02-03 12:06:10  IP: 221.137.132.*

vcl 开发出来的时候是什么年代的事情，C#开发出来的时候又是什么年代的事情，有可比性么，虽说都是出自同一人之手笔。

#yrb 发表于2007-02-03 13:09:13  IP: 219.159.20.*

哗众取宠，可恶！

#StevenLee 发表于2007-02-03 16:54:06  IP: 221.218.192.*

每种语言都有自己的优劣，取其长，避其短，这才是正道
楼主这样用Delphi，只能说明楼主对Delphi的理解过于肤浅

#aimingoo 发表于2007-02-04 00:06:15  IP: 61.173.115.*

哎～～楼上的立意就不对～～一杆子打翻一船人，激起众怒又开架～何必何必～

VCL归Delphi RTL管，COM归Win32内核管，Delphi中的Interface最早先被设计出来，是与COM有关的。你不能指望borland一开始就设计好一个与COM完全无关的接口机制，还要让它会满足“用于COM”这样一个设计需求。

又，使用COM Interface，就不要让Delphi管理实例的生存周期。混用二者是灾难。但这是COM的机制决定的，根本不是、也不需要是要Delphi通过改变对象实例的结构来解决的问题。

#xiammy 发表于2007-02-04 00:28:03  IP: 221.222.75.*

关于语言的设计，我非常赞同Ruby的最小惊讶原则。当然了，这个原则在这里我要重新诠释一下，那就是，接口的使用不应该让不了解的人走到错误的路线上。是的，我们可以约束自己的调用规范。但是，请不要忘了，我们在讨论一个好的设计，而不是好的使用技巧。

#xiammy 发表于2007-02-04 00:31:37  IP: 221.222.75.*

to aimingoo:非常感谢你的提醒，看来我的修为还是要提高提高了。

#edgethinking 发表于2007-02-05 09:15:06  IP: 58.60.128.*

没看懂. 平时工作中用不到这些知识.

#huanzhugege 发表于2007-02-05 09:26:33  IP: 61.48.59.*

正是由于Delphi对接口支持的不完善性，我逐渐放弃了他

#LastWorker 发表于2007-02-05 11:09:43  IP:

支持aimingoo的观点!
aimingoo说的其实在李维的书上说的很清楚了,楼主看来是只把注意力放到寻找"苛评"上了,忘了仔细看书了.
不过楼主"苛评"的精神是值的鼓励的.

#wr960204 发表于2007-02-05 14:24:59  IP: 61.235.75.*

大概是楼主不太知道COM的实现机制吧。有些没办法，是由COM的机制限制的，不是一个FrameWork可以搞定的。
还有接口固然是VMT，可是不能和对象的VMT混用实现接口和对象的地址一致。这个道理楼主想一下就明白了。
还有你说的As操作符的反操作，可以非常容易的实现接口到对象的转变。只要给接口添加一个GetObject的方法，在方法的实现处直接写Result：=Self；就好了

#xiammy 发表于2007-02-05 14:45:40  IP: 218.249.220.*

优美的设计必然是平衡的。正如:E=mc^2一样，E转换成质量，质量也可转换成E。
现在，提供了从对象到接口的AS，却没有从接口的对象的AS！
另外，如果Delphi不提供AS，那么你是不是就在对象里增加一个方法叫GetInterface呢？这和增加GetObject是一个道理。不在于大家是不是知道怎么实现这个功能，而在于设计本身是不是考虑好这个问题。

#mustangzhi 发表于2007-02-05 17:23:24  IP: 58.44.118.*

对象指针和接口指针并不是同一个地址

如果我没误解你的话,我觉得这点并没影响,
但你讲这个设计是个缺点的话?

我会问你对象指针和接口指针是同一地址的情况可能吗?

对象和接口的指针地址都只是引用,是两个完全不同的变量,你不可能期望一个对象的引用和一个接口的引用使用同一个地址,就像你不能期望两个不同的变量使用同一地址一样.

但接口指针和对象指针实际指向同一对象是可以的.
这种情况是实际的对象存储在同一内存空间.

如果没有另一个不同的对象引用,我们的对象又从哪里创建出来?
接口的引用本身是不能创建对象的吧?

你讲的其它几个缺点我更加是不知所云了.
(同样呀,"我等小辈水平太有限了")

#ylmg 发表于2007-02-05 23:35:06  IP:

对象指针转为接口指针，这是可以理解的，但为什么要从接口指针转为对象指针呢？如果一定要这么做，很可能是设计上出了问题。
顺便提醒一点，如果你是准备从delphi的对象模型中来找结论的话，有一个问题是无法回避的：如果这个接口的实现类不是delphi写的呢？
就算这个实现类是delphi写的，你也得考虑一些问题，例如如果是用接口委托的方式实现的话，是不是会有问题。
写过一个比较变态的函数，如下：
{
很变态的一个函数实现。
如果一个类实现了某些接口，现在已经拿到了指向接口的指针，但如果需要拿到对象指针的话，
需要用额外的比较麻烦的方法，这里提供一个函数可以方便拿到对象指针，该函数依赖于
delphi 的内部编译实现，如果这个类是由其他语言实现的话，不可以使用该函数。
因此通常情况下不建议使用该函数。
}
function GetObjectFromIntf(Intf: IUnknown): TObject;
begin
Result:= TObject(Integer(intf) - ((not PByte(PInteger(PInteger(intf)^)^ + 4)^ + 1) and $000000ff));
end;

#bluniu 发表于2007-02-06 10:51:18  IP:

看到这么多谦虚的高手，我发现我用了3年的delphi（虽然现在不用了）还基本等于白痴级。没有各位究根刨底的精神。
我发现其实大家都有个共同的，就是也同时在学习研究其它语言。。。

如果以在座各位的水平，能组织起来一起做点东西，也是件不错的事，提倡互相讨论进步，不提倡互相鄙视。

因为在delphi调用com事件响应时嫌搞得有点麻烦，而且还没实现。所以中断了学习。

顺便弱弱的文句，如果也变态的使用同一接口在单线程实现两个不同的对象（虽然一般情况下无此必要），如果接口指针与对象指针一致，那是不是说两个对象。。。，好象有点不太对劲。或者是接口VMT中也有了两处记录，com原理不懂，朋友们给解释下。

#ralf1999 发表于2007-02-06 11:31:15  IP: 221.220.91.*

关于将INTERFACE转换为OBJECT，前提是：
在不使用COM的情况下，只是将INTERFACE做为一般的OO技术使用在设计中。
例如：
由FACTORY创建的对象通常得到的是一个INTERFACE，当这个对象被交还给FACTORY消毁时需要可能需要由INTERFACE转换为OBJECT。
当使用OBJECT POOL时，当传入对象时可能需要由INTERFACE转换为OBJECT。
等等，另外一点是，VCL的设计是基于OBJECT的，当在你的设计中对VCL中的类进行包装时（包装到INTERFACE中），尢其是涉及到VISUAL OBJECT时，往往会发生INTERFACE到OBJECT的转换。

INTERFACE转为OBJECT也不是什么奇怪的事，即然存在这么一项功能，那么就可以考虑：怎么用？用在哪？为什么用？不必急着贴标签，因为技术本来就是这么一回事，没有什么不可以的。

#Myjiajia 发表于2007-02-06 12:45:36  IP: 222.70.187.*

把这篇文章放到论坛里面,你就知道自己有多肤浅了.

上面有位网友评论的好:
哗众取宠，可恶！

#lichaohui 发表于2007-02-07 20:38:12  IP: 58.240.64.*

不要有所谓受制与MS 的心理阴影，

这带来的好处就是对COM非常好的支持，
COM是一个伟大的划时代的设计，不要小看MS，
Delphi从中也得到了灵感，

在MFC中，接口地址未必就是对象地址，
因为涉及到多个虚拟方法表之间的切换，
至于混用的问题，则是明知不能而为之，
C++中的安全指针也有很多约束条件，你会故意的去违反这个
约束条件吗？

实际上，对比一下在c++ 和 delphi 中编写 COM对象和调用COm对象就会发现，TObject真是天才的设计。

#HappyTeam 发表于2007-05-15 18:02:54  IP: 211.155.28.*

各位高人，从TComponent与自定义的接口一并继承下来的类，怎样使用 接口转对象 操作？
JCL里使用什么函数？

#xiammy 发表于2007-05-15 22:41:06  IP: 221.216.18.*

参见：《JCL中由接口获得对象的方法》http://blog.csdn.net/xiammy/archive/2007/05/15/1610610.aspx