2011年10月6日

一个队列类的实现(比delphi自带的速度快70倍)

摘要： 测试结果实现的代码unit sfContnrs;interface{$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码{$IFDEF MULTI_THREAD_QUEUE}uses Windows;{$ENDIF}type TsfQueue=class private FCapacity:Integer; FTmpBuff:Pointer; FBuff:Pointer; FPosition:Integer; {$IFDEF MULTI_THREAD_QUEUE} FCS:TRTLCriticalSection; {$ENDIF} // 阅读全文

posted @ 2011-10-06 17:03 歼10 阅读(3825) 评论(3) 推荐(0) 编辑

PostThreadMessage在线程中应用(以多线程网站数据采集为例)

摘要： PostThreadMessage 顾名思议，向线程中发送消息.下面讲讲我在线程中的应用体会 在Delphi 中，我们大多数人，使用线程的时候，都会用到系统自带的TThread 类，来完成线程的操作。 从TThread 中派生出一个自己的类,然后重载 Execute 函数,其在TThread中被定义成了抽象类(纯虚类C++)。子类必须重载这个函数.在此函数中，写入你要完成的任务代码. 例如 最简单应用TCustXXXXThread=class(TThread) public procedure Execute();override; end; TCustXXXXThread.Execute() 阅读全文

posted @ 2011-10-06 16:31 歼10 阅读(1664) 评论(1) 推荐(1) 编辑

导航