serverunit1.pas

Delphi6分布式开发例程 :)

unit ServerUnit1;
{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ActiveX, Mtsobj, Mtx, ComObj, ServerApp_TLB, StdVcl;

type
  TComPlus = class(TMtsAutoObject, IComPlus)
  protected
    function Cal(x, y: Integer): Integer; safecall;
    function Verify(const sName, sPassword: WideString): Shortint; safecall;
    { Protected declarations }
  end;

implementation

uses ComServ;

function TComPlus.Cal(x, y: Integer): Integer;
begin
   Result := x + y;  //计算函数
end;

function TComPlus.Verify(const sName, sPassword: WideString): Shortint;
begin
//登陆检查函数
   if ((sName = 'speed' ) and (sPassword = 'delphi')) then
     Result := 1
   else
     result := 0;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TComPlus, Class_ComPlus,
    ciMultiInstance, tmApartment);
end.