Реально-ли сделать прогу которая будет выводить звук через

← →
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]

> > Только на том динамике даже плохого звука не получишь.

А откуда его (драйвер) можно достать?

Какой нахрен драйвер?
Почитайте про аппаратную реализацию системного динамика, и все ваши вопросы отпадут сами собой. Вкратце: со времен ДОСа и по наст. вр., динамик имел и имеет всего: частота, вкл, выкл. Все. Изголяясь, можно слепить что-то похожее даже на человеческий голос. Но только похожее. Даже ЦАП на ЛПТ через резисторы имел лучшее качество.

← →
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

Отсоедини разъем динамика от мамки. Подключи его к звуковой карте. А проги твои или не твои, тебе врядли помогут. :))

> А откуда его (драйвер) можно достать?

С мелкософта. Драйвер под windows 3.1, мог работать и на 95.
Под NT работать не будет.

Качество звука действительно хреновое, на то, чтобы сыграть tada.wav при загрузке или дзынькнуть в мессаджбоксе ещё хватало, но не больше того.

так мне и надо под вин95 знакомые попросили , там звуковух нету так хотя-бы через динамик будет

Реально-ли сделать прогу которая будет выводить звук через Найти похожие ветки