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;

 

评论 (0) All

登陆 还没注册？