From 2eb92f1b07828c0631d297bd26cfb249ccbd20ef Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 5 Feb 2008 16:26:40 +0000
Subject: - DirWatch-support with FPC (windows only) - added
 UAudioCore_Bass.pas

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@823 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UAudioCore_Bass.pas | 116 ++++++++++++++++++++++++++++++++++
 1 file changed, 116 insertions(+)
 create mode 100644 Game/Code/Classes/UAudioCore_Bass.pas

(limited to 'Game/Code/Classes/UAudioCore_Bass.pas')

diff --git a/Game/Code/Classes/UAudioCore_Bass.pas b/Game/Code/Classes/UAudioCore_Bass.pas
new file mode 100644
index 00000000..55148f95
--- /dev/null
+++ b/Game/Code/Classes/UAudioCore_Bass.pas
@@ -0,0 +1,116 @@
+unit UAudioCore_Bass;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+  Classes,
+  SysUtils;
+
+type
+  TAudioCore_Bass = class
+    private
+    public
+      class function ErrorGetString(): string; overload;
+      class function ErrorGetString(errCode: integer): string; overload;
+  end;
+
+  
+implementation
+
+uses
+  UMain,
+  ULog,
+  bass;
+
+class function TAudioCore_Bass.ErrorGetString(): string; 
+begin
+  ErrorGetString(BASS_ErrorGetCode());
+end;
+
+class function TAudioCore_Bass.ErrorGetString(errCode: integer): string;
+begin
+  case errCode of
+    BASS_OK:
+      result := 'No error';
+    BASS_ERROR_MEM:
+      result := 'Insufficient memory';
+    BASS_ERROR_FILEOPEN:
+      result := 'File could not be opened';
+    BASS_ERROR_DRIVER:
+      result := 'Device driver not available';
+    BASS_ERROR_BUFLOST:
+      result := 'Buffer lost';
+    BASS_ERROR_HANDLE:
+      result := 'Invalid Handle';
+    BASS_ERROR_FORMAT:
+      result := 'Sample-Format not supported';
+    BASS_ERROR_POSITION:
+      result := 'Illegal position';
+    BASS_ERROR_INIT:
+      result := 'BASS_Init has not been successfully called';
+    BASS_ERROR_START:
+      result := 'Paused/stopped';
+    BASS_ERROR_ALREADY:
+      result := 'Already created/used';
+    BASS_ERROR_NOPAUSE:
+      result := 'No pause';
+    BASS_ERROR_NOCHAN:
+      result := 'No free channels';
+    BASS_ERROR_ILLTYPE:
+      result := 'Type is invalid';
+    BASS_ERROR_ILLPARAM:
+      result := 'Illegal parameter';
+    BASS_ERROR_NO3D:
+      result := 'No 3D support';
+    BASS_ERROR_NOEAX:
+      result := 'No EAX support';
+    BASS_ERROR_DEVICE:
+      result := 'Invalid device number';
+    BASS_ERROR_NOPLAY:
+      result := 'Channel not playing';
+    BASS_ERROR_FREQ:
+      result := 'Freq out of range';
+    BASS_ERROR_NOTFILE:
+      result := 'Not a file stream';
+    BASS_ERROR_NOHW:
+      result := 'No hardware support';
+    BASS_ERROR_EMPTY:
+      result := 'Is empty';
+    BASS_ERROR_NONET:
+      result := 'Network unavailable';
+    BASS_ERROR_CREATE:
+      result := 'Creation error';
+    BASS_ERROR_NOFX:
+      result := 'DX8 effects unavailable';
+    BASS_ERROR_PLAYING:
+      result := 'Channel is playing';
+    BASS_ERROR_NOTAVAIL:
+      result := 'Not available';
+    BASS_ERROR_DECODE:
+      result := 'Is a decoding channel';
+    BASS_ERROR_DX:
+      result := 'Insufficient version of DirectX';
+    BASS_ERROR_TIMEOUT:
+      result := 'Timeout';
+    BASS_ERROR_FILEFORM:
+      result := 'File-Format not recognised/supported';
+    BASS_ERROR_SPEAKER:
+      result := 'Requested speaker(s) not support';
+    BASS_ERROR_VERSION:
+      result := 'Version error';
+    BASS_ERROR_CODEC:
+      result := 'Codec not available/supported';
+    BASS_ERROR_UNKNOWN:
+      result := 'Unknown error';
+    else
+      result := 'Unknown error';
+    end;
+end;
+
+end.
\ No newline at end of file
-- 
cgit v1.2.3