远程调用技术代码追踪RO.docxVIP

最近阅读了SocketConn的源码和WebService 的源码，把追踪的过程写了下来，方便大家学习。毕竟这需要精力，时间和毅力。感谢煮茶待英雄博志区和三层数据库讨论区兄弟们的支持，特别是julian兄弟，不是他，我可能没耐心继续下去。如果有时间，大家可以继续完善。从socket和 Websevice的底层实现细节，我们发现BORLAND 的工程师们的构思和 实现的过程。我觉得这对我们的学习应该是非常重要的。学会思考。学会读源码，学会分析。 希望和我交往的朋友可通过QQ 或Email联系我。 Wu_yanan2003@ 另见：《远程调用技术代码追踪(webservice)》 关注我的：《远程调用技术代码追踪(第三方控件) 》 RO 网络控件分析： 在上一篇中已经分析了代码，但觉得网络这一块分析的不够。特写出来做为补充。 最近听说ＤＸＳＯＣＫＥＴ不错。偶今天专门下了下来，而且分析了一下它的线程池。 TDXServerCore.Create(Self从);创建开始。 constructor TDXServerCore.Create(AOwner: TComponent); begin inherited create(aowner); fbActive:=False; fiMaxConn:=200; //最大连接数 fbBufferCreates:=True/;/使用线程池。 fWhichProtocol:=wpTCPOnly; fBlockSizeFlags:=bsfHuge; fServerType:=stThreadBlocking; end; 接着，SetActive - IntSetAct–iv.eStart procedure TDXServerCore.SetActive(value: boolean); begin ……… ListenerThread := TDXServerCoreThread.Create(T创ru建e)线; 程。 constructor TDXServerCoreThread.Create(CreateSuspended: Boolean); begin ListenerSocket := TDXSock.Creat真e;正通信的类，封装了底层的 SOCKET 的API。 …………… MyCriticalSection:=TDXCritical.Crea调te用; …………….. End; - Synchronizer:=TCriticalSection.Create;/ procedure TDXServerCoreThread.Execut进e;入线程中。。。。 ……………. if not InitializeThreading({False}fWhichprotocol=wpUDPOnly) then Exit; if fWhichprotocol=wpUDPOnly then UDPSinglethreaded else begin case fbBufferCreates of False: begin ThreadAtATime; end; else begin ThreadPool; end; …………………. 进入： function InitializeThreading(UDP: Boolean): Boolean; …………… if not ListenerSocket.Listen(NewListen) th…en…b…eg.in ListenerSocke：t TDXSock ，Create的时候，创建的。 function TDXSock.Listen(Parameters: PNewListen): Boolean; ………………………….. Sock := BindAndListen(fsBindTo, Port, WinsockQueue, UseUDP, UseNAGLE, Connectionless, @SockAddr, FErrStatus); Function BindAndListen(BindToIPAddress:String; BindToPort,WinsockQueue:Integer; UseUDP,UseNAGLE,ConnectionLess:Boolean; ResultSockAddr:PSockAddr; Var ErrorCode:Integer):TSocket; 该 函 数 调 用 了 ： Result:=CreateSocket(AF_INET,SOCK_STREAM,IPPROTO_TCP,ErrorCode); If Bind(Result,ResultSockAddr^,ConstSizeofTSock