Unit MPEGPlay

Classes

TMPEGError -
TMPEGPlayer -

Functions

Register -

Types

CBClSProc
CBCSProc
CBGSProc
CBRSPProc
CBRSProc
CBRSSProc
ErrString
MPCMProc
MPDProc
MPFProc
MPInitProc
MPOFNProc
MPPProc
MPSISProc
MPSVProc
TCloseStreamEvent
TGetStreamSizeEvent
TOpenStreamEvent
TOutputDevice
TPlayPriority
TPosUpdateEvent
TReadStreamEvent
TRestartStreamEvent
TSeekStreamEvent

Constants

ErrStr
plmOpened
plmPaused
plmPlaying
plmReady
plmStopped

Variables


Functions


procedure Register;


Types


CBClSProc  = (*ResCloseStream*)procedure (obj:TMPegPlayer; handle :pointer)

CBCSProc   = procedure (obj:TMPegPlayer; var cant_seek:boolean; var res:pointer)

CBGSProc   = (*ResGetSize*) procedure (obj:TMPegPlayer; handle:pointer; var res:longint)
ResSetPointer
CBRSPProc  = (*ResSetPointer*)procedure(obj:TMPegPlayer; handle:pointer;
                                            NumBytes,MoveMethod:LongInt;var res:LongInt)
ResReadStream
CBRSProc   = (*ResReadStream*) procedure(obj:TMPegPlayer; handle:pointer;
                                        var read_buffer;
                                        nNumberOfBytesToRead:longInt;
                                        var nNumberOfBytesRead:longInt;var res:boolean)
ResRestartStream
CBRSSProc  = (*ResRestartStream*)procedure (obj:TMPegPlayer; handle :pointer; var res:boolean)
ResCloseStream
ErrString = array[0..5] of string[50];

MPCMProc   = function:boolean

MPDProc    = function (value:boolean):boolean

MPFProc    = function:single

MPInitProc = function:integer

MPOFNProc  = function (mode:integer; value:pchar):boolean

MPPProc    = function (sp, ep :integer; v:pointer):integer

MPSISProc  = function (value:pchar;
                            from_res:boolean;
                            CBCS:CBCSProc;
                            CBClS:CBClSProc;
                            CBRSS:CBRSSProc;
                            CBRS:CBRSProc;
                            CBRSP:CBRSPProc;
                            CBGS:CBGSProc;opps:pointer):boolean
ResGetSize
MPSVProc   = function (value:integer):boolean

TCloseStreamEvent = procedure (Context:pointer) of object
Event must return context, that will be passes to other stream-handling functions if the event fails, it returns nil
TGetStreamSizeEvent = procedure (Context:pointer; var res: longint) of object
MoveMethod can be next: FILE_BEGIN = 0; FILE_CURRENT = 1; FILE_END = 2;
TOpenStreamEvent = procedure (var Nonseekable:boolean; var Context:pointer) of object

TOutputDevice = (wavemapper, pcmfile);

TPlayPriority = (Idle,Lowest,BelowNormal,Normal,AboveNormal, Highest, TimeCritical);

TPosUpdateEvent = procedure (Pos,Len:longint) of object

TReadStreamEvent = procedure (Context:pointer;var read_buffer;
                                   nNumberOfBytesToRead:LongInt;
                                   var nNumberOfBytesRead:LongInt; var res:boolean) of object

TRestartStreamEvent = procedure (Context:pointer; var res:boolean) of object

TSeekStreamEvent = procedure (Context:pointer; numbytes:LongInt;MoveMethod:LongInt; var res:LongInt) of object

Constants

ErrStr = ('MPEG library not loaded', 'Internal decoder error', 'Incorrect mode', 'Input stream error', 'Input stream is non-seekable', 'Output device failure')

plmOpened = 0

plmPaused = 4

plmPlaying = 3

plmReady = 1

plmStopped = 2


Variables