Delphi7 的 WebService 与数据库_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi7 的 WebService 与数据库

作者：闵涛文章来源：闵涛的学习笔记点击数：987 更新时间：2009/4/23 18:31:29

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;