udemocom.pas

来自「多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术」· PAS 代码 · 共 34 行

unit uDemoCOM;
{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ActiveX, Mtsobj, Mtx, ComObj, PDemoCOM_TLB, StdVcl, SysUtils;

type
  TDemoCOM = class(TMtsAutoObject, IDemoCOM, ISecond)
  protected
    function GetSystemTime: WideString; safecall;
    function GetGreeting: WideString; safecall;
  end;

implementation

uses ComServ;

function TDemoCOM.GetGreeting: WideString;
begin
  Result := 'Second Interface : ISecond';
end;

function TDemoCOM.GetSystemTime: WideString;
begin
  Result := DateTimeToStr(Now);
end;

initialization
  TAutoObjectFactory.Create(ComServer, TDemoCOM, Class_DemoCOM,
    ciMultiInstance, tmApartment);
end.