blob: 252f72a067cc9490eaca9a20a6e517aeb12541b4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
unit UMediaCore_SDL;
interface
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
{$I switches.inc}
uses
UMusic,
sdl;
function ConvertAudioFormatToSDL(Format: TAudioSampleFormat; out SDLFormat: UInt16): boolean;
implementation
function ConvertAudioFormatToSDL(Format: TAudioSampleFormat; out SDLFormat: UInt16): boolean;
begin
case Format of
asfU8: SDLFormat := AUDIO_U8;
asfS8: SDLFormat := AUDIO_S8;
asfU16LSB: SDLFormat := AUDIO_U16LSB;
asfS16LSB: SDLFormat := AUDIO_S16LSB;
asfU16MSB: SDLFormat := AUDIO_U16MSB;
asfS16MSB: SDLFormat := AUDIO_S16MSB;
asfU16: SDLFormat := AUDIO_U16;
asfS16: SDLFormat := AUDIO_S16;
else begin
Result := false;
Exit;
end;
end;
Result := true;
end;
end.
|
