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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
{*
* PortMixer
* PortMixer API Header File
*
* Copyright (c) 2002, 2006
*
* Written by Dominic Mazzoni
* and Leland Lucius
*
* PortMixer is intended to work side-by-side with PortAudio,
* the Portable Real-Time Audio Library by Ross Bencina and
* Phil Burk.
*
* Permission is hereby granted, free of charge, to any person obtaining
* a copy of this software and associated documentation files
* (the "Software"), to deal in the Software without restriction,
* including without limitation the rights to use, copy, modify, merge,
* publish, distribute, sublicense, and/or sell copies of the Software,
* and to permit persons to whom the Software is furnished to do so,
* subject to the following conditions:
*
* The above copyright notice and this permission notice shall be
* included in all copies or substantial portions of the Software.
*
* Any person wishing to distribute modifications to the Software is
* requested to send the modifications to the original developer so that
* they can be incorporated into the canonical version.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
* ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
* CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
* WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*
*}
unit portmixer;
{$IFDEF FPC}
{$PACKRECORDS C} (* GCC/Visual C/C++ compatible record packing *)
{$MODE DELPHI }
{$ENDIF}
interface
uses
ctypes,
portaudio;
const
{$IF Defined(MSWINDOWS)}
LibName = 'portmixer.dll';
{$ELSEIF Defined(DARWIN)}
// LibName = 'libportmixer.dylib';
// {$LINKLIB libportaudio}
{$ELSEIF Defined(UNIX)}
LibName = 'libportmixer.so';
{$IFEND}
type
PPxMixer = Pointer;
TPxVolume = cfloat; {* 0.0 (min) --> 1.0 (max) *}
TPxBalance = cfloat; {* -1.0 (left) --> 1.0 (right) *}
{*
Px_OpenMixer() returns a mixer which will work with the given PortAudio
audio device. Pass 0 as the index for the first (default) mixer.
*}
function Px_OpenMixer( pa_stream: Pointer; i: cint ): PPxMixer; cdecl; external LibName;
{*
Px_CloseMixer() closes a mixer opened using Px_OpenMixer and frees any
memory associated with it.
*}
procedure Px_CloseMixer( mixer: PPxMixer ); cdecl; external LibName;
{*
Px_GetNumMixers returns the number of mixers which could be
used with the given PortAudio device. On most systems, there
will be only one mixer for each device; however there may be
multiple mixers for each device, or possibly multiple mixers
which are independent of any particular PortAudio device.
*}
function Px_GetNumMixers( mixer: PPxMixer ): cint; cdecl; external LibName;
function Px_GetMixerName( mixer: PPxMixer; i: cint ): PChar; cdecl; external LibName;
{*
Master (output) volume
*}
function Px_GetMasterVolume( mixer: PPxMixer ): TPxVolume; cdecl; external LibName;
procedure Px_SetMasterVolume( mixer: PPxMixer; volume: TPxVolume ); cdecl; external LibName;
{*
Main output volume
*}
function Px_GetPCMOutputVolume( mixer: PPxMixer ): TPxVolume; cdecl; external LibName;
procedure Px_SetPCMOutputVolume( mixer: PPxMixer; volume: TPxVolume ); cdecl; external LibName;
function Px_SupportsPCMOutputVolume( mixer: PPxMixer ): cint; cdecl; external LibName;
{*
All output volumes
*}
function Px_GetNumOutputVolumes( mixer: PPxMixer ): cint; cdecl; external LibName;
function Px_GetOutputVolumeName( mixer: PPxMixer; i: cint ): PChar; cdecl; external LibName;
function Px_GetOutputVolume( mixer: PPxMixer; i: cint ): TPxVolume; cdecl; external LibName;
procedure Px_SetOutputVolume( mixer: PPxMixer; i: cint; volume: TPxVolume ); cdecl; external LibName;
{*
Input source
*}
function Px_GetNumInputSources( mixer: PPxMixer ): cint; cdecl; external LibName;
function Px_GetInputSourceName( mixer: PPxMixer; i: cint): PChar; cdecl; external LibName;
function Px_GetCurrentInputSource( mixer: PPxMixer ): cint; cdecl; external LibName; {* may return -1 == none *}
procedure Px_SetCurrentInputSource( mixer: PPxMixer; i: cint ); cdecl; external LibName;
{*
Input volume
*}
function Px_GetInputVolume( mixer: PPxMixer ): TPxVolume; cdecl; external LibName;
procedure Px_SetInputVolume( mixer: PPxMixer; volume: TPxVolume ); cdecl; external LibName;
{*
Balance
*}
function Px_SupportsOutputBalance( mixer: PPxMixer ): cint; cdecl; external LibName;
function Px_GetOutputBalance( mixer: PPxMixer ): TPxBalance; cdecl; external LibName;
procedure Px_SetOutputBalance( mixer: PPxMixer; balance: TPxBalance ); cdecl; external LibName;
{*
Playthrough
*}
function Px_SupportsPlaythrough( mixer: PPxMixer ): cint; cdecl; external LibName;
function Px_GetPlaythrough( mixer: PPxMixer ): TPxVolume; cdecl; external LibName;
procedure Px_SetPlaythrough( mixer: PPxMixer; volume: TPxVolume ); cdecl; external LibName;
implementation
end.
|
