utest.pas

来自「公积金监管系统客户端,是新疆公积金监管系统的客户端软件」· PAS 代码 · 共 93 行

unit utest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InvokeRegistry, DB, DBClient, Rio, SOAPHTTPClient, StdCtrls,
  Grids, DBGrids, types;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    HTTPRIO1: THTTPRIO;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses JGLRIntf, ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  aIntf: IJGLR;
  vData: variant;
begin
  aIntf:= HTTPRIO1 as IJGLR;
  try
    aIntf.UserInf(vData);
    self.ClientDataSet1.XMLData:= vData;
  finally
    aIntf:= nil;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage(self.ClientDataSet1.FieldByName('userid').AsString);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  vCom: Variant;
  vA: OleVariant;
  aAry: TDoubleDynArray;
  lResult: longint;
  i,j: smallint;
begin
  j:= 34;

  vA:= VarArrayCreate([0,j],varDouble);
  for i:= 0 to j do
    vA[i]:= 4.00;
  showmessage( inttostr( varArrayhighbound(vA,1) ) );
  vCom:= CreateOleObject('PJGLR.JGLRServer');
  vCom.fZcfzbGjjSav('200305',vA,lResult);

end;

procedure TForm1.Button4Click(Sender: TObject);
var
  vObj: Variant;
  lResult: longint;
begin
    vObj := CreateOleObject('PJGLR.JGLRServer');
    vObj.fRelationSav('01',3,'GJGET(3,9)','=', 'GJGET(3,9)', lResult);

    if lResult=0 then
      showmessage('successd!')
    else
      showmessage('failed!');
end;

end.