Delphi7 的 WebService 与 数据库

原创 2004年08月30日 16:46:00

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 中如何调用webservice返回dataset 数据集

We're nearly there. Drop a TClientDataset, a TXMLTransformProvider and a TDatasource on the form. He...
  • shaojie0726
  • shaojie0726
  • 2011年07月12日 17:17
  • 3738

使用CXF 开发SOAP webservice 服务端实例

目前
  • Leonardo9029
  • Leonardo9029
  • 2014年11月10日 19:24
  • 1486

webService--返回数据集

//Service.cs using System;                                   //引用System名称空间下的类 using System.Web;  ...
  • beyondqd
  • beyondqd
  • 2011年08月23日 15:04
  • 4275

delphi调用C# Webservice返回数据集

yangchchMsn procedure TForm1.Button1Click(Sender:TObject); var IService: DataSetWebServiceSoa...
  • beyondqd
  • beyondqd
  • 2011年08月23日 15:15
  • 2654

Delphi 调用webservice接口的三类方法

一、使用向导      1.导入wsdl文件:file--new----other----webservice---WSDLimporter---输入wsdl地址         http...
  • QQ56430204
  • QQ56430204
  • 2016年01月13日 10:51
  • 6157

java使用http创建https连接,并且使用http实现webservice服务端

package test.http; import java.io.ByteArrayOutputStream; import java.io.DataOutputStream; imp...
  • liu22985342
  • liu22985342
  • 2015年12月29日 14:14
  • 2705

基于Delphi的WebService编写

Service端的写法 1.新建other,选择webservice,SOAP Server Application 2.在Intf里面写接口函数 XXX; 3.在Impl里...
  • WuJingTao666666
  • WuJingTao666666
  • 2016年09月22日 17:26
  • 1309

delphi开发WebService简例

本文介绍的是如何用Delphi6开发Web Service程序,并把服务程序放在IIS Web服务器上提供给各种客户程序调用。一编写服务程序第一步:File----->New----->Other--...
  • gaoyunpeng
  • gaoyunpeng
  • 2007年05月29日 13:18
  • 6188

WebService-服务端与客户端

什么是WebServiceWeb service: - 一个平台独立的,低耦合的,自包含的、基于可编程的web的应用程序 - 可使用开放的XML标准来描述、发布、发现、协调和配置这些应用程序 -...
  • Louislip
  • Louislip
  • 2017年01月24日 13:19
  • 1802

【WebService开发】之编写天气预报的WebService客户端

【WebService开发】之编写天气预报的WebService
  • xiongwt
  • xiongwt
  • 2016年03月20日 12:55
  • 1810
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi7 的 WebService 与 数据库
举报原因:
原因补充:

(最多只允许输入30个字)