mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-11 10:06:15 +01:00
38 lines
846 B
ObjectPascal
38 lines
846 B
ObjectPascal
unit mp3player;
|
|
{$mode objfpc}
|
|
{$J+}
|
|
{$INLINE ON}
|
|
{$MACRO ON}
|
|
{$PACKRECORDS C}
|
|
{$ASSERTIONS ON}
|
|
|
|
{$define HW_RVL}
|
|
|
|
interface
|
|
|
|
uses
|
|
ctypes, gctypes, mad;
|
|
|
|
type
|
|
pmad_stream=^mad_stream;
|
|
pmad_frame=^mad_frame;
|
|
|
|
procedure MP3Player_Init; cdecl; external;
|
|
procedure MP3Player_Stop; cdecl; external;
|
|
function MP3Player_IsPlaying: cbool; cdecl; external;
|
|
procedure MP3Player_Volume(volume: cuint32); cdecl; external;
|
|
|
|
type
|
|
TCBFilterFunc = procedure(par0: Pmad_stream; par1: Pmad_frame); cdecl;
|
|
function MP3Player_PlayBuffer(buffer: pointer; len: cint32; filterfunc: TCBFilterFunc): cint32; cdecl; external;
|
|
|
|
type
|
|
TCBReader = function(par0, par1: pointer; par2: cint32): cint32; cdecl;
|
|
function MP3Player_PlayFile(cb_data: pointer; reader: TCBReader; filterfunc: TCBFilterFunc): cint32; cdecl; external;
|
|
|
|
implementation
|
|
|
|
initialization
|
|
|
|
end.
|