userserviceimpl.pas

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

{ Invokable implementation File for TUserService which implements IUserService }

unit UserServiceImpl;

interface

uses InvokeRegistry, classes,Types, XSBuiltIns,uUserMaint, UserServiceIntf;

type
  { TUserService }
  TUserService = class(TInvokableClass, IUserService)
  public
    function GetDepList(out iCount:integer):TStringDynArray;stdcall;
    function GetUserList(strName:String): String; stdcall;
    function UpdateUserData(UserData:String):integer; stdcall;
  end;

implementation

function TUserService.GetDepList(out iCount:integer):TStringDynArray;
var
  ObjUser:TUserMaint;
  i:integer;
  tmpstrs:TStrings;
begin
  tmpstrs:=TStringlist.Create;
  ObjUser:=TUserMaint.create;
  tmpstrs.Assign (ObjUser.GetDepList);
  iCount:=tmpstrs.Count;
  SetLength(result,iCount);
  for  i:=0  to iCount-1 do
    Result[i]:=tmpstrs.Strings[i];
  tmpstrs.Free;
  ObjUser.free;
end;

function TUserService.GetUserList(strName:String): String;
var
  ObjUser:TUserMaint;
begin
  ObjUser:=TUserMaint.create;
  try
    result:=ObjUser.GetUserList(strName);
  finally
    ObjUser.free;
  end;
end;

function TUserService.UpdateUserData(UserData:String):integer;
var
  ObjUser:TUserMaint;
begin
  ObjUser:=TUserMaint.create;
  try
    result:=ObjUser.UpdateUserData(UserData);
  finally
    ObjUser.free;
  end;
end;

initialization
  { Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TUserService);
end.