uusers.pas

Delphi面向对象编程思想附书源码 好用哦！

unit uUsers;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ActiveX, Classes, ComObj, UserComSvr_TLB, StdVcl ,
  Variants;

type
  TUser = class(TTypedComObject, IUser)
  protected
    procedure getDepList(out Deps: OleVariant); stdcall;
    procedure getUserList(const strName: WideString; out vData: OleVariant);
      stdcall;
    procedure UpdateUserData(var vData: OleVariant; out nErr: SYSINT); stdcall;
    {Declare IUser methods here}
  end;

implementation

uses ComServ, uUserMaint;

procedure TUser.getDepList(out Deps: OleVariant);
var
  UserMaint:TUserMaint;
  DepLst:TStrings;
  i:Integer;
begin
  UserMaint:=TUserMaint.Create;
  try
    DepLst:=UserMaint.GetDepList;
    Deps:=VarArrayCreate([0,(DepLst.Count-1)],varVariant);
    for i:=0 to DepLst.Count-1 do
    begin
      Deps[i]:=DepLst.Strings[i];
    end;
  finally
    UserMaint.Free;
  end;
end;

procedure TUser.getUserList(const strName: WideString;
  out vData: OleVariant);
var
  UserMaint:TUserMaint;
begin
  UserMaint:=TUserMaint.Create;
  try
    vData:=UserMaint.GetUserList(strName);
  finally
    UserMaint.Free;
  end;
end;

procedure TUser.UpdateUserData(var vData: OleVariant; out nErr: SYSINT);
var
  UserMaint:TUserMaint;
begin
  UserMaint:=TUserMaint.Create;
  try
    UserMaint.UpdateUserData(vData,nErr);
  finally
    UserMaint.Free;
  end;
end;

initialization
  TTypedComObjectFactory.Create(ComServer, TUser, Class_User,
    ciMultiInstance, tmApartment);
end.