当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi7的WebService与数据库

Delphi
在线播放器DIY
关于VisiBroker For Delphi的使用（3）
关于VisiBroker For Delphi的使用（2）
关于VisiBroker For Delphi的使用（1）
Delphi的两个实用技巧(2)巧用Windows的API函数
Delphi的两个实用技巧(1)播放Flash
delphi学习:两种方法使用xml文档
Delphi与Word之间的融合技术
Delphi中动态链接库(DLL)的建立和使用
Delphi基础:Window 消息大全使用详解下
Delphi基础:Window 消息大全使用详解上
教你在DELPHI中如何调用系统对话框
Delphi开发单机瘦小数据库程序要点
用Delphi + DirectX开发简单RPG游戏
Delphi7从入门到精通之认识Delphi编辑器
Delphi7从入门到精通之历数Delphi七个版本
Delphi学习:图像放大漫游攻略
用编程来实现24小时制到12小时制的转换
一个实际的OLE服务器的开发
Delphi一点通:如何将源代码学好

No. « 8 9 10 11 »

技术文章搜索

关键字

Delphi7的WebService与数据库

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 153 ::
收藏到网摘: n/a

 
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;