Форум: "Потрепаться";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Вниз
Реально-ли сделать прогу которая будет выводить звук через Найти похожие ветки
← →
Guest © (2004-09-09 13:57) [0]системный динамик (для 486 димамики там достаточно мощные),
слышал были готовые такие проги , если кто-нить знает ответте пожайлуста , это нужно в пед училище для образовательныз целей
← →
Ega23 © (2004-09-09 14:11) [1]Реально самому написать. Через WinProcs.Beep
← →
olookin © (2004-09-09 14:13) [2]про WinProcs не знаю, а вот если отключить SysUtils и использовать Beep(Frequency, Duration), то реально...
← →
Ega23 © (2004-09-09 14:19) [3]Так он там и есть. WinProcs.Beep - это чтобы SysUtils не отключать. :о)
← →
olookin © (2004-09-09 14:31) [4][3] Ega23 © (09.09.04 14:19)
Хм.. В какой дельфе? В пятой я что-то не увидел Winprocs...
← →
Ega23 © (2004-09-09 14:34) [5]У меня тоже пятая. Более того, я тоже как и ты Winprocs не вижу.
А он - есть. :о)
← →
DiamondShark © (2004-09-09 15:43) [6]
> У меня тоже пятая. Более того, я тоже как и ты Winprocs
> не вижу.
Это подпольная кличка юнита Windows.
← →
Cosinus © (2004-09-09 15:47) [7]
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;
← →
Guest © (2004-09-10 15:08) [8]мне нужно что-бы через мою (или не мою) программу другие программы могли выводить звук ,например Winamp
← →
КаПиБаРа © (2004-09-10 15:50) [9]Guest © (10.09.04 15:08) [8]
Эта программа драйвером называется. Только на том динамике даже плохого звука не получишь.
=============================================
Всякое разумное дело имеет своё завершение,
и только ерундой можно заниматься бесконечно.
=============================================
← →
DiamondShark © (2004-09-10 17:19) [10]
> Только на том динамике даже плохого звука не получишь.
Получишь. В win 3.1 был драйвер динамика.
← →
Guest © (2004-09-11 12:14) [11]
> > Только на том динамике даже плохого звука не получишь.
А откуда его (драйвер) можно достать?
← →
KilkennyCat © (2004-09-11 12:21) [12]Какой нахрен драйвер?
Почитайте про аппаратную реализацию системного динамика, и все ваши вопросы отпадут сами собой. Вкратце: со времен ДОСа и по наст. вр., динамик имел и имеет всего: частота, вкл, выкл. Все. Изголяясь, можно слепить что-то похожее даже на человеческий голос. Но только похожее. Даже ЦАП на ЛПТ через резисторы имел лучшее качество.
← →
anpsoft (2004-09-12 03:47) [13]а я лет так 17 назад даже двуголосую програмку на асме для специалиста писал :) лунную сонату играла в два голоса одновременно в заставке игры "Стена"
а под win 3.1 и в самом деле драйвер был и я пробовал
впрочем почему был :)
http://support.microsoft.com/default.aspx?kbid=138857
http://ulihansen.kicks-ass.net/speaker/index2.htm
← →
Германн © (2004-09-12 04:02) [14]Отсоедини разъем динамика от мамки. Подключи его к звуковой карте. А проги твои или не твои, тебе врядли помогут. :))
← →
DiamondShark © (2004-09-12 10:29) [15]
> А откуда его (драйвер) можно достать?
С мелкософта. Драйвер под windows 3.1, мог работать и на 95.
Под NT работать не будет.
Качество звука действительно хреновое, на то, чтобы сыграть tada.wav при загрузке или дзынькнуть в мессаджбоксе ещё хватало, но не больше того.
← →
Guest © (2004-09-12 13:44) [16]так мне и надо под вин95 знакомые попросили , там звуковух нету так хотя-бы через динамик будет
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.04 c
