fdemo1clientmain.~pas

来自「Delphi开发webservice的一套例子」· ~PAS 代码 · 共 59 行

unit fDemo1ClientMain;

interface

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

type
  TForm2 = class(TForm)
    HTTPRIO1: THTTPRIO;
    cdsEssays: TClientDataSet;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses MTDemo1DBServiceIntf, ComObj;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  aDBS : IMTDemo1DBService;
  sData : String;
begin
  aDBS := HTTPRIO1 as IMTDemo1DBService;
  try
    sData := aDBS.QueryData('Select * From Essays');
    ShowMessage(sData);
    cdsEssays.Active := False;
    cdsEssays.XMLData := sData;
    cdsEssays.Active := True;
  finally // wrap up
    aDBS := nil;
  end;    // try/finally
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
var
  vDODemo : Variant;
  sData : WideString;
begin
  //