正在阅读:Delphi7的WebService与数据库Delphi7的WebService与数据库

2004-09-01 10:24 出处:CSDN 作者:LuckyJan 责任编辑:huangpeidan

  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;


相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品