simpleserver.pas

《Delphi COM深入编程》原书光盘

unit SimpleServer;

interface

uses
  ComObj, ActiveX, DCOMServer_TLB;

type
  TSimpleDCOMServer = class(TAutoObject, ISimpleDCOMServer)
  protected
    function AreYouThere: WordBool; safecall;
    { Protected declarations }
  end;

implementation

uses ComServ;

function TSimpleDCOMServer.AreYouThere: WordBool;
begin
  Result := True;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TSimpleDCOMServer, Class_SimpleDCOMServer,
    ciMultiInstance, tmApartment);
end.