areaintf.pas

delphi com深入编程,非常有收藏价值

unit AreaIntf;

interface

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

type
  TUnitAuto = class(TTypedComObject, IUnitAuto)
  protected
    function Convert(Quantity: Double; InUnit, OutUnit: SYSINT): Double;
      stdcall;
    function Get_Name: WideString; stdcall;
    procedure Set_Name(const Value: WideString); stdcall;
    {Declare IUnitAuto methods here}
  end;

implementation

uses ComServ;

function TUnitAuto.Convert(Quantity: Double; InUnit,
  OutUnit: SYSINT): Double;
begin
  { Stubbed out because we're only interested in the type library }
end;

function TUnitAuto.Get_Name: WideString;
begin
  { Stubbed out because we're only interested in the type library }
end;

procedure TUnitAuto.Set_Name(const Value: WideString);
begin
  { Stubbed out because we're only interested in the type library }
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TUnitAuto, Class_UnitAuto,
    ciMultiInstance, tmApartment);
end.