datasnap-thin-client-development1.pptVIP

從桌上型, 主從架構到分散式和精簡型應用架構 開發分散式客戶端 開發分散式客戶端 開發分散式客戶端 從桌上型, 主從架構到分散式和精簡型應用架構 支援Web客戶端 開發分散式客戶端 如何讓DataSnap/REST伺服器支援HTTP/HTTPS和精簡型客戶端? 目前精簡型客戶端大都使用JavaScript 因此DataSnap/REST伺服器必須 支援JavaScript 必須提供可讓客戶端使用JavaScript呼叫DataSnap/REST伺服器提供的服務 必須能夠動態產生最及時的JavaScript 開發分散式客戶端 如何讓DataSnap/REST伺服器支援HTTP/HTTPS和精簡型客戶端? 使用TDSHTTPService元件 加入HTTP的支援 使用TDSHTTPServiceFileDispatcher元件 加入HTTP請求分派的支援 使用TDSServerMetaDataProvider元件 加入提供伺服器資訊的支援, 以便自動產生客戶端連結程式碼 使用TDSProxyGenerator元件 加入自動產生客戶端連結程式碼的功能 開發分散式客戶端 設定TDSHTTPService元件特性值 HttpPort, RESTContext 設定TDSHTTPServiceFileDispatcher元件特性值 RootDirectory, Service, BeforeDispatch Event 設定TDSServerMetaDataProvider元件特性值 Server 設定TDSProxyGenerator元件特性值 MetaDataProvider, TargetDirectory, TargetUnitName, Writer 開發分散式客戶端 撰寫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; 開發分散式客戶端 增加DataSnap/REST伺服器支援Web E:\Seminarsinter\Demos\SeminarDemoServerWithWebSupport\pSeminarDemoServerWithWebSupport.dproj E:\Seminarsinter\Demos\ThinClientDemo\ 動態產生JavaScript的範例 E:\Seminarsinter\Demos\ThinClientDemo\democlean.html 開發分散式客戶端 http://localhost:8087/democlean.html 加入一行程式碼 script type=text/javascript src=Serverfunctions.js/script 從桌上型, 主從架構到分散式和精簡型應用架構 開發精簡型客戶端 ServerFunctionExecutor.js function ServerFunctionExecutor(className, connectionInfo, owner) { this.connectionInfo = connectionInfo; //if host or port arent given in the connectionInfo then they are taken from the current URL this.host = getConnectionHost(connectionInfo); this.port = getConnectionPort(connectionInfo); this.dsContext = getDSContext(connectionInfo); //