网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 定作论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 交易代码 > Delphi精品代码 > 正文
用Delphi开发Web服务数据库程序
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 10/11/06
  首先在DelphiIDE中选择”File|New|Other…”,然后在WebServices页面中选择Soap Server Application图标。

  然后在New Soap Server Application对话框中选择Web App Debugger executable。

  点击OK按钮之后,Delphi会自动生成一个WebModule,在这个Module中会包含三个WebServices的控件

  然后然后在WebServices页面中选择Soap Server Data Module图标, OK后, Delphi 弹出Soap Data Module Wizard对话框。

  在Class Name中输入类名:D6DBDataModule1. 点击OK后, Delphi会自动产生一个SOAP数据模块, 在该模块中加入TdataBase, Tquery, TdataSetProvider, 三个控件。

  设置各控件的属性,跟以往的Delphi数据库应用程序的设置基本上相同, 其中, TdataSetProvider是一个DataAccess控件, 提供远程呼叫的支持。

  编译执行该应用程序, 使之注册. 完成服务器端的应用程序设计.

  第二步:编写客户端的应用程序

  添加一个新的应用程序项目, 在Form窗体中添加TDBNavigator, TDBGrid控件

  然后添加一个数据模块, 在其中加入TSaopConnection, TclientDataSet和TdataSource控件。

  其中的TSaopConnection控件就是利用SOAP协议与远程服务器端相联的接口。

  http://WebServer的地址/ WebService的应用程序名称/soap/SoapServerDataModule的名称

  然后设置TclientDataSet控件的属性, 设置RemoteServer的属性为TsaopConnection控件的名字, 点选ProviderName. 

  接下来, 在窗体所在的单元添加如下代码:

unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit5,DB; //引用DataModule所在单元;
{$R *.dfm}
end. 

  设置TDBNavigator,TDBGri控件的DataSource的属性为dmDemo1.dsDemo1, 其中, dmDemo1是数据模块的名字, dsDemo1为数据模块中的TdataSource控件的名字。

  激活TclientDataSet的Active属性为True,编译该项目组,把客户端程序复制到网络上的任一台计算机, 都可执行. 一个Web Services 的数举库应用程序例子完成。
  • 上一篇资讯: Web Service 技术简介
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号