Delphi XE 10 跨平台三層數據庫應用教程

前言：

 Delphi XE 開始越來越龐大，比經典的Delphi7難用，但依然是目前所有跨平台開發工具中開發效率最高、最容易上手的，其快速設計RAD理念是無與倫比的符合人性（什么？是懶惰）。

 目前網上XE10類似教程很少，而且學習途中遇到一些問題就難以繼續了，經本菜鳥千辛萬苦的求索，特推出Delphi XE 10系列教程。

 三層數據庫應用是目前最簡單、方便、易擴展的架構，而跨平台應用又是所謂的“互聯網+”最需要的，下面的教程分服務器端和客戶端兩大部分完成該設計。

一、Delphi XE10 datasnap服務器設計

（1）生成DataSnap服務器的框架

初學者都是呆子，還是用向導吧，主菜單“File”->“New”->“Other…”得到“New Items”向導對話框。見圖一。

圖一、向導

一般選擇有窗口的Forms程序，如果是正式場合，建議Service程序。見 圖二。

圖二、選擇應用類型  

如果服務器程序運行在Windows平台就選“VCLapplication”,如果要跨平台，還是選“FireMonkeyapplication”,但生成的文件要大一些。見圖三。

 

圖三、選擇應用基本庫源  

​默認TCP/IP為通訊協議，簡單快速，菜鳥專用的Sample Methods用於測試，見圖四。

圖四、選擇通訊等參數

​缺省211端口，別忘了“Test Port”一下更健康，見圖五。

圖五、測試端口  

不要使用默認的“TComponent”,而用TDSServerModule作為數據服務提供主體，非常方便以后變更為能掙錢的Service應用服務。

圖六、選擇服務模式

​Finish這個向導后，硬盤一陣轟鳴，自動生成了工程及其三個主文件，圖七：

ServerContainerUnit1.pas   放的是網絡服務相關控件，非高手莫入。

ServerMehtodsUnit1.pas    就是我們第二步主要的活動場所。

Unit1.pas    服務器主界面，放個TLabel表示“我是服務器”即可，不必關注。

圖七、完成框架

(2) 數據庫設置

  進入ServerMehtodsUnit1.pas 對應的窗口

 可用老舊簡單的 BDE或ADO，也可用最新高大上的FireDAC，都XE10了，還是高點吧。

拖入（好吧，當一次C程序員嘲笑的Delphi拖拉員）三個控件即可：

TFDConnection,  TFDQuery  和  TDataSetProvider

由下圖八可知FireDAC連接邏輯簡單，而且大跨數據庫平台!

圖八、數據庫連接構架

庫驅動連接器: TFDConnection，

把自帶的SqlLite例子庫復制到當前目錄下備用：

C:\Users\Public\Documents\Embarcadero\Studio\17.0\Samples\Data\fddemos.sdb

 右鍵菜單“Connection Editor…”設置並測試，  設置Connected屬性為True，圖九和十。

圖九、連接器設置入口

 

 

圖十、連接器設置並檢測

​

數據集：TFDQuery，設置其Connection屬性為剛才測試好的FDConnection1，

  設置SQL屬性為任意sql語句如：select * from orders, 再令其Active屬性為True

最后拖入TDataSetProvider 將數據集對外服務，用其DataSet屬性連接到剛才的FDQurey1​

 如果不用Connecton Editor.., 可以設置FDConnection1.Params的內容為：

Database=E:\prj\t\server\fddemo.sdb

//若改為 Database=.\fddemo.sdb 則表示db文件和exe文件在同一個目錄下

DriverID=SQLite

 注意：需要確保sdb文件存在，否則firedac會直接生成一個空的sdb同名文件，不報錯，直到運行后客戶端程序訪問才報xxTable does not exist 錯.

 

最后拖入TDataSetProvider 將數據集對外服務，用其DataSet屬性連接到剛才的FDQurey1。

​

(3) 增加服務內容

向導生成的ServerMethord1單元只提供了兩個簡單的服務函數

   function EchoString(Value: string): string;

   functionReverseString(Value: string): string;

現在增加一個有用點的：

function TServerMethods1.ChangeSql(Value:string): Integer;
begin

 FDQuery1.Active := False;
 FDQuery1.SQL.Text := Value;
 FDQuery1.Active := True;
 Result := FDQuery1.RecordCount;

end;

 最后可在主窗口Form1中加入個Tlabel，設置Text 為“服務中…”表示自己是個服務器，要不然后面客戶端連接不上時，找不到服務器界面。

(4) 發布運行

測試通過后即可在prj樹中右鍵Release菜單中選build制作release版本，見圖十一，否則默認都是debug版本。注意win7防火牆彈出阻止時，許可它過外網。

圖十一、制作發行版

​經測試xe10下編譯的服務器程序，只需要發布exe和sdb文件即可，無需其他驅動或dll等，並且在win7和winxp下均能正常服務。

 

二、DataSnap的跨平台客戶端設計

(1) 生成客戶端框架

File->New->Muti-Device Application， 圖十二。

圖十二、新建跨平台程序

選擇第一個空白的吧“BlankAppliction”, 白紙好塗鴉啊!

 為了邏輯和界面分離，New一個 DataModule。

 

(2) 設置連接

在DataModule中放入TSQLConnection、TDSPProviderConnection、TClientDataSet和TDataSource四個控件，  

 按照邏輯用DSProviderConnection1就可用連接到服務器了，可Delphi偏偏要用TSQLConnection。選擇置其屬性ConnectionName中自然列出的“DataSnapCONNECTION”，緊臨的屬性Driver值自動變為DataSnap。

TDSPProviderConnection.ServerClassName 為服務器端對應類名 TServerMethods1，

接下來只需要 把TDSPProviderConnection.SqlConnection 連接到TSQLConnection，TClientDataSet.RemoteServer連接到TDSPProviderConnection，即可把他們三個串通一氣。當然TDataSource.DataSet也要連接到TClientDataSet。見圖十三。

圖十三、設置數據連接路線

注意：

現在該是激活他們的時候了：TSQLConnection.Active 設置為True（這時可能會有數據庫口令驗證），TDSPProviderConnection.Connected自動變為True了，然后在TClientDataSet.ProviderName才能看見傳遞過來的名稱“DataSetProvider1”，選擇之。最后設置TClientDataSet..Active 為True，沒有錯誤提示才算真正連接好了。

  

(3) 制作界面

制作界面在主窗口unit1里進行。作為數據庫客戶端的基本配置，TBindSourceDB和TGrid組合來代LiveBinding替老Delphi7時代的“數據敏感”，以適應不支持“數據敏感”的OS系統如Android。當然加入一個TBindNavigator能讓你瀏覽數據時更舒服一點，不加也無大礙。見圖十四。

圖十四、加入顯示數據控件

TBindSourceDB.DataSet  和  DataSource 必須要  uses了datamodule: unit2.pas 后才會自動出現DataModule2.ClientDataSet1 和  DataModule2.DataSource1，選擇設置之。

 

 

 ---

 

​接下來就是要所謂“LiveBinding”了，TBindSourceDB的右鍵菜單上有個“BindVirsully..”從老Delphi7來的人好怕怕哦，沒見過這架勢如圖十五：

圖十五、綁定數據連接

圖十五中藍色箭頭就是我們需要畫出來的。

關閉后回去發現多出一個BindingList1的控件來，而且數據已經輸送過來啦！

圖十六。

圖十六、連通數據庫

​太高興了，趕緊保存並編譯運行，結果大失所望，沒有數據。原來還有很多工作沒有做，如控制連接、生成服務器對應方法等。

遇到問題與解決： 

  1.   提示 Cannot change this property when using LiveBindings

   

 

解決方式：

      

 

 

---

 

 

在unit2的窗口中生成服務器對應方法GenerateDataSnap client classes菜單選擇后，圖十七，自動生成unit3，其中主要是TServerMethods1Client類及其方法，都是服務器上的服務器方法映射到客戶端來的，方便client調用服務，具體代碼不必去看(什么，不求甚解，是腦力不濟)。

圖十七、自動生成服務方法映射

控制連接：在界面窗口中加入IP和端口（默認為211，是不是想自詡為中國的名牌大學出品）

圖十八、加入控制連接控件

​“連接”按鈕button1代碼如下：

procedure TForm1.Button1Click(Sender:TObject);

var

  dm: TServerMethods1Client; //就是上一步自動生成的unit3里的那個映射類

begin                      // 別忘了uses Unit3, Unit2;

  try

   //連接指定IP和Port的應用服務器

   DataModule2.SQLConnection1.Close; // DataModule2就是放連接器那個數據模塊

   DataModule2.SQLConnection1.Params.Values['HostName'] := edtIP.Text;

   DataModule2.SQLConnection1.Params.Values['Port'] := edtPort.Text;

   try

     DataModule2.SQLConnection1.Open;

     try

      //創建應用服務器上的方法在客戶端的實現類: 即映射方法類

       dm :=TServerMethods1Client.Create(DataModule2.SQLConnection1.DBXConnection);

     //執行服務器上的方法

       ShowMessage(dm.ReverseString(edtIP.Text)); //系統帶的例子方法

        dm.ChangeSql(edtSql.Text); // 我們在服務器程序中手工添加的執行sql方法

     finally

       dm.Free;

     end;

           DataModule2.ClientDataSet1.Close;

     DataModule2.ClientDataSet1.Open; //開啟客戶端數據集

   except

     on E: Exception do

       ShowMessage(E.Message);

   end;

 finally

   DataModule2.SQLConnection1.Close;

 end;

end;

 注意：如果啟動就連接執行，在win32下正常，在Android上會黑屏。

Win32版在xp上不能正常使用數據庫功能，普通服務方法能用。

​

(4) 手機調試和發布

用usb連接上手機，並安裝好手機驅動（如果是華為手機，則安裝華為手機助手），並設置手機為“USB 調試”狀態，見圖十九。

圖十九、設置USB連接手機為調試狀態

 這時候，在Delphi的工具欄右上方自動出現手機型號，見圖二十，此時可以直接點擊運行，約等待1分中，就自動在手機上安裝好了。

圖二十、確保Delphi識別連接好的手機型號

​正式發布手機apk時注意：

     默認的Release配置會有位置、通話記錄、攝像頭等許多令人不悅的隱私選項，統統的設置為false，見圖二十一，只留一個“Internet”為true（不知到為什么，那就別搞軟件開發了）。

圖二十一、手機隱私權限設置

    最后build “Release”版，見圖二十二，在目錄xxx\client\Android\Release\Project1\bin下面一個Project1.apk赫然在目，美中不足是大了點約9.5MB。安裝在各種手機上測試吧！見圖二十三。

圖二十二、制作手機發行版apk文件

 

圖二十三、手機上用SQL語句自由訪問服務器

​在有的手機上安全軟件會提示有廣告插件:a.banner.doubleClick，網上查了下，是google自帶的什么東東，腦力不濟，管不了這么多了。

 

三、總結

本教程完成了Delphi XE 10 下，跨平台三層數據庫程序例子，其中服務器程序連接數據庫，客戶端程序可以是PC、Android手機，發布僅需要一個exe或apk文件，無需安裝其他驅動、庫，無需設置注冊等惱人的活動。

 

雖然發布簡單，功能強大，可以從客戶端用SQL語句訪問服務器端任何數據，然而，實際應用還是需要在服務器程序上做復雜的權限控制、流量監控、負載均衡、緩沖池等，不過這些是任何服務器程序都不可回避的，不能怪Delphi吧