jglrimpl.pas

公积金监管系统WebService中间件,是新疆公积金监管系统的客户端软件

    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZzsybGjjSav(sNy, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZzsyfpbGjjInf(const sNd: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZzsyfpbGjjInf(sNd, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZzsyfpbGjjSav(const sNd: string; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZzsyfpbGjjSav(sNd, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZcfzbJfInf(const sNy: string; var vData: variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZcfzbJfInf(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZcfzbJfSav(const sNy: string; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZcfzbJfSav(sNy, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.JfszbJfInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fJfszbJfInf(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.JfszbJfSav(const sNy: string; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fJfszbJfSav(sNy, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZhksyebInf(const sNy, sZhmc: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZhksyebInf(sNy, sZhmc, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZhksyebSav(const sNy, sZhmc, sKhyh, sYhzh: string; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZhksyebSav(sNy, sZhmc, sKhyh, sYhzh, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZfgjjtjbInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZfgjjtjbInf(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZfgjjtjbSav(const sNy: string; aAry: TDoubleDynArray;
  aAry0: TIntegerDynArray; var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA, vB: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  vB := VarArrayCreate([0, high(aAry0)], varInteger);
  for i := 0 to high(aAry0) do
    vB[i] := aAry0[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fZfgjjtjbSav(sNy, vA, vB, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.XmdkbInf(const sNy: string; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fXmdkbInf(sNy, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.XmdkbSav(const sNy, sXh, sDwmc, sXmmc, sLxspjg, sDkhth,
  sFfrq: string; lDkqx: Integer; aAry: TDoubleDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vA: OleVariant;
  i: integer;
begin
  vA := VarArrayCreate([0, high(aAry)], varDouble);
  for i := 0 to high(aAry) do
    vA[i] := aAry[i];
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fXmdkbSav(sNy, sXh, sDwmc, sXmmc, sLxspjg, sDkhth, sFfrq, lDkqx, vA, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GetData(const sBbNumber, sDptNumber, sZth, sBbDate: string; lCol,
  lRow: Integer; var lResult: string;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGetData(sBbNumber, sDptNumber, sZth, sBbDate, lCol, lRow, lResult);
    lResult := EncodeString(lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GjGet(lCol, lRow: Integer; const sBbNum, sDptNum,
  sDate: string; var dResult: Double;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGjGet(lCol, lRow, sBbNum, sDptNum, sDate, dResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GjSumH(lCol, lRowb, lRowe: Integer; const sBbNum, sDptNum,
  sDate: string; var dResult: Double;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGjSumH(lCol, lRowb, lRowe, sBbNum, sDptNum, sDate, dResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.GjSumV(lColb, lCole, lRow: Integer; const sBbNum, sDptNum,
  sDate: string; var dResult: Double;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fGjSumV(lColb, lCole, lRow, sBbNum, sDptNum, sDate, dResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.Relation(const sBbNumber: string;
  var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fRelation(sBbNumber, vData);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.RelationDel(const sBbNumber: string; lRelationNo: Integer;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fRelationDel(sBbNumber, lRelationNo, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.RelationSav(const sBbNumber: string; lRelationNo: Integer;
  const sRelationL, sRelation, sRelationR: string;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fRelationSav(sBbNumber, lRelationNo, sRelationL, sRelation, sRelationR, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbSav(const sBbbh: string; const vData: TByteDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer; stdcall;
var
  vObj: Variant;
  vDa: OleVariant;
  l: integer;
  P: pointer;
begin
  CoInitialize(nil);
  try
    L := length(vData);
    vDa := varArrayCreate([0, L - 1], varByte);
    P := VarArrayLock(vDa);
    try
      move(vData[0], P^, L);
    finally
      VarArrayUnlock(vDa);
    end;
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbSav(sBbbh, vDa, lResult);
    result := S_OK;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.BbWj(const sBbbh: string; var vData: TByteDynArray;
  var lResult: Integer;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
  vDa: OleVariant;
  l: integer;
  P: pointer;
begin
  CoInitialize(nil);
  try
    vObj := CreateOleObject(CComServerName);
    vObj.SetConnectXh(nConnXh);
    vObj.fBbWj(sBbbh, vDa, lResult);
    result := S_OK;
    if lResult = 0 then
    begin
      L := VarArrayHighBound(vDa, 1) - VarArrayLowBound(vDa, 1) + 1;
      setlength(vData, L);
      P := VarArrayLock(vDa);
      try
        move(P^, vData[0], L);
      finally
        VarArrayUnlock(vDa);
      end;
    end;
  finally
    CoUninitialize;
  end;
end;

function TJGLR.ZhksyebInf1(const sNy: String; var vData: Variant;const nConnXh: Smallint=0): integer;
var
  vObj: Variant;
begin
  CoInitialize(nil);