[传奇技术]探讨【IGE】的源代码【五】

源码资源网

[传奇技术]探讨【IGE】的源代码【五】

1.   TGateInfo = record
   
2.     Socket: TCustomWinSocket;
   
3.     sIPaddr: string;
   
4.     sReceiveMsg: string;
   
5.     UserList: TList;
   
6.     dwKeepAliveTick: LongWord;
   
7.   end;
   
8.   pTGateInfo = ^TGateInfo;
   

复制代码

　上面正常的信息结构，当然里面包含了一个链表对象。

1. procedure TFrmMain.GSocketClientConnect(Sender: TObject;
   
2.   Socket: TCustomWinSocket);
   
3. var
   
4.   GateInfo: pTGateInfo;
   
5.   Config: pTConfig;
   
6. begin
   
7.   Config := @g_Config;
   
8.   if not ExecTimer.Enabled then begin
   
9.     Socket.Close;
   
10.     Exit;
    
11.   end;
    
12.   New(GateInfo);
    
13.   GateInfo.Socket := Socket;
    
14.   GateInfo.sIPaddr := GetGatePublicAddr(Config, Socket.RemoteAddress);
    
15.   GateInfo.sReceiveMsg := '';
    
16.   GateInfo.UserList := TList.Create;
    
17.   GateInfo.dwKeepAliveTick := GetTickCount();
    
18.   EnterCriticalSection(Config.GateCriticalSection);
    
19.   try
    
20.     Config.GateList.Add(GateInfo);
    
21.   finally
    
22.     LeaveCriticalSection(Config.GateCriticalSection);
    
23.   end;
    
24. end;
    
25. 
    
26. procedure TFrmMain.GSocketClientDisconnect(Sender: TObject;
    
27.   Socket: TCustomWinSocket);
    
28. var
    
29.   I: Integer;
    
30.   II: Integer;
    
31.   GateInfo: pTGateInfo;
    
32.   UserInfo: pTUserInfo;
    
33.   Config: pTConfig;
    
34. begin
    
35.   Config := @g_Config;
    
36.   EnterCriticalSection(Config.GateCriticalSection);
    
37.   try
    
38.     for I := 0 to Config.GateList.Count - 1 do begin
    
39.       GateInfo := Config.GateList.Items[I];
    
40.       if GateInfo.Socket = Socket then begin
    
41.         for II := 0 to GateInfo.UserList.Count - 1 do begin
    
42.           UserInfo := GateInfo.UserList.Items[II];
    
43.           if Config.boShowDetailMsg then
    
44.             MainOutMessage('Close: ' + UserInfo.sUserIPaddr);
    
45.           Dispose(UserInfo);
    
46.         end;
    
47.         GateInfo.UserList.Free;
    
48.         Dispose(GateInfo);
    
49.         Config.GateList.Delete(I);
    
50.         Break;
    
51.       end;
    
52.     end;
    
53.   finally
    
54.     LeaveCriticalSection(Config.GateCriticalSection);
    
55.   end;
    
56. end;

复制代码

上面是服务端和客户端的连接和断开客户端连接的事件。

　　很正常，对吧，看出什么问题没有？？？？？？

　　在高级服务器IOCP完成端口编程里面，我们也会声明两个数据结构，同样会给它们分配内存。但是有些地方不一样。

　　其实很多时候，程序的漏洞就是这些貌似没有问题的代码造成的。

　　换做以前，我也没有觉得有什么问题在那里。记得我曾经在前面说过，服务器编程跟一般桌面软件编程是有区别的。

　　那么最大的区别，就是内存的分配上面。

　　做过IOCP编程测试的很容易看出问题在那里。

　　对，内存分配上面，这种分配，无论怎么说，都是错误的。

　　IOCP编程需要你去管理内存池分配，这个直接关系到服务器长时间运行，性能被显著影响的问题。

　　有很多人不了解引擎程序的实际质量情况，当服务器在很短时间内出现性能下滑，都归结为服务器的物理质量问题。

　　却不了解这些是软件造成的，大多数时候是这样的。

　　每一天，如果玩家大量地上下线，或者给你很温柔地来个机器人大量地上下线，啥都不做，就是上线和下线，那么保证你的机器在很短时间内，卡得跟蜗牛一样。

　　难道使用New来分配内存，使用Dispose来释放内存不行吗，行，肯定行，不行，机器不卡B啊，对吧。

　　哈哈！！！

　　里面还带几个对象呢，一次这样的操作，天知道会出现什么问题。

　　其实没有那么神秘，说白了，就是会产生大量的内存碎片的问题而已。

　　我没有看到原来原装的源代码是什么样子的，但是我可以告诉你，这样做的人，以前或者现在都缺乏服务器编程相关的经验。

　　我们经常谈被攻击的问题，其实很多时候，是你的程序打开了这扇大门而已。

　　这些只是整套源代码显露出来的BUG的冰山一角而已。

　　后面我们继续去发现它，当然如果把整套源代码的全局变量或者说初始化才使用的变量合并起来，我想，这块“蛋糕”真不小。呵呵。

　　也许大家会问，上面的问题怎么解决，一样的，问题知道了，按照你自己的想法去做。

　　还是参考IOCP的做法可能好点。