sound.inc

著名的游戏开发库Allegro4.2.0 for DELPHI

{*         ______   ___    ___
 *        /\  _  \ /\_ \  /\_ \
 *        \ \ \L\ \\//\ \ \//\ \      __     __   _ __   ___
 *         \ \  __ \ \ \ \  \ \ \   /'__`\ /'_ `\/\`'__\/ __`\
 *          \ \ \/\ \ \_\ \_ \_\ \_/\  __//\ \L\ \ \ \//\ \L\ \
 *           \ \_\ \_\/\____\/\____\ \____\ \____ \ \_\\ \____/
 *            \/_/\/_/\/____/\/____/\/____/\/___L\ \/_/ \/___/
 *                                           /\____/
 *                                           \_/__/
 *
 *      Sound support routines.
 *
 *      By Shawn Hargreaves.
 *
 *      See readme.txt for copyright information.
 *}

{$IFDEF ALLEGRO_INTERFACE}
var
  reserve_voices: procedure(digi_voices, midi_voices: sint32); cdecl;
  set_volume_per_voice: procedure(scale: sint32); cdecl;

  install_sound: function(digi, midi: sint32; const cfg_path: PChar): sint32; cdecl;
  remove_sound: procedure; cdecl;

  install_sound_input: function(digi, midi: sint32): sint32; cdecl;
  remove_sound_input: procedure; cdecl;

  set_volume: procedure(digi_volume, midi_volume: sint32); cdecl;
  set_hardware_volume: procedure(digi_volume, midi_volume: sint32); cdecl;

  set_mixer_quality: procedure(quality: sint32); cdecl;
  get_mixer_quality: function: sint32; cdecl;
  get_mixer_frequency: function: sint32; cdecl;
  get_mixer_bits: function: sint32; cdecl;
  get_mixer_channels: function: sint32; cdecl;
  get_mixer_voices: function: sint32; cdecl;
  get_mixer_buffer_length: function: sint32; cdecl;
{$ENDIF ALLEGRO_INTERFACE}
{$IFDEF ALLEGRO_IMPLEMENTATION}
{$ENDIF ALLEGRO_IMPLEMENTATION}
{$IFDEF ALLEGRO_LOADVARIABLE}
  reserve_voices          := LoadDLL('reserve_voices');
  set_volume_per_voice    := LoadDLL('set_volume_per_voice');
  install_sound           := LoadDLL('install_sound');
  remove_sound            := LoadDLL('remove_sound');
  install_sound_input     := LoadDLL('install_sound_input');
  remove_sound_input      := LoadDLL('remove_sound_input');
  set_volume              := LoadDLL('set_volume');
  set_hardware_volume     := LoadDLL('set_hardware_volume');
  set_mixer_quality       := LoadDLL('set_mixer_quality');
  get_mixer_quality       := LoadDLL('get_mixer_quality');
  get_mixer_frequency     := LoadDLL('get_mixer_frequency');
  get_mixer_bits          := LoadDLL('get_mixer_bits');
  get_mixer_channels      := LoadDLL('get_mixer_channels');
  get_mixer_voices        := LoadDLL('get_mixer_voices');
  get_mixer_buffer_length := LoadDLL('get_mixer_buffer_length');
{$ENDIF ALLEGRO_LOADVARIABLE}