Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> delphi教程 >> 正文

Delphi7的WebService与数据库
文章来源:csdn 作者:LuckyJan

 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;

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有