Audio Processing Class: Record, Play, and Manipulate PCM Data with Ease

كود :
public
    // Constructor and Destructor
    constructor Create(ASampleRate, AInChannel, AOutChannel, AFormat: Integer);
    destructor Destroy; override;

    // Public methods
    procedure StopRecording;
    procedure StartRecording;
    function PlayPartialBuffer(StartPos, EndPos: DWORD): Integer; overload;
    function PlayPartialBuffer(Buffer: TBytes): Integer; overload;
    function GetHtmlBase64PCM(StartPos, EndPos: DWORD): string;
    function GetBase64PCM(StartPos, EndPos: DWORD; AddWavHeader, Compress: Boolean): string;
    function GetPartialBuffer(StartPos, EndPos: DWORD; Compress: Boolean = False): TArray<Byte>;
    function ClearBuffer: Boolean;
    function DecompressBuffer(const Input: TBytes): TBytes;
    function CalculateDuration(ARecordedDataLength: Integer): Double;
    function LoadFromFile(const FileName: string): TBytes;
    procedure SaveToFile(const FileName: string; StartPos, EndPos: DWORD; AddWavHeader: Boolean = True);
    function TrimSilence8BitFormat(const AudioData: TBytes): TBytes;
    procedure PausePlaying;
    procedure ResumePlaying;
    // Properties
    property IsInitialized: Boolean read FIsInitialized;
    property RecordedData: TArray<Byte> read GetRecordedData write SetRecordedData;
    property RecordingState: Boolean read GetRecordingState;
    property PlayingState: Boolean read GetPlayingSate;
    property Duration: Double read GetDuration;
    property Volume: Single read GetVolume write SetVolume;
    property OnRecordingProgress: TOnRecordingProgress read FOnRecordingProgress write SetOnRecordingProgress;