用Delphi開發Web服務數據庫程序

第一步編寫服務器的應用程序

　　首先在Delphi的IDE中選擇File|New|Other…然後在WebServices頁面中選擇SoapServerApplication圖標

　　然後在NewSoapServerApplication對話框中選擇WebAppDebuggerexecutable

　　點擊OK按鈕之後Delphi會自動生成一個WebModule在這個Module中會包含三個WebServices的控件

　　然後在WebServices頁面中選擇SoapServerDataModule圖標OK後Delphi彈出SoapDataModuleWizard對話框

　　在ClassName中輸入類名DDBDataModule點擊OK後Delphi會自動產生一個SOAP數據模塊在該模塊中加入TdataBaseTqueryTdataSetProvider三個控件

　　設置各控件的屬性跟以往的Delphi數據庫應用程序的設置基本上相同其中TdataSetProvider是一個DataAccess控件提供遠程呼叫的支持

　　編譯執行該應用程序使之注冊完成服務器端的應用程序設計

第二步編寫客戶端的應用程序

　　添加一個新的應用程序項目在Form窗體中添加TDBNavigatorTDBGrid控件

　　然後添加一個數據模塊在其中加入TSaopConnectionTclientDataSet和TdataSource控件

　　其中的TSaopConnection控件就是利用SOAP協議與遠程服務器端相聯的接口

　　http://WebServer的地址/WebService的應用程序名稱/soap/SoapServerDataModule的名稱

　　然後設置TclientDataSet控件的屬性設置RemoteServer的屬性為TsaopConnection控件的名字點選ProviderName

　　接下來在窗體所在的單元添加如下代碼

unitUnit;

interface

uses

WindowsMessagesSysUtilsVariantsClassesGraphicsControlsForms

DialogsExtCtrlsDBCtrlsGridsDBGrids;

type

TForm=class(TForm)

DBGrid:TDBGrid;

DBNavigator:TDBNavigator;

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form:TForm;

implementation

usesUnitDB;//引用DataModule所在單元;

{$R*dfm}

end

　　設置TDBNavigatorTDBGri控件的DataSource的屬性為dmDemodsDemo其中dmDemo是數據模塊的名字dsDemo為數據模塊中的TdataSource控件的名字

　　激活TclientDataSet的Active屬性為True編譯該項目組把客戶端程序復制到網絡上的任一台計算機都可執行一個WebServices的數舉庫應用程序例子完成

From:http://tw.wingwit.com/Article/program/Delphi/201311/8525.html