1 / 55

Gordon Li

Gordon Li. DataSnap XE. 開發分散式， 精簡型 (Thin Client) 應用 系統. AGENDA. 從桌上型 , 主從架構到分散式和 精簡型 應用架構 DataSnap REST 介面 REST 和 JSON 開發 DataSnap XE 應用系統 開發 分散式客戶端 開發 精簡型 客戶端 DataSnap 認證 / 授權功能 DataSnap XE 伺服器和 分散式 , 精簡型 客戶端互動 結論. 從桌上型 , 主從架構到分散式和 精簡型 應用架構. 從桌上型 , 主從架構到分散式和 精簡型 應用架構.

faris
Download Presentation

Gordon Li

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Gordon Li DataSnap XE 開發分散式， 精簡型(Thin Client) 應用系統

  2. AGENDA 從桌上型, 主從架構到分散式和精簡型應用架構 DataSnap REST 介面 • REST 和 JSON 開發DataSnap XE應用系統 開發分散式客戶端 開發精簡型客戶端 DataSnap認證/授權功能 DataSnap XE伺服器和分散式,精簡型客戶端互動 結論

  3. 從桌上型, 主從架構到分散式和精簡型應用架構 從桌上型, 主從架構到分散式和精簡型應用架構

  4. 從桌上型, 主從架構到分散式和精簡型應用架構 • 桌上型應用程式! • 點選即可執行, 沒有系統架構的問題 • 仍然需要安裝, • 仍然有許多複雜的檔案 • 沒有考慮多人使用的問題

  5. 從桌上型, 主從架構到分散式和精簡型應用架構 • 主從架構 • 從單純世界進入到複雜世界的代表 • 開始出現需要考慮系統架構的問題 • 開始出現複雜安裝的問題 • 開始出現複雜的系統維護的問題 • 開始失去”點選即可執行”的優點 • 複雜的系統維護和安裝困擾導致 分散式系統的出現和大量應用

  6. 從桌上型, 主從架構到分散式和精簡型應用架構 • 分散式應用系統 • 開始於重複使用資訊投資 • 打開連結全世界的大門 • 開始出現複雜的系統部署問題 • 仍然無法”點選即可執行” • 仍然產生複雜的系統維護和安裝困擾

  7. 從桌上型, 主從架構到分散式和精簡型應用架構 • 想想您如何使用Google的? 您搜尋資料, 使用搜尋到的資料. 沒有安裝, 沒有部署, 沒有維護的複雜工作

  8. 從桌上型, 主從架構到分散式和精簡型應用架構 • 記得DOS程式嗎? 真正的精簡型應用架構?

  9. 從桌上型, 主從架構到分散式和精簡型應用架構 Delphi C++Builder Build 搜尋, 使用和結束

  10. 從桌上型, 主從架構到分散式和精簡型應用架構 • 精簡型應用架構 • 第1階 : 精簡型客戶端 • 第2階 : 整合移動式客戶端 • 第3階 : 像DOS程式一樣, Click and Go, 沒有複雜的安裝問題 • 第4階 :像使用Google服務一樣, 搜尋, 使用, 結束,沒有複雜的安裝問題,沒有複雜的部署問題

  11. DataSnap REST 介面 • REST 和 JSON

  12. JSON (JavaScript Object Notation)

  13. JSON (JavaScript Object Notation)

  14. JSON (JavaScript Object Notation)

  15. JSON (JavaScript Object Notation)

  16. DataSnap REST 介面 • JSON範例1

  17. 開發DataSnap XE應用系統

  18. 開發DataSnap XE應用系統 • DataSnap XE提供了許多重要的新功能 • 可傳遞任何從TObject繼承下來的物件 • 提供Heavy Weight和Light Weight的回叫功能 • 提供認證和授權功能 • 提供JavaScript Framework允許使用JavaScript和DataSnap Server互動 • 由於支援JavaScript Framework, 因此DataSnap XE可支持精簡型客戶端的開發

  19. 開發DataSnap XE應用系統 移動架構 使用REST/JavaScript Android移動手機 使用Android SDK +JavaScript 企業內 主從架構 使用DBX DataSnap/REST 伺服器 Web系統 HTTP/HTTPS REST 企業內/外 主從架構 使用Delphi/BCB REST

  20. 開發DataSnap XE應用系統 Java 客戶端 PHP 客戶端 Delphi 客戶端 RoR 客戶端 .NET 客戶端 DataSnap/REST 伺服器 HTML 客戶端 C++Builder 客戶端

  21. 開發DataSnap XE應用系統 RESTful 分散式架構 精簡型架構 主從架構 DataSnap/REST 伺服器 Midas/DataSnap 分散式架構 Web架構

  22. 開發DataSnap XE應用系統 • 開發範例DataSnap/REST伺服器

  23. 開發DataSnap XE應用系統 • 開發範例DataSnap/REST伺服器

  24. 開發DataSnap XE應用系統 • public • { Public declarations } • destructor Destroy; override; • function EchoString(Value: string): string; • function ReverseString(Value: string): string; • function GetDateInfo : String; • function QuerySeminar : String; • function GetAdminName : String; • function GetUsers : TJSONArray; • function GetAdminPassword : String; • function AddUser(const Name : String) : Boolean; • function DeleteUser(const Name : String) : Boolean;

  25. 從桌上型, 主從架構到分散式和精簡型應用架構 開發分散式客戶端

  26. 開發分散式客戶端

  27. 開發分散式客戶端

  28. 從桌上型, 主從架構到分散式和精簡型應用架構 支援Web客戶端

  29. 開發分散式客戶端 • 如何讓DataSnap/REST伺服器支援HTTP/HTTPS和精簡型客戶端? • 目前精簡型客戶端大都使用JavaScript • 因此DataSnap/REST伺服器必須 • 支援JavaScript • 必須提供可讓客戶端使用JavaScript呼叫DataSnap/REST伺服器提供的服務 • 必須能夠動態產生最及時的JavaScript

  30. 開發分散式客戶端 • 如何讓DataSnap/REST伺服器支援HTTP/HTTPS和精簡型客戶端? • 使用TDSHTTPService元件 • 加入HTTP的支援 • 使用TDSHTTPServiceFileDispatcher元件 • 加入HTTP請求分派的支援 • 使用TDSServerMetaDataProvider元件 • 加入提供伺服器資訊的支援, 以便自動產生客戶端連結程式碼 • 使用TDSProxyGenerator元件 • 加入自動產生客戶端連結程式碼的功能

  31. 開發分散式客戶端 • 設定TDSHTTPService元件特性值 • HttpPort, RESTContext • 設定TDSHTTPServiceFileDispatcher元件特性值 • RootDirectory, Service, BeforeDispatch Event • 設定TDSServerMetaDataProvider元件特性值 • Server • 設定TDSProxyGenerator元件特性值 • MetaDataProvider, TargetDirectory, TargetUnitName, Writer

  32. 開發分散式客戶端 • 撰寫TDSHTTPServiceFileDispatcher的BeforeDispatch事件處理函式 • procedure TServerContainer5.DSHTTPServiceFileDispatcher1BeforeDispatch( • Sender: TObject; const AFileName: string; AContext: TDSHTTPContext; • Request: TDSHTTPRequest; Response: TDSHTTPResponse; var Handled: Boolean); • begin • Handled := False; • if ((SameFileName(ExtractFileName(AFileName), DSProxyGenerator1.TargetUnitName)) and • (not FileExists(AFileName))) then • DSProxyGenerator1.Write; • end;

  33. 開發分散式客戶端 • 增加DataSnap/REST伺服器支援Web • E:\Seminars\03012011Sinter\Demos\SeminarDemoServerWithWebSupport\pSeminarDemoServerWithWebSupport.dproj • E:\Seminars\03012011Sinter\Demos\ThinClientDemo\ • 動態產生JavaScript的範例 • E:\Seminars\03012011Sinter\Demos\ThinClientDemo\democlean.html

  34. 開發分散式客戶端 • http://localhost:8087/democlean.html • 加入一行程式碼 • <script type="text/javascript" src="Serverfunctions.js"></script>

  35. 從桌上型, 主從架構到分散式和精簡型應用架構 開發精簡型客戶端

  36. ServerFunctionExecutor.js • function ServerFunctionExecutor(className, connectionInfo, owner) • { • this.connectionInfo = connectionInfo; • //if host or port aren't given in the connectionInfo then they are taken from the current URL • this.host = getConnectionHost(connectionInfo); • this.port = getConnectionPort(connectionInfo); • this.dsContext = getDSContext(connectionInfo); //should be empty string, or end with a '/' • this.restContext = getRestContext(connectionInfo); //should be empty string, or end with a '/' • this.cacheContext = getCacheContext(connectionInfo); //must not be empty, defaults to 'cache/' • this.isHttpS = getIsHTTPS(connectionInfo); //true or false • this.className = className; • …

  37. 開發分散式客戶端 • Base64.js • function convertStringToBase64(string) • Connection.js • function setConnection(host, port, urlPath) • { • connectionInfo = {"host":host,"port":port,"authentication":null,"pathPrefix":urlPath}; • } • function setCredentials(user, password) • { • if (AdminInst != null) • return true; // already logged in • connectionInfo.authentication = convertStringToBase64(user + ":" + password); • … • }

  38. 開發分散式客戶端 • 精簡型客戶端範例

  39. 從桌上型, 主從架構到分散式和精簡型應用架構 DataSnap認證/授權功能

  40. DataSnap認證/授權功能 • DataSnap XE框架支援認證和授權 • 所謂認證是指可連結DataSnap/REST伺服器的使用者 • 而授權則是指每一個登錄和連結的使用者可呼叫的服務 • 例如範例DataSnap/REST伺服器

  41. DataSnap認證/授權功能 • 例如範例DataSnap/REST伺服器 • { Public declarations } • {訪客可呼叫的方法} • function GetDateInfo : String; • function QuerySeminar : String; • {Admin, Gordon可呼叫的方法} • function GetAdminName : String; • function GetUsers : TJSONArray; • function GetAdminPassword : String; • {只有Gordon可呼叫的方法} • function AddUser(const Name : String) : Boolean; • function DeleteUser(const Name : String) : Boolean;

  42. DataSnap認證/授權功能 • 如何傳遞使用者登錄資訊 • TDSAuthenticationManage元件 • 如何驗證使用者 • OnUserAuthenticate • OnUserAuthorize • 如何授權使用者可呼叫的方法 • TDSAuthorizationEvent = procedure(Sender: TObject; AuthorizeEventObject: TDSAuthorizeEventObject; var valid: boolean) of object;

  43. DataSnap認證/授權功能 • 如何驗證使用者 • 使用程式碼 • 使用IDE的Object Inspector 和特性值編譯器 • 使用Delphi程式語言的Annotation

  44. DataSnap認證/授權功能 • 如何驗證使用者 • 使用程式碼 • 藉由OnUserAuthenticate事件處理函式驗證使用者並且設定使用者群組 • 藉由OnUserAuthorize事件處理函式來判斷是那一個使用者群組想呼叫什麼方法來決定是否允許呼叫

  45. DataSnap認證/授權功能 • DataSnap認證範例 • OnUserAuthenticate事件處理函式 • DataSnap 授權範例 • OnUserAuthorize事件處理函式

  46. 從桌上型, 主從架構到分散式和精簡型應用架構 如何在客戶端傳遞登入資訊

More Related