开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
SoapDataForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

SoapDataForm.pas：源码内容
  1. unit SoapDataForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, SoapConn, Grids, DBGrids, StdCtrls, SoapServerIntf,
  8.   Rio, SoapHTTPClient;
  10. type
  11.   TFormSDC = class(TForm)
  12.     SoapConnection1: TSoapConnection;
  13.     ClientDataSet1: TClientDataSet;
  14.     DBGrid1: TDBGrid;
  15.     DataSource1: TDataSource;
  16.     Button1: TButton;
  17.     Button2: TButton;
  18.     HTTPRIO1: THTTPRIO;
  19.     Button3: TButton;
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure Button2Click(Sender: TObject);
  22.     procedure Button3Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  29. var
  30.   FormSDC: TFormSDC;
  32. implementation
  34. {$R *.dfm}
  36. procedure TFormSDC.Button1Click(Sender: TObject);
  37. begin
  38.   ClientDataSet1.Open;
  39. end;
  41. procedure TFormSDC.Button2Click(Sender: TObject);
  42. begin
  43.   ClientDataSet1.ApplyUpdates (-1);
  44. end;
  46. procedure TFormSDC.Button3Click(Sender: TObject);
  47. var
  48.   ISoapData: ISoapTestDm;
  49. begin
  50.   // CURRENTLY DOESN'T WORK!
  51.   ISoapData := HttpRio1 as ISoapTestDm;
  52.   ShowMessage (IntToStr (ISoapData.GetRecordCount));
  53. end;
  55. end.