2011年6月20日

线程安全队列 采用双list实现

摘要： unit uQueueEx;interface uses windows,SysUtils,Classes, uCriticalSection;type{线程安全队列} TQueueEx = class private m_bEventNotify:boolean; m_nExchangeCount:longint; m_nNextGetPoint:Longint; m_nNextGetCount:Longint; m_nNextPutPoint:Longint; m_csGet: TCriticalSection; m_csPut: TCriticalSection; m_lstGet:TL 阅读全文

posted @ 2011-06-20 13:09 jxgxy 阅读(579) 评论(0) 推荐(0) 编辑

Delphi 线程安全单例

摘要： 在C++中写了一个多线程环境下写日志的插件,考虑到以前写Delphi代码时对文件的操作类封装时老是欠缺线程安全方面的考虑，所以总结了一下，写了一个线程安全的单例。可能有欠缺之处请各位朋友多多指教。首先自己封了一个多线程的临界操作类，用来管理多线程的临界区，方法很简单只是单独对WINDOWS API的封装，实现单元如下：(********************************************************************@file: CriticalSectionU.pas*@desc: 多线程操作时，对临界区的封装*@author: daihw*@date: 阅读全文

posted @ 2011-06-20 12:49 jxgxy 阅读(513) 评论(0) 推荐(0) 编辑

导航