rightwebimpl.pas

Delphi Webservice编程例子

{ Invokable implementation File for TRightWeb which implements IRightWeb }

unit RightWebImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, RightWebIntf, ActiveX, ComObj,
  Variants, EncdDecd, classes;

const
  ComServerName = 'FundCom.FundServer';

type

  { TRightWeb }
  TRightWeb = class(TInvokableClass, IRightWeb)
  public
    function FreeQuery(const cSqlStr: string; var vData: Variant): integer;
      safecall;
    function ExeSqlCmd(const cSqlStr: string; var lResult: Integer): Integer;
      safecall;

    function LogAdd(V02: Smallint; const V04, V05, V06, V07: string;
      var lResult: Integer): integer; safecall;
    function LogDel(const V01: string; var lResult: Integer): integer; safecall;

    function UserGrpAdd(var V01: string; const V02, V03: string;
      V04: Smallint; var lResult: Integer): integer; safecall;
    function UserGrpDel(const V01: string; var lResult: Integer): integer;
      safecall;
    function UserGrpUpd(const V01, V02, V05: string;
      var lResult: Integer): integer; safecall;

    function UserAdd(var V01: string; const V02, V03, V04: string;
      V08, V09: Smallint; const V10, V11: string; V12, V13, V14,
      V16: Smallint; const V17: string; V18, V19: Smallint;
      const V20: string; var lResult: Integer): integer; safecall;
    function UserDel(const V01: string; var lResult: Integer): integer;
      safecall;
    function UserUpd(const V01, V02, V03, V04: string; V08, V09: Smallint;
      const V10, V11: string; V12, V13, V14, V16: Smallint;
      const V17: string; V18, V19: Smallint; const V20: string;
      var lResult: Integer): integer; safecall;

    function SubModDel(const V01, V02: string; var lResult: Integer): integer;
      safecall;

    function SubSysDel(const V01: string; var lResult: Integer): integer;
      safecall;

    function SubRightAdd(const V01: string; V03, V04, V05, V06, V07,
      V08: Smallint; var lResult: Integer): integer; safecall;

    function SubRightChg(const V01, V02, V021: string;
      var lResult: Integer): integer; safecall;

    function RightGrpDel(const V01: string; var lResult: Integer): integer;
      safecall;

    function GrpRightAdd(const V01, V02, V03: string;
      var lResult: Integer): integer; safecall;
    function GrpRightDel(const V01: string; var lResult: Integer): integer;
      safecall;

    function UserRightAdd(const V01, V02, V03: string;
      var lResult: Integer): integer; safecall;
    function UserRightDel(const V01: string; var lResult: Integer): integer;
      safecall;

    function GrpRightChg(const V01: string; var lResult: Integer): integer;
      safecall;

    function UserRightChg(const V01: string; var lResult: Integer): integer;
      safecall;

    function UserToGrp(const V01, V02: string; var lResult: Integer): integer;
      safecall;

    function GrpUserDel(const V02: string; var lResult: Integer): integer;
      safecall;

    function CardGrpAdd(var V01: string; const V02, V03: string;
      V04: Smallint; var lResult: Integer): integer; safecall;
    function CardGrpDel(const V01: string; var lResult: Integer): integer;
      safecall;
    function CardGrpUpd(const V01, V02, V05: string;
      var lResult: Integer): integer; safecall;

    function CardAdd(var V01: string; const V02: string;
      var lResult: Integer): integer; safecall;
    function CardDel(const V01: string; var lResult: Integer): integer;
      safecall;
    function CardUpd(const V01, V02, V03, V04, V05: string; V06,
      V07: Smallint; const V08: string; var lResult: Integer): integer;
      safecall;

    function CardValAdd(const V01, V02, V03, V04: string;
      var lResult: Integer): integer; safecall;
    function CardValDel(const V01: string; var lResult: Integer): integer;
      safecall;

    function UserIPDel(const V01: string; var lResult: Integer): integer;
      safecall;
    function UserIPAdd(const V01, V02: string; var lResult: Integer): integer;
      safecall;

    function SysLogin(const LoginName, PWD: string; var lResult: Integer):
      integer;
      safecall;
    function UserLogin(const LoginName, PWD, LabA, ValA, LabB, ValB, UCard,
      IPAdd: string; var lResult: Integer): integer; safecall;

    function SubSysLogin(const SubSysId, LoginName, PWD, LabA, ValA, LabB,
      ValB, UCard, IPAdd: string; var lResult: Integer): integer; safecall;
    function QSysUser(const SysId, cSql: string; var vData: Variant): integer;
      safecall;
    function QNotSysUser(const SysId, cSql: string;
      var vData: Variant): integer; safecall;
    function UserToSys(const V01, V02: string; var lResult: Integer): integer;
      safecall;

    function Log(LogType: Smallint; const SubSysId, UserId, IpAddr: string;
      var lResult: Integer): Integer; safecall;

  end;

implementation

{ TRightWeb }

function TRightWeb.CardAdd(var V01: string; const V02: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardAdd(V01, V02, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardDel(const V01: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardDel(V01, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardGrpAdd(var V01: string; const V02, V03: string;
  V04: Smallint; var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardGrpAdd(V01, V02, V03, V04, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardGrpDel(const V01: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardGrpDel(V01, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardGrpUpd(const V01, V02, V05: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardGrpUpd(V01, V02, V05, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardUpd(const V01, V02, V03, V04, V05: string; V06,
  V07: Smallint; const V08: string; var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardUpd(V01, V02, V03, V04, V05, V06, V07, V08, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardValAdd(const V01, V02, V03, V04: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardValAdd(V01, V02, V03, V04, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.CardValDel(const V01: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.CardValDel(V01, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.ExeSqlCmd(const cSqlStr: string;
  var lResult: Integer): Integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.ExeSqlCmd(cSqlStr, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.FreeQuery(const cSqlStr: string;
  var vData: Variant): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.FreeQuery(cSqlStr, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.GrpRightAdd(const V01, V02, V03: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.GrpRightAdd(V01, V02, V03, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.GrpRightChg(const V01: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.GrpRightChg(V01, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.GrpRightDel(const V01: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.GrpRightDel(V01, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.GrpUserDel(const V02: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.GrpUserDel(V02, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.Log(LogType: Smallint; const SubSysId, UserId,
  IpAddr: string; var lResult: Integer): Integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.Log(LogType, SubSysId, UserId, IpAddr, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.LogAdd(V02: Smallint; const V04, V05, V06, V07: string;
  var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.LogAdd(V02, V04, V05, V06, V07, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TRightWeb.LogDel(const V01: string;
  var lResult: Integer): integer;
var