一个Delphi多线程HTTP代理

代码说明：

应用背景样品：型 ；tcompletionport =类公共的 ； ； ；fhandle：句柄； ； ； ；构造函数创建（dwnumberofconcurentthreads：DWORD）； ； ； ；析构函数销毁；覆盖； ； ； ；功能associatedevice（hdevice：句柄；dwcompkey：DWORD）：布尔；结束了； ；tacceptthread =类（线）私人的 ； ； ；flistensocket：tsocket； ； ； ；flistenport：字； ； ； ；fclientlist：TList； ； ； ；程序garbagecollect；保护的与公司的流程执行；覆盖；公共的 ； ； ；构造函数创建（alistenport：字）；恢复； ； ； ；析构函数销毁；覆盖；结束了；型 ；tclientthread =类（线）公共的与公司的流程执行；覆盖；结束了；型 ；tclient =类私人的 ； ； ；fsocket：tsocket； ； ； ；fevent：句柄； ； ； ；OV：poverlapped；和，缓冲区：指针； ； ； ；A:：红衣主教； ； ； ；程序的编写（BUF：指针；尺寸：红衣主教）；公共的 ； ； ；foppositeclient：tclient； ； ； ；flastactivity：双；与之，与之建造； ； ； ；析构函数销毁；覆盖； ； ； ；程序连接（要求：字符串）；和，程序断开连接； ； ； ；程序完成（dwnumbytes：基数）；虚拟；摘要；结束了；关键技术{ tacceptthread }构造函数创建taccep