uaggregatedobj.pas

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

unit uAggregatedObj;

interface

uses
  Windows, ActiveX, Classes, ComObj, pAggregateDemo_TLB, StdVcl;

type
  IAggInterface = interface
    ['{D6D810F0-EE6A-4374-A069-8EF6F3B1832F}']
    function GetInnerName(var sName: WideString): HResult; stdcall;
  end;

  TAggregatedObj = class(TAggregatedObject, IAggInterface)
  public
    function GetInnerName(var sName: WideString): HResult; stdcall;
  end;

implementation

{ TAggregatedObj }

function TAggregatedObj.GetInnerName(var sName: WideString): HResult;
begin
  sName := 'I am Aggregated Object!';
  Result := S_OK;
end;

end.