Unit MPEGPlay |
Classes |
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 |
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):booleanResGetSize
MPSVProc = function (value:integer):boolean
TCloseStreamEvent = procedure (Context:pointer) of objectEvent 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 objectMoveMethod 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 |
Variables |