Delphi VCL

Development Platform:

Delphi

SoapDataForm.pas：Code Content

							unit SoapDataForm;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, SoapConn, Grids, DBGrids, StdCtrls, SoapServerIntf,
  Rio, SoapHTTPClient;
type
  TFormSDC = class(TForm)
    SoapConnection1: TSoapConnection;
    ClientDataSet1: TClientDataSet;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    HTTPRIO1: THTTPRIO;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FormSDC: TFormSDC;
implementation
{$R *.dfm}
procedure TFormSDC.Button1Click(Sender: TObject);
begin
  ClientDataSet1.Open;
end;
procedure TFormSDC.Button2Click(Sender: TObject);
begin
  ClientDataSet1.ApplyUpdates (-1);
end;
procedure TFormSDC.Button3Click(Sender: TObject);
var
  ISoapData: ISoapTestDm;
begin
  // CURRENTLY DOESN'T WORK!
  ISoapData := HttpRio1 as ISoapTestDm;
  ShowMessage (IntToStr (ISoapData.GetRecordCount));
end;
end.

						