远程调用技术代码追踪RO(底层分析与多线程技术).docx

最近阅读了 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 - IntSetActive –.Start procedure TDXServerCore.SetActive(value: boolean); begin ……… ListenerThread := TDXServerCoreThread.Create(True); 创建线程。constructor TDXServerCoreThread.Create(CreateSuspended: Boolean); begin ListenerSocket := TDXSock.Create; 真正通信的类，封装了底层的 SOCKET 的 API。 …………… MyCriticalSection:=TDXCritical.Create; 调用- Synchronizer:=TCriticalSection.Create;/ …………….. End; procedure TDXServerCoreThread.Execute; 进入线程中。。。 ……………. 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) then begin ………. ListenerSocket ：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^,Cons