Delphi7的WebService与数据库
添加时间: 2006-2-25 5:46:03 作者: Delphi教程 阅读次数:113 来源: http://www.d9soft.com
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; |
上下文章:
上一篇文章: 教你如何用Delphi生成GBK码表 下一篇文章: Delphi实用代码:自绘XP风格菜单
相关文章: