开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
audiere.pas
资源名称：CAST2SDK.rar　[点击查看]
上传用户：yj_qiu
上传日期：2022-08-08
资源大小：23636k
文件大小：12k
源码类别：

游戏引擎

开发平台：

Delphi

audiere.pas：源码内容
  1. //=========================================================================
  2. // Audiere Sound System
  3. // Version 1.9.2
  4. // (c) 2002 Chad Austin
  5. //
  6. // This API uses principles explained at
  7. // http://aegisknight.org/cppinterface.html
  8. //
  9. // This code licensed under the terms of the LGPL.  See the Audiere
  10. // license.txt.
  11. //-------------------------------------------------------------------------
  12. // Delphi Conversion By:
  13. // Jarrod Davis
  14. // Jarrod Davis Software
  15. // http://www.jarroddavis.com   - Jarrod Davis Software
  16. // http://www.gamevisionsdk.com - Game Application Framework for Delphi
  17. // support@jarroddavis.com      - Support Email
  18. //-------------------------------------------------------------------------
  19. // How to use:
  20. //   * Include Audiere in your Uses statement
  21. //   * Enable or Disable the DYNAMICS compiler define
  22. //   * If Dynamic, be sure to call AdrLoadDLL before using any commands.
  23. //     the DLL will be automaticlly unloaded at termination.
  24. //   * If Static, then use as normal.
  25. // History:
  26. //   * Initial 1.9.2 release.
  27. //   + Added dynamic loading. Use the DYNAMIC compiler define to control
  28. //     this. When enabled you can then use ArdLoadLL/AdrUnloadDLL to
  29. //     dynamiclly load/unload dll at runtime.
  30. //=========================================================================
  32. unit Audiere;
  34. {$A+}
  35. {$Z4}
  36. {.$DEFINE DYNAMIC}
  38. interface
  40. const
  41.   DLL_NAME = 'Audiere.dll';
  43. type
  45.   { TAdrSeekMode  }
  46.   TAdrSeekMode = (
  47.     Adr_Seek_Begin,
  48.     Adr_Seek_Current,
  49.     Adr_Seek_End
  50.   );
  52.   { TAdrSoundEffectType }
  53.   TAdrSoundEffectType = (
  54.     Adr_SoundEffectType_Single,
  55.     Adr_SoundEffectType_Multiple
  56.   );
  58.   { TAdrSampleFormat }
  59.   TAdrSampleFormat = (
  60.     Adr_SampleFormat_U8,
  61.     Adr_SampleFormat_S16
  62.   );
  64.   { TAdrFileFormat }
  65.   TAdrFileFormat = (
  66.     FF_AUTODETECT,
  67.     FF_WAV,
  68.     FF_OGG,
  69.     FF_FLAC,
  70.     FF_MP3,
  71.     FF_MOD
  72.   );
  74.   { TAdrRefCounted  }
  75.   TAdrRefCounted = class
  76.   public
  77.     procedure Ref;   virtual; stdcall; abstract;
  78.     procedure UnRef; virtual; stdcall; abstract;
  79.   end;
  81.   { TAdrFile }
  82.   TAdrFile = class(TAdrRefCounted)
  83.   public
  84.     function Read(aBuffer: Pointer; aSize: Integer): Integer; virtual; stdcall; abstract;
  85.     function Seek(aPosition: Integer; aSeekMode: TAdrSeekMode): Boolean; virtual; stdcall; abstract;
  86.     function Tell: Integer; virtual; stdcall; abstract;
  87.   end;
  89.   { TAdrSampleSource }
  90.   TAdrSampleSource = class(TAdrRefCounted)
  91.   public
  92.     procedure GetFormat(var aChannelCount: Integer; var aSampleRate: Integer; var aSampleFormat: TAdrSampleFormat); virtual; stdcall; abstract;
  93.     function  Read(aFrameCount: Integer; aBuffer: Pointer): Integer;  virtual; stdcall; abstract;
  94.     procedure Reset; virtual; stdcall; abstract;
  95.     function  IsSeekable: Boolean; virtual; stdcall; abstract;
  96.     function  GetLength: Integer; virtual; stdcall; abstract;
  97.     procedure SetPosition(Position: Integer); virtual; stdcall; abstract;
  98.     function  GetPosition: Integer; virtual; stdcall; abstract;
  99.   end;
  101.   { TAdrOutputStream }
  102.   TAdrOutputStream = class(TAdrRefCounted)
  103.   public
  104.     procedure Play; virtual; stdcall; abstract;
  105.     procedure Stop; virtual; stdcall; abstract;
  106.     function  IsPlaying: Boolean; virtual; stdcall; abstract;
  107.     procedure Reset; virtual; stdcall; abstract;
  108.     procedure SetRepeat(aRepeat: Boolean); virtual; stdcall; abstract;
  109.     function  GetRepeat: Boolean; virtual; stdcall; abstract;
  110.     procedure SetVolume(aVolume: Single); virtual; stdcall; abstract;
  111.     function  GetVolume: Single; virtual; stdcall; abstract;
  112.     procedure SetPan(aPan: Single); virtual; stdcall; abstract;
  113.     function  GetPan: Single; virtual; stdcall; abstract;
  114.     procedure SetPitchShift(aShift: Single); virtual; stdcall; abstract;
  115.     function  GetPitchShift: Single; virtual; stdcall; abstract;
  116.     function  IsSeekable: Boolean; virtual; stdcall; abstract;
  117.     function  GetLength: Integer; virtual; stdcall; abstract;
  118.     procedure SetPosition(aPosition: Integer); virtual; stdcall; abstract;
  119.     function  GetPosition: Integer; virtual; stdcall; abstract;
  120.   end;
  122.   { TAdrAudioDevice }
  123.   TAdrAudioDevice = class(TAdrRefCounted)
  124.   public
  125.     procedure Update; virtual; stdcall; abstract;
  126.     function  OpenStream(aSource: TAdrSampleSource): TAdrOutputStream; virtual; stdcall; abstract;
  127.     function  OpenBuffer(aSamples: Pointer; aFrameCount, aChannelCount, aSampleRate: Integer; aSampelFormat: TAdrSampleFormat):  TAdrOutputStream; virtual; stdcall; abstract;
  128.   end;
  130.   { TAdrSampleBuffer }
  131.   TAdrSampleBuffer = class(TAdrRefCounted)
  132.   public
  133.     procedure GetFormat(var ChannelCount: Integer; var aSampleRate: Integer; var aSampleFormat: TAdrSampleFormat); virtual; stdcall; abstract;
  134.     function  GetLength: Integer; virtual; stdcall; abstract;
  135.     function  GetSamples: Pointer; virtual; stdcall; abstract;
  136.     function  OpenStream: TAdrSampleSource; virtual; stdcall; abstract;
  137.   end;
  139.   { TAdrSoundEffect }
  140.   TAdrSoundEffect = class(TAdrRefCounted)
  141.   public
  142.     procedure Play; virtual; stdcall; abstract;
  143.     procedure Stop; virtual; stdcall; abstract;
  144.     procedure SetVolume(aVolume: Single); virtual; stdcall; abstract;
  145.     function  GetVolume: Single; virtual; stdcall; abstract;
  146.     procedure SetPan(aPan: Single); virtual; stdcall; abstract;
  147.     function  GetPan: Single; virtual; stdcall; abstract;
  148.     procedure SetPitchShift(aShift: Single); virtual; stdcall; abstract;
  149.     function  GetPitchShift: Single; virtual; stdcall; abstract;
  150.   end;
  152. { --- Audiere Routines -------------------------------------------------- }
  153. {$IFNDEF DYNAMIC}
  154. function AdrGetVersion: PChar; stdcall; external DLL_NAME name '_AdrGetVersion@0';
  155. function AdrGetSupportedFileFormats: PChar; stdcall; external DLL_NAME name '_AdrGetSupportedFileFormats@0';
  156. function AdrGetSupportedAudioDevices: PChar; stdcall; external DLL_NAME name '_AdrGetSupportedAudioDevices@0';
  157. function AdrGetSampleSize(aFormat: TAdrSampleFormat): Integer; stdcall; external DLL_NAME name '_AdrGetSampleSize@4';
  158. function AdrOpenDevice(const aName: PChar; const aParams: PChar): TAdrAudioDevice; stdcall; external DLL_NAME name '_AdrOpenDevice@8';
  159. function AdrOpenSampleSource(const aFilename: PChar; aFileFormat: TAdrFileFormat): TAdrSampleSource; stdcall; external DLL_NAME name '_AdrOpenSampleSource@8';
  160. function AdrOpenSampleSourceFromFile(aFile: TAdrFile; aFileFormat: TAdrFileFormat): TAdrSampleSource; stdcall; external DLL_NAME name '_AdrOpenSampleSourceFromFile@8';
  161. function AdrCreateTone(aFrequency: Double): TAdrSampleSource; stdcall; external DLL_NAME name '_AdrCreateTone@8';
  162. function AdrCreateSquareWave(aFrequency: Double): TAdrSampleSource; stdcall; external DLL_NAME name '_AdrCreateSquareWave@8';
  163. function AdrCreateWhiteNoise: TAdrSampleSource; stdcall; external DLL_NAME name '_AdrCreateWhiteNoise@0';
  164. function AdrCreatePinkNoise: TAdrSampleSource; stdcall; external DLL_NAME name '_AdrCreatePinkNoise@0';
  165. function AdrOpenSound(aDevice: TAdrAudioDevice; aSource: TAdrSampleSource; aStreaming: LongBool): TAdrOutputStream; stdcall; external DLL_NAME name '_AdrOpenSound@12';
  166. function AdrCreateSampleBuffer(aSamples: Pointer; aFrameCount, aChannelCount, aSampleRate: Integer; aSampleFormat: TAdrSampleFormat): TAdrSampleBuffer; stdcall; external DLL_NAME name '_AdrCreateSampleBuffer@20';
  167. function AdrCreateSampleBufferFromSource(aSource: TAdrSampleSource): TAdrSampleBuffer; stdcall; external DLL_NAME name '_AdrCreateSampleBufferFromSource@4';
  168. function AdrOpenSoundEffect(aDevice: TAdrAudioDevice; aSource: TAdrSampleSource; aType: TAdrSoundEffectType): TAdrSoundEffect; stdcall; external DLL_NAME name '_AdrOpenSoundEffect@12';
  169. {$ENDIF}
  171. {$IFDEF DYNAMIC}
  172. var
  173.   AdrGetVersion                  : function: PChar; stdcall = nil;
  174.   AdrGetSupportedFileFormats     : function: PChar; stdcall = nil;
  175.   AdrGetSupportedAudioDevices    : function : PChar; stdcall = nil;
  176.   AdrGetSampleSize               : function(aFormat: TAdrSampleFormat): Integer; stdcall = nil;
  177.   AdrOpenDevice                  : function(const aName: PChar; const aParams: PChar): TAdrAudioDevice; stdcall = nil;
  178.   AdrOpenSampleSource            : function(const aFilename: PChar; aFileFormat: TAdrFileFormat): TAdrSampleSource; stdcall = nil;
  179.   AdrOpenSampleSourceFromFile    : function(aFile: TAdrFile; aFileFormat: TAdrFileFormat): TAdrSampleSource; stdcall = nil;
  180.   AdrCreateTone                  : function(aFrequency: Double): TAdrSampleSource; stdcall = nil;
  181.   AdrCreateSquareWave            : function(aFrequency: Double): TAdrSampleSource; stdcall = nil;
  182.   AdrCreateWhiteNoise            : function: TAdrSampleSource; stdcall = nil;
  183.   AdrCreatePinkNoise             : function: TAdrSampleSource; stdcall = nil;
  184.   AdrOpenSound                   : function(aDevice: TAdrAudioDevice; aSource: TAdrSampleSource; aStreaming: LongBool): TAdrOutputStream; stdcall = nil;
  185.   AdrCreateSampleBuffer          : function(aSamples: Pointer; aFrameCount, aChannelCount, aSampleRate: Integer; aSampleFormat: TAdrSampleFormat): TAdrSampleBuffer; stdcall = nil;
  186.   AdrCreateSampleBufferFromSource: function(aSource: TAdrSampleSource): TAdrSampleBuffer; stdcall = nil;
  187.   AdrOpenSoundEffect             : function(aDevice: TAdrAudioDevice; aSource: TAdrSampleSource; aType: TAdrSoundEffectType): TAdrSoundEffect; stdcall = nil;
  189. function AdrLoadDLL: Boolean; stdcall;
  190. procedure AdrUnloadDLL; stdcall;
  191. {$ENDIF}
  193. implementation
  195. {$IFDEF DYNAMIC}
  196. uses
  197.   Windows;
  199. var
  200.   AdrDLL: HMODULE = 0;
  202. function AdrLoadDLL: Boolean;
  203. begin
  204.   Result := False;
  206.   AdrDLL := LoadLibrary('audiere.dll');
  207.   if(AdrDLL = 0) then
  208.   begin
  209.     Exit;
  210.   end;
  212.   @AdrGetVersion                   := GetProcAddress(AdrDLL, '_AdrGetVersion@0');
  213.   @AdrGetSupportedFileFormats      := GetProcAddress(AdrDLL, '_AdrGetSupportedFileFormats@0');
  214.   @AdrGetSupportedAudioDevices     := GetProcAddress(AdrDLL, '_AdrGetSupportedAudioDevices@0');
  215.   @AdrGetSampleSize                := GetProcAddress(AdrDLL, '_AdrGetSampleSize@4');
  216.   @AdrOpenDevice                   := GetProcAddress(AdrDLL, '_AdrOpenDevice@8');
  217.   @AdrOpenSampleSource             := GetProcAddress(AdrDLL, '_AdrOpenSampleSource@8');
  218.   @AdrOpenSampleSourceFromFile     := GetProcAddress(AdrDLL, '_AdrOpenSampleSourceFromFile@8');
  219.   @AdrCreateTone                   := GetProcAddress(AdrDLL, '_AdrCreateTone@8');
  220.   @AdrCreateSquareWave             := GetProcAddress(AdrDLL, '_AdrCreateSquareWave@8');
  221.   @AdrCreateWhiteNoise             := GetProcAddress(AdrDLL, '_AdrCreateWhiteNoise@0');
  222.   @AdrCreatePinkNoise              := GetProcAddress(AdrDLL, '_AdrCreatePinkNoise@0');
  223.   @AdrOpenSound                    := GetProcAddress(AdrDLL, '_AdrOpenSound@12');
  224.   @AdrCreateSampleBuffer           := GetProcAddress(AdrDLL, '_AdrCreateSampleBuffer@20');
  225.   @AdrCreateSampleBufferFromSource := GetProcAddress(AdrDLL, '_AdrCreateSampleBufferFromSource@4');
  226.   @AdrOpenSoundEffect              := GetProcAddress(AdrDLL, '_AdrOpenSoundEffect@12');
  228.   if not Assigned(AdrGetVersion) then Exit;
  229.   if not Assigned(AdrGetSupportedFileFormats) then Exit;
  230.   if not Assigned(AdrGetSupportedAudioDevices) then Exit;
  231.   if not Assigned(AdrGetSampleSize) then Exit;
  232.   if not Assigned(AdrOpenDevice) then Exit;
  233.   if not Assigned(AdrOpenSampleSource) then Exit;
  234.   if not Assigned(AdrOpenSampleSourceFromFile) then Exit;
  235.   if not Assigned(AdrCreateTone) then Exit;
  236.   if not Assigned(AdrCreateSquareWave) then Exit;
  237.   if not Assigned(AdrCreateWhiteNoise) then Exit;
  238.   if not Assigned(AdrCreatePinkNoise) then Exit;
  239.   if not Assigned(AdrOpenSound) then Exit;
  240.   if not Assigned(AdrCreateSampleBuffer) then Exit;
  241.   if not Assigned(AdrCreateSampleBufferFromSource) then Exit;
  242.   if not Assigned(AdrOpenSoundEffect) then Exit;
  244.   Result := True;
  245. end;
  247. procedure AdrUnloadDLL;
  248. begin
  249.   if AdrDLL <> 0 then
  250.   begin
  251.     FreeLibrary(AdrDLL);
  252.     AdrDLL := 0;
  253.   end;
  254. end;
  256. initialization
  257. begin
  258. end;
  260. finalization
  261. begin
  262.   AdrUnLoadDLL;
  263. end;
  265. {$ENDIF}
  267. end.