hehe,我也碰到了同样的问题,比如有下面这些类:
TMyObj=class(TObject)
end;
TPerson=class(TMyObj)
end;
IObjFactory=Interface(IUnknown)
function GetObj:TMyObj
end;
我想把IObjFactory作为一个fa放在服务器中,作为一个COM对象输出。不知道可不可以实现
在客户端可以这样调用
procedure AAA
var
IA:IObjFactory;
MyPerson:TPerson;
begin
IA:=CreateComObject('AAA.BBB') as IObjFactory;
MyPerson:=IA.GetObj as TPerson;
ShowMessage(MyPerson.Name);
IA:=nil;
end;