Class TAudioPlay (unit AviPlay) |
Inherits from
TObject
procedure AudioPlayMessage(W : PWAVEHDR);
--------------------------------------------------------------
destructor Destroy;
------------------------------------------------------
function Play(W : HWND; pAvi : Pointer; lStart, lEnd : longint) : boolean;
--------------------------------------------------------------
procedure Stop;
--------------------------------------------------------------
function FillBuffer : boolean;
--------------------------------------------------------------
function OpenDevice(W : HWND; pAvi : pointer) : boolean;
--------------------------------------------------------------
fAVI : pointer;
fBegin : integer;
fBufferSize : integer;
fCurrent : integer;
fEnd : integer;
fPlaying : boolean;
fSampleSize : integer;
fWaveOut : HWAVEOUT;
procedure AudioPlayMessage(W : PWAVEHDR);
--------------------------------------------------------------
destructor Destroy;
------------------------------------------------------
function Play(W : HWND; pAvi : Pointer; lStart, lEnd : longint) : boolean;
--------------------------------------------------------------
procedure Stop;
--------------------------------------------------------------
function FillBuffer : boolean;
--------------------------------------------------------------
function OpenDevice(W : HWND; pAvi : pointer) : boolean;
--------------------------------------------------------------
fAVI : pointer;
fBegin : integer;
fBufferSize : integer;
fCurrent : integer;
fEnd : integer;
fPlaying : boolean;
fSampleSize : integer;
fWaveOut : HWAVEOUT;