fclientmain.~pas

Delphi开发webservice的一套例子

unit fClientMain;

interface

uses
  SysUtils, Classes, DB, DBClient, SoapConn;

type
  TdmDemo1 = class(TDataModule)
    cdsDemo1: TClientDataSet;
    dsDemo1: TDataSource;
    spcnnDemo1: TSoapConnection;
    cdsDemo1ISBN: TStringField;
    cdsDemo1BKID: TStringField;
    cdsDemo1BOOKNO: TStringField;
    cdsDemo1BOOKNAME: TStringField;
    cdsDemo1VID: TStringField;
    cdsDemo1CATEGORY: TStringField;
    cdsDemo1CLEVEL: TStringField;
    cdsDemo1AID: TStringField;
    cdsDemo1IMAGE: TBlobField;
    procedure cdsDemo1AfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmDemo1: TdmDemo1;

implementation

uses udmClient;

{$R *.dfm}

procedure TdmDemo1.cdsDemo1AfterPost(DataSet: TDataSet);
begin
  Form2.LabeledEdit1.Text := IntToStr(Self.cdsDemo1.ChangeCount);
end;

end.