Delphi7 的 WebService 与 数据库

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基础
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

Delphi7 的 WebService 与 数据库

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭