rightwebimpl.pas

Delphi Webservice编程例子

  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.LogDel(V01, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

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

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

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

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

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

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

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

function TRightWeb.SubSysLogin(const SubSysId, LoginName, PWD, LabA, ValA,
  LabB, ValB, UCard, IPAdd: string; var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.SubSysLogin(SubSysId, LoginName, PWD, LabA, ValA, LabB, ValB, UCard,
      IPAdd, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

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

function TRightWeb.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;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.UserAdd(V01, V02, V03, V04, V08, V09, V10, V11, V12, V13, V14, V16,
      V17, V18, V19, V20, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

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

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

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

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

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

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

function TRightWeb.UserLogin(const LoginName, PWD, LabA, ValA, LabB, ValB,
  UCard, IPAdd: string; var lResult: Integer): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.UserLogin(LoginName, PWD, LabA, ValA, LabB, ValB, UCard, IPAdd,
      lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

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

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

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

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

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

function TRightWeb.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;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(ComServerName);
    vObj.UserUpd(V01, V02, V03, V04, V08, V09, V10, V11, V12, V13, V14, V16,
      V17, V18, V19, V20, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

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

end.