小
小穷仔
Unregistered / Unconfirmed
GUEST, unregistred user!
我刚刚看懂了一点什么是接口, 可是看到Delphi从入门到精通的
一个例子(D3),p673
var
Anobj : Iunknown;
shlink : ishellLink;
PFile : IPersistFile;
begin
AnObj := createComObject(clsid_shelllink);
Shlink := AnObj as IShelllink;
pFile := AnObj as IpersistFile;
...
我就不懂了, 既然AnObj是按clsid_shelllink产生的,
为什么能强制转换成IpersistFile类型的?请多多指教!
一个例子(D3),p673
var
Anobj : Iunknown;
shlink : ishellLink;
PFile : IPersistFile;
begin
AnObj := createComObject(clsid_shelllink);
Shlink := AnObj as IShelllink;
pFile := AnObj as IpersistFile;
...
我就不懂了, 既然AnObj是按clsid_shelllink产生的,
为什么能强制转换成IpersistFile类型的?请多多指教!