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

最近阅读了 SocketConn 的源码和 WebService 的源码，把追踪的过程写了下来，方便大家学习。毕竟这需要精力，时间和毅力。感谢煮茶待英雄博志区和三层数据库讨论区兄弟们 的支持，特别是 julian 兄弟，不是他，我可能没耐心继续下去。如果有时间，大家可以继续完善。从 socket 和 Websevice 的底层实现细节，我们发现 BORLAND 的工程师们的构思和实现的过程。我觉得这对我们的学习应该是非常重要的。学会思考。学会读源码，学会分析。 希望和我交往的朋友可通过 QQ 或 Email 联系我。 Wu_yanan2003@ 另见：《远程调用技术代码追踪(webservice) 》 关注我的：《远程调用技术代码追踪(第三方控件) 》 Socker 网络控件分析： 在上一篇中已经分析了代码，但觉得网络这一块分析的不够。特写出来做为补充。 TSocketForm.Initialize - ReadSettings - CreateItem - SH := TSocketDispatcher.Create(nil) TsocketDispatcher 是 TserverSocket 的派生，所以在 TServerSocket.Create 事件中可以看到： FServerSocket := TServerWinSocket.Create(INVALID_SOCKET); 创建了 TserverWinSocket 这个类，说明 TsocketDispatcher 本身是借助 TserverWinSocket 实现底层通信的。 继续分析： constructor TServerWinSocket.Create(ASocket: TSocket); begin … inherited Create(ASocket); … end; constructor TCustomWinSocket.Create(ASocket: TSocket); begin .. Startup; 函数内部 - ErrorCode := WSAStartup($0101, WSAData); end; 继续回到 CreateItem 函数中的TsocketDispatcher. Open procedure TCustomServerSocket.DoActivate(Value: Boolean); FServerSocket.Listen(FHost, FAddress, FService, FPort, SOMAXCONN); end; procedure TServerWinSocket.Listen(var Name, Address, Service: string; Port: Word; QueueSize: Integer); begin inherited Listen(Name, Address, Service, Port, QueueSize, ServerType = stThreadBlocking); if FConnected and (ServerType = stThreadBlocking) then FServerAcceptThread := TServerAcceptThread.Create(False, Self); end; 这里分析一下： 1.首先调用了 Listen 这个函数。它分别完成了创建一个 socket, bind, listen 三个步骤。2.创建了一个 TserverAcceptThread 线程。用来 accetp. 代码如下： procedure TCustomWinSocket.Listen(const Name, Address, Service: string; Port: Word; FSocket := socket(PF_INET, SOCK_STREAM, IPPROTO_IP); 创建一个 socket procedure TCustomWinSocket.DoListen(QueueSize: Integer); CheckSocketResult(bind(FSocket, FAddr, SizeOf(FAddr)), bind); bind CheckSocketResult(Winsock.listen(FSocket, QueueSize), listen); listen FConnected := True; 再看看 TserverAcceptThread 做了什么： procedure TServerAcceptThread.Execute; begin while not Terminated do FServerSocket.Acc