fdemo3main.pas

Delphi开发webservice的一套例子

unit fDemo3Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids, DBCtrls,
  DBClient, Rio, SoapHTTPClient;

type
  TForm4 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    BitBtn3: TBitBtn;
    ledtChangeCount: TLabeledEdit;
    DataSource1: TDataSource;
    bbtnGetData: TBitBtn;
    HTTPRIO1: THTTPRIO;
    cdsData: TClientDataSet;
    ledtSQL: TLabeledEdit;
    ClientDataSet1: TClientDataSet;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    procedure cdsDataAfterPost(DataSet: TDataSet);
    procedure bbtnGetDataClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses uWSDBServerIAppServer, Provider;

{$R *.dfm}

procedure TForm4.cdsDataAfterPost(DataSet: TDataSet);
begin
  ledtChangeCount.Text := IntToStr(cdsData.ChangeCount);
  Self.ClientDataSet1.Data := cdsData.Delta;
end;

procedure TForm4.bbtnGetDataClick(Sender: TObject);
var
  aIntf : IAppServer;
  vParams : Variant;
  vOwnerData : Variant;
  RecsOut : Integer;
  vResult : Variant;
begin
  aIntf := HTTPRIO1 as IAppServer;
  try
    vResult := aIntf.AS_GetRecords('dspGeneral', -1, MetaDataOption + ResetOption,
                        ledtSQL.Text, vParams, vOwnerData, RecsOut);
    cdsData.Data := vResult;
  finally // wrap up
    aIntf := nil;
  end;    // try/finally
end;

end.