|
begin
FLookupState := lsLookupAddress;
FAddr.sin_addr.S_addr := INADDR_ANY;
//下面的情况到客户端时才会用到
end else if Name <> '''''''' then
begin
if FGetHostData = nil then
FGetHostData := AllocMem(MAXGETHOSTSTRUCT);
FLookupHandle := WSAAsyncGetHostByName(Handle, CM_LOOKUPCOMPLETE,
PChar(Name), FGetHostData, MAXGETHOSTSTRUCT);
CheckSocketResult(Ord(FLookupHandle = 0), ''''WSAASyncGetHostByName'''');
FService := Service;
FPort := Port;
FQueueSize := QueueSize;
FClient := Client;
FLookupState := lsLookupAddress;
Exit;
end else if Address <> '''''''' then
begin
FLookupState := lsLookupAddress;
FAddr.sin_addr.S_addr := inet_addr(PChar(Address));
end else
begin
ErrorCode := 1110;
Error(Self, eeLookup, ErrorCode);
Disconnect(FSocket);
if ErrorCode <> 0 then
raise ESocketError.CreateRes(@sNoAddress);
Exit;
end;
end;
lsLookupAddress:
begin
if Service <> '''''''' then
begin
if FGetHostData = nil then
FGetHostData := AllocMem(MAXGETHOSTSTRUCT);
FLookupHandle := WSAASyncGetServByName(Handle, CM_LOOKUPCOMPLETE,
PChar(Service), ''''tcp'''' , FGetHostData, MAXGETHOSTSTRUCT);
CheckSocketResult(Ord(FLookupHandle = 0), ''''WSAASyncGetServByName'''');
FLookupState := lsLookupService;
Exit;
end else
begin
FLookupState := lsLookupService;
FAddr.sin_port := htons(Port);
end;
end;
lsLookupService:
begin
FLookupState := lsIdle;
if Client then
DoOpen
else DoListen(QueueSize);
end;
end;
if FLookupState <> lsIdle then
ASyncInitSocket(Name, Address, Service, Port, QueueSize, Client);//递归
except
Disconnect(FSocket);
raise;
end;
end;
它从判断FLookupState的状态来执行相应的操作，而最后每一步都会执行到，它是怎么做到的呢，答案就是最后的这两句：
if FLookupState <> lsIdle then
ASyncInitSocket(Name, Address, Service, Port, QueueSize, Client);
我们先从头来看吧：
首先，FLookupState的状态行为lsIdle，则执行isIdle这一大块，判断Client的值，这里是服务端，所以应该为False（从调用该方法的函数也可得知），所以只执行了这一块：
FLookupState := lsLookupAddress;
FAddr.sin_addr.S_addr := INADDR_ANY;
其余都是对于客户端的来作的，所以以后再讨论它（由此也可以知道该函数的重要性了）。
还记得INADDR_ANY的意义吗，它会使得WinSock自动加入正确的地址。
好，方法执行到最后的这几句：
if FLookupState <> lsIdle then
ASyncInitSocket(Name, Address, Service, Port, QueueSize, Client);
这时FLookupState已经为lsLookupAddress了，所以又会调用ASyncInitSocket方法，它就是这样递归调用本身，直到所有操作都完毕，这样的设计思维实在是太精巧了。
第一递归之后，它又执行了那一块呢，当然是lsLookupAddress:这一块啦，看看代码，知道它会先判断函数的参数Service是否为空，我们前面没有对该传递过来的这个参数并没有同值，所以为空，便执行了这两句：
FLookupState := lsLookupService;
FAddr.sin_port := htons(Port);
可知，它对结构的端口值了，又进行第二次递归，这里应该是执行lsLookupService:这一块，并调用了这个方法DoListen(QueueSize);开始监听：
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
