idemo.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 47 行

unit IDemo;

{$WARN SYMBOL_PLATFORM OFF}

interface

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

type
  TDemoComObj = class(TTypedComObject, IDemoComObj)
  protected
    procedure Drive; stdcall;
    procedure ride; stdcall;
  end;

implementation

uses ComServ, Demo;

procedure TDemoComObj.Drive;
var MyCar:TCar;
begin
  MyCar:=TCar.create;
  try
    MyCar.drive;
  finally
    MyCar.Free;
  end;
end;

procedure TDemoComObj.ride;
var Bicycle:TBicycle;
begin
  Bicycle:=TBicycle.create;
  try
    Bicycle.ride;
  finally
    Bicycle.Free;
  end;
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TDemoComObj, Class_DemoComObj,
    ciMultiInstance, tmApartment);
end.