aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes')
-rw-r--r--Game/Code/Classes/UAudioDecoder_FFMpeg.pas14
-rw-r--r--Game/Code/Classes/UAudioInput_Portaudio.pas9
-rw-r--r--Game/Code/Classes/UAudioPlayback_SoftMixer.pas6
3 files changed, 15 insertions, 14 deletions
diff --git a/Game/Code/Classes/UAudioDecoder_FFMpeg.pas b/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
index 1ac677ce..8903bc09 100644
--- a/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
+++ b/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
@@ -268,16 +268,16 @@ begin
end;
function TFFMpegDecodeStream.GetPosition(): real;
-var
- bytes: integer;
+//var
+// bytes: integer;
begin
// see: tutorial on synching (audio-clock)
Result := 0;
end;
procedure TFFMpegDecodeStream.SetPosition(Time: real);
-var
- bytes: integer;
+//var
+// bytes: integer;
begin
Lock();
seekPos := Trunc(Time * AV_TIME_BASE);
@@ -505,7 +505,7 @@ end;
function TFFMpegDecodeStream.ReadData(Buffer : PChar; BufSize: integer): integer;
var
- outStream : TFFMpegDecodeStream;
+ //outStream : TFFMpegDecodeStream;
len1,
audio_size : integer;
len : integer;
@@ -609,8 +609,8 @@ var
pCodec : PAVCodec;
ffmpegStreamID : Integer;
ffmpegStream : PAVStream;
- wanted_spec,
- csIndex : integer;
+// wanted_spec,
+ //csIndex : integer;
stream : TFFMpegDecodeStream;
begin
result := nil;
diff --git a/Game/Code/Classes/UAudioInput_Portaudio.pas b/Game/Code/Classes/UAudioInput_Portaudio.pas
index 077598a9..f055c9d6 100644
--- a/Game/Code/Classes/UAudioInput_Portaudio.pas
+++ b/Game/Code/Classes/UAudioInput_Portaudio.pas
@@ -3,6 +3,7 @@ unit UAudioInput_Portaudio;
interface
{$IFDEF FPC}
+{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
@@ -136,10 +137,10 @@ var
paApiInfo: PPaHostApiInfo;
deviceName: string;
deviceIndex: TPaDeviceIndex;
- deviceInfo: PPaDeviceInfo;
- sourceCnt: integer;
+ //deviceInfo: PPaDeviceInfo;
+ //sourceCnt: integer;
sourceIndex: integer;
- sourceName: string;
+ //sourceName: string;
channelCnt: integer;
SC: integer; // soundcard
err: TPaError;
@@ -354,7 +355,7 @@ end;
destructor TAudioInput_Portaudio.Destroy;
var
i: integer;
- paSoundCard: TPortaudioInputDevice;
+ //paSoundCard: TPortaudioInputDevice;
begin
Pa_Terminate();
for i := 0 to High(AudioInputProcessor.Device) do
diff --git a/Game/Code/Classes/UAudioPlayback_SoftMixer.pas b/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
index 9fd9028a..7c7a09aa 100644
--- a/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
+++ b/Game/Code/Classes/UAudioPlayback_SoftMixer.pas
@@ -342,7 +342,7 @@ end;
function TGenericPlaybackStream.InitFormatConversion(): boolean;
var
- err: integer;
+ //err: integer;
srcFormat: UInt16;
dstFormat: UInt16;
srcFormatInfo: TAudioFormatInfo;
@@ -785,8 +785,8 @@ begin
end;
function TAudioPlayback_SoftMixer.Open(const Filename: string): boolean;
-var
- decodeStream: TAudioDecodeStream;
+//var
+// decodeStream: TAudioDecodeStream;
begin
Result := false;