Delphi版 环形无锁缓冲

{*******************************************************}
{                                                       }
{       环形无锁缓冲Delphi版                            }
{         2016.04.13 By  Lance                          }
{        联系方式QQ:286922468                           }
{                                                       }
{*******************************************************}
{
  本源码受原作者节制，你可以任意复制、修改、使用，如发现
  BUG请报告给我们。为了倡导开源，你的一切修改版本，我们
  希望也能开源。
  警告：使用本项目源码产生的一切后果由使用者自行负责。
  注：TJsRingBuffer 基于寰子博客中C++源码，版权归原作者所有
  寰子博客原文 http://blog.csdn.net/xocoder/article/details/7880769
}
unit JsRingBuffer;
{.$DEFINE DeBugLog}
interface
uses Windows;
const XRING_BUFFER_READ_POS_AND_WRITE_POS_Size=2;
type
  TJsRingBuffer=class
  private
    //    FCS:TRTLCriticalSection;
    BufferData:array of Byte;
    BufferSize,FWritePosition,FReadPosition:DWord;
    function CopyDataWithAddReadPosOption(Dest:Pointer;DestSize,CopySize:DWord;AddReadPos:Bool):Bool;
    function PushData2(Data:Pointer;Size:DWord):Bool;
    function GetFreeSize():DWord;
  protected
  public
    function GetUsedSize():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;
  public
    constructor Create(const Size:DWord);
    destructor Destroy; override;
  end;
implementation

constructor TJsRingBuffer.Create(const Size:DWord);
begin
  inherited