读DataSnap源代码（五）

【读DataSnap源代码（五）】的更多相关文章

读DataSnap源代码（五）

function TDSHTTPWebDispatcher.DispatchRequest(Sender: TObject; Request: TWebRequest; Response: TWebResponse): Boolean; begin try if Owner is TWebModule then DataSnapWebModule := TWebModule(Owner); try try RequiresServer; TDSHTTPServerWebBroker(Self.F…

读DataSnap源代码（一）

Delphi的DataSnap用了一段时间了,但一直感觉有些地方还不够了解,所以花时间阅读了源代码,特作此烂笔头. Datasnap是在之前的WebBorker基础上搭建的,DataSnap向导自动生成了基础的代码,所以就以基础代码为起点来看看DataSnap的内部机制. 首选创建一个 Stand-alone 的REST App, 向导至少会为我们生成一个Form1和一个WebModule1, FormUnit1单元如下: unit FormUnit1; interface uses Wina…

读DataSnap源代码（六）

具体分析一下DataSanp App与Rest, WebBroker App的不同,先看TDSHTTPService. *********************************************************************************************** TDSHTTPService = class(TCustomDSHTTPServerTransport) 继承体系: TDSHTTPService -> TCustomDSHTTPServ…

读DataSnap源代码（四）

继续篇中的 function TCustomWebDispatcher.DispatchAction(Request: TWebRequest; Response: TWebResponse): Boolean; var I: Integer; Action, Default: TWebActionItem; Dispatch: IWebDispatch; begin FRequest := Request; FResponse := Response; I := ; Default := ni…

读DataSnap源代码（三）

function TWebRequestHandler.HandleRequest(Request: TWebRequest; Response: TWebResponse): Boolean; var I: Integer; LWebModule: TComponent; LWebAppServices: IWebAppServices; LGetWebAppServices: IGetWebAppServices; LComponent: TComponent; begin Result :…

读DataSnap源代码（二）

program Project1; {$APPTYPE GUI} {$R *.dres} uses Vcl.Forms, Web.WebReq, IdHTTPWebBrokerBridge, FormUnit1 in 'FormUnit1.pas' {Form1}, ServerMethodsUnit1 in 'ServerMethodsUnit1.pas', WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule}; {$R…