RO学习资料.docVIP

一、??????????? 二、??????????? 三、??????????? RO是怎么工作的 四、??????????? ----帮大家读懂TThread类（重点） ? ? ? ? ? ? ? ? ? 1、????? 单元名 作用 BestSQL.pas ? BestConst.pas ? BestDes.pas ? BestFunc.pas ? gunFunSys.pas ? Ado_ConnectionPool.pas 连接池单元，主要用于客户端OpenData BHServerLib_Intf.pas 中间层接口单元 BHServerLib_Invk.pas 中间层接口代理单元 BH_MSSQL_Service_Impl.pas 中间层接口实现单元 fServerForm.pas 主窗口 Provider.pas ? Unit_Global.pas 列表对象池单元，用于客户端OpenList ? ? ? ? ? ? ? ? ? ? ? ? ? 2、????? 类名 重要属性方法 Ado_ConnectionPool.pas单元： TConnObject池内对象类 TConnectionPools池对象类 DoIncObjects方法---------增加池内部对象组成单向链表 GetInstance方法----------从池里取可用的对象 ReleaseInstance方法----将使用后的对象还原回池 ? ReleaseInstances方法----供检测线程调用，用于关闭长时间没有使用的TConnObject对象的数据库连接（TMSConnection） Unit_Global.pas单元： TMyHashedStringList类 1、? IniFiles.pas单元下的THashedStringList类 主要是看THashedStringList在修改删除时如何处理Hash值 ? 2、TMyHashedStringList对THashedStringList的不足做了重要的调整，在大数据量的情况下性能提高很多 Unit_Global.pas单元： TGroupObject池内对象类 TPoolGroupObject池对象类 IncObjects方法---------增加池内部对象组成双向链表 GetGroupObject方法----------从池里取可用的对象 ObjectsNoUseByStr和ObjectsSetCanUsed方法----将使用后的对象还原回池 ? CheckGroupObject方法----供检测线程调用，用于关闭长时间没有使用的TGroupObject对象 Unit_Global.pas单元： TSafedStringList类 中间层就是用这个类来存储用户列表的。 我们都知道Delphi 本向是有一个TStringList类的，但是我可以查看一下TStringList类的实现代码，我们会发现TStringList不是线程安全的。中间层的一个首要任务就是要处理多用户并发的情况也就是要处理好多线程的线程安全问题，因些才重新写了这个TSafedStringList 类。它的继承关系是： TSafedStringList = class(TObject) 当然了，你也可以直接从TStringList类继承下来，再改写相应的方法即可。 ? ? 3、????? RO是怎么工作的 Server端 ? 1、TROCustomSuperTcpServer.IntExecute 在其Create事件里有 fIndyServer := TIdTCPServer.Create(nil); fIndyServer.OnExecute := IntExecute; 在IdCustomTCPServer.pas单元的TIdListenerThread.Run里调用 2、TROSCServerWorker.DoExecute; 会一直循环直到Client端断开。当Client端有数据请求的时候，会触发TROSCServerWorker.IncomingData事件 3、TROSCServerWorker.IncomingData 会接着触发TROCustomSuperTcpServer.HasData 事件 4、TROCustomSuperTcpServer.HasData 会执行TROInvokerQueueItem.Create 并将创建的对象执行 TROThreadPool.QueueItem 5、TROThreadPool.QueueItem 执行后最终会由TROPooledThread来调用TROInvoker