Как управлять спикером под 9х из Дельфи

Автор: Ненашев Илья Николаевич

Под WinNT/2000/XP вы можете использовать Beep(Tone, Duration) (задавать тон и продолжительность звучания). А под 9.x/Me эта функция не реализована, но можно командовать железом через порты, и сделать универсальную:

unit BeepUnit; 
 
procedure Beep(Tone, Duration: Word); // универсальная - версию виндовса проверяет 
 
procedure Sound(Freq : Word); 
procedure NoSound; 
 
procedure SetPort(address, Value:Word); 
function GetPort(address:word):word; 
 
implementation 
 
procedure SetPort(address, Value:Word); 
var 
  bValue: byte; 
begin 
  bValue := trunc(Value and 255); 
  asm 
    mov dx, address 
    mov al, bValue 
    out dx, al 
  end; 
end; 
 
function GetPort(address:word):word; 
var 
  bValue: byte; 
begin 
  asm 
    mov dx, address 
    in al, dx 
    mov bValue, al 
  end; 
  GetPort := bValue; 
end; 
 
procedure Sound(Freq : Word); 
var 
  B : Byte; 
begin 
  if Freq > 18 then begin 
    Freq := Word(1193181 div LongInt(Freq)); 
    B := Byte(GetPort($61)); 
    if (B and 3) = 0 then begin 
      SetPort($61, Word(B or 3)); 
      SetPort($43, $B6); 
    end; 
    SetPort($42, Freq); 
    SetPort($42, Freq shr 8); 
  end; 
end; 
 
procedure NoSound; 
var 
  Value: Word; 
begin 
  Value := GetPort($61) and $FC; 
  SetPort($61, Value); 
end; 
 
procedure Beep(Tone, Duration: Word); 
begin 
  if SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT 
    then Windows.Beep(Tone, Duration) 
    else begin 
      Sound(Tone); 
      Windows.Sleep(Duration); 
      NoSound; 
    end; 
end; 
 
end.
 
faq/delphi/system/speaker_control.txt · Последние изменения: 2006/05/14 14:40 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki