VPF::BEEP для дельфи, который работает, как в TP

Vit

Дата 14.6.2002, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Взято из FAQ: http://blackman.km.ru/myfaq/cont4.phtml

BEEP , для дельфи , который работает, как в B.Pascal 7.0

Я применяю следующий код, однако он работает только под Win9x/me
(Под WinNT/2000/XP вы можете использовать Beep(Tone, Duration)
- задавать тон и продолжительность звучания).

Код


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 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;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Monty

Дата 15.5.2003, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Advanced Lamer

Профиль
Группа: Участник Клуба
Сообщений: 3511
Регистрация: 3.4.2003
Где: Гваделупа

Репутация: нет
Всего: 27

А вот это рабатает и по ХР

Цитата

function Beep(dwFreq, dwDuration: DWORD): BOOL; stdcall; external 'kernel32.dll' name 'Beep';

--------------------

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Song

Дата 15.5.2003, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

Зачем такие сложности? Windows.Beep()

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »