Delphi版 环形无锁缓冲(二)

{*******************************************************}
{                                                       }
{       环形无锁缓冲Delphi版                            }
{         2016.04.13 By  Lance                          }
{        联系方式QQ:286922468                           }
{                                                       }
{*******************************************************}
{
  本源码受原作者节制，你可以任意复制、修改、使用，如发现
  BUG请报告给我们。为了倡导开源，你的一切修改版本，我们
  希望也能开源。
  警告：使用本项目源码产生的一切后果由使用者自行负责。
  注：TJsRingBuffer 基于寰子博客中C++源码，版权归原作者所有
  寰子博客原文 http://blog.csdn.net/xocoder/article/details/7880769

 2016.04.13
    基于寰子博客中C++源码,实现环形无锁缓冲
 2017.10.23
    增加动态扩容功能
    兼容Delphi XE 10.1
}
unit JsRingBuffer;
{.$DEFINE DeBugLog}
//仅适用于一个线程写,一个线程读的情况(不适用于多个线程写或多个线程读)
interface
uses Windows;
const RingBuffer_ReadPos_And_WritePos_Size=2;
type
  TJsRingBuffer=class
  private
    BufferData:Pointer;
    BufferSize,DefaultSize,FWritePosition,FReadPosition:DWord;
    function CopyDataWithAddReadPosOption(Dest:Pointer;DestSize,CopySize:DWord;AddReadPos:Bool):Bool;
    function PushData2(Data:Pointer;Size:DWord):Bool;
    procedure AddRingSize;//自动扩展缓冲区大小
  protected
  public
    function GetUsedSize:DWord;//数据的大小
    function GetRingSize:DWord;//缓冲区总大小
    function GetFreeSize:DWord;//空闲大小
    function PopData(Dest:Pointer;DestSize,PopSize:DWord):Bool; overload;//读出数据
    function PopData(PopSize:DWord):Bool; overload;//丢弃数据
    function PushData(Data:Pointer;Size:DWord):Bool;//插入数据
    function CopyData(Dest:Pointer;DestSize,CopySize:DWord):Bool;//只读方式复制数据(不会移动读指针)
    function ClearData:Bool;//清空所有数据
    procedure RestoreDefaultSize;//将缓冲区还原到默认大小,释放一部份内存
  public
    constructor C