unitfile.pas

Delphi 6分布式开发例程3.rar :)

unit Unitfile;

{$WARN SYMBOL_PLATFORM OFF}

interface

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

type
//TTypeDllServer类的声明
  TTypeDllServer = class(TTypedComObject, ITypeDllServer)
  public
    Name: WideString;
  protected
    function GetName: WideString; stdcall;
    function GetSalary(Bonus, BaseSalary: Single): Single; stdcall;
    procedure SetName(const NewName: WideString); stdcall;
  end;

implementation

uses ComServ;

function TTypeDllServer.GetName: WideString;
begin
  Result := Name; //返回员工名称
end;

function TTypeDllServer.GetSalary(Bonus, BaseSalary: Single): Single;
begin
  Result := BaseSalary + Bonus; //返回员工的薪水
end;

procedure TTypeDllServer.SetName(const NewName: WideString);
begin
  Name := NewName; //设置员工姓名
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TTypeDllServer, Class_TypeDllServer,
    ciMultiInstance, tmApartment);
end.