用Delphi開(kāi)發(fā)Web服務(wù)數據庫程序
第一步：編寫(xiě)服務(wù)器的應用程序
首先在Delphi的IDE中選擇”File|New|Other…”,然后在WebServices頁(yè)面中選擇Soap Server Application圖標。
然后在New Soap Server Application對話(huà)框中選擇Web App Debugger executable。
點(diǎn)擊OK按鈕之后,Delphi會(huì )自動(dòng)生成一個(gè)WebModule,在這個(gè)Module中會(huì )包含三個(gè)WebServices的控件。
然后然后在WebServices頁(yè)面中選擇Soap Server Data Module圖標, OK后, Delphi 彈出Soap Data Module Wizard對話(huà)框。
在Class Name中輸入類(lèi)名：D6DBDataModule1. 點(diǎn)擊OK后, Delphi會(huì )自動(dòng)產(chǎn)生一個(gè)SOAP數據模塊, 在該模塊中加入TdataBase, Tquery, TdataSetProvider, 三個(gè)控件。
設置各控件的屬性,跟以往的Delphi數據庫應用程序的設置基本上相同, 其中, TdataSetProvider是一個(gè)DataAccess控件, 提供遠程呼叫的支持.
編譯執行該應用程序, 使之注冊. 完成服務(wù)器端的應用程序設計.
第二步：編寫(xiě)客戶(hù)端的應用程序
添加一個(gè)新的應用程序項目, 在Form窗體中添加TDBNavigator, TDBGrid控件。
然后添加一個(gè)數據模塊, 在其中加入TSaopConnection, TclientDataSet和TdataSource控件。
其中的TSaopConnection控件就是利用SOAP協(xié)議與遠程服務(wù)器端相聯(lián)的接口。
http://WebServer的地址/ WebService的應用程序名稱(chēng)/soap/SoapServerDataModule的名稱(chēng)
然后設置TclientDataSet控件的屬性, 設置RemoteServer的屬性為T(mén)saopConnection控件的名字, 點(diǎn)選ProviderName.
接下來(lái), 在窗體所在的單元添加如下代碼：
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屬性為T(mén)rue，編譯該項目組,把客戶(hù)端程序復制到網(wǎng)絡(luò )上的任一臺計算機, 都可執行. 一個(gè)Web Services 的數舉庫應用程序例子完成.
（出處：www.delphibbs.com）
