我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 软件开发教程 -> Delphi教程 -> 教程内容
  • [ 收藏本页教程 ]
  • Delphi7的WebService与数据库Delphi教程

    教程作者:佚名    教程来源:不详   教程栏目:Delphi教程    收藏本页
     
    Server 端:

      SoapDataModule中加入 ADOConnection1、ADODataSet1、DataSetProvider1;DataSetProvider1的DataSet设置为ADODataSet1;ADODataSet1的CommandText设置为空,Connection设置为ADOConnection1。

      DataSetProvider1的DataRequest事件:





      function TDataMod.DataSetProvider1DataRequest(Sender: TObject;
      Input: OleVariant): OleVariant;
      begin
      if ADOConnection1.Connected then
      begin
      ADODataSet1.CommandText := Input;
      Result := DataSetProvider1.Data;
      end;
      end;
      procedure TDataMod.SoapDataModuleCreate(Sender: TObject);
      var
      DataPath: string;
      const
      SQL :string = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\programs\Delphi7\Demos\WebServices\SOAPDataModule\Data\Tree.mdb;Persist Security Info=False';
      begin
      DataPath := ExtractFilePath(Application.ExeName)+ '..\Data\';
      XMLTransformProvider1.XMLDataFile := DataPath + 'XML_Document.xml';
      XMLTransformProvider1.TransformRead.TransformationFile := DataPath + 'ToDp.xtr';
      XMLTransformProvider1.TransformWrite.TransformationFile := DataPath + 'ToXml.xtr';
      try
      ADOConnection1.Connected :=false;
      ADOConnection1.ConnectionString:= SQL;
      ADOConnection1.Connected :=true;
      except
      //showmessage(A_ParentPath+'Data\InfoMat.mdb 调用失败');
      end;
      end;
      Client端:

      SoapConnection1、ClientDataSet1;ClientDataSet1的ConnectionBroker属性为SoapConnection1,ProviderName属性为DataSetProvider1

      查询记录集:


      procedure TClientForm.Button1Click(Sender: TObject);
      var SQL:string;
      begin
      if not SoapConnection1.Connected then
      begin
      SoapConnection1.URL:=URLList.Text+'/soap/IDataMod';
      SoapConnection1.Open;
      end;
      SQL := Edit1.text;
      with ClientDataSet1 do
      begin
      Data := DataRequest(SQL);
      end;
      end;

     
    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有