哪位朋友知道在有声卡的机器里怎样让喇叭发出声音?(100分)

C

chinawbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #1

我想让程序控制微机的喇叭发音,但在有声卡的机器里我不会,哪位朋友知道请帮忙,多谢.

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #2

省事的话，用AHM2000中的一个控件可以搞定。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #3

如果将声音文件通过喇叭播放？
当然，这得不影响用户用声卡播放它的MP3之类的。

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #4

到 GOOGLE 上 找 pcspeaker, 找不到告诉我邮箱发给你.

 

T

thtfsyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #5

学习

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #6

我这里有组件。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #7

tseug、taozhiyu
请给我播放WAV到喇叭的控件
yhaochuan@21cn.com

 

C

commons_sheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #8

gz

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #9

procedure sound(mhz: integer);
{mhz = the frequency of the pc speaker
PC喇叭发声,只适用于Win9X/2000,NT无效}
var
count : word;
begin

try
count := 1193280 div mhz;
asm
mov al,$b6
out $43,al
mov ax,count
out $42,al
mov al,ah
out $42,al
mov al,3
out $61,al
end;

except

end;

end;


procedure nosound;
{turn off the pc speaker
关闭PC喇叭,只适用于Win9X/2000,NT无效}
begin

asm
mov al,0
out $61,al
end;

end;

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #10

发了

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #11

beep(500,1000)

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #12

不是发B B　声，是要发出音乐声。

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #13

收到了没有？

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #14

playsound()

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-07

• #15

TSRWavePlayer v1.01
TSRWavePlayer 能够播放 .WAV 文件的构件。
http://www.delphibyte.com/download/softdown.php?softid=149&url=http://61.132.118.165/soft/delphi/Delphi1/SRWAVE101.ZIP

TMidiPlayer &
TMidiScop v1.0
播放和跟踪 MIDI 的构件
http://www.delphibyte.com/download/softdown.php?softid=141&url=http://61.132.118.165/soft/delphi/Delphi/uestc/Delphi/fbmidiplay.zip

Dxxx &
DataStorage v1.0 beta
支持语音卡的构件库
http://www.delphibyte.com/download/softdown.php?softid=140&url=http://61.132.118.165/soft/delphi/Delphi/uestc/Delphi/dx_vcl.zip

 

C

chinawbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #16

我提出这个问题的本意是:
在有声卡的机器中,我想让喇叭发出声音,以提示用户,因为在办公室里不可能总戴着耳机.
我不想播放什么音乐,只要能发出BB声就行了,但现在让机器发音的函数都是从声卡输出的.

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #17

我给你的冬冬可以达到你的要求,使喇叭发生，而不是声卡


另外，beep()也可以了！

 

H

honestman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #18

wind2000那段代码就可以啦！！！

 

C

chinawbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #19

谢谢各位的帮忙,但我试了所有的程序,都是从我的耳机中听到声音,喇叭不响.beep()是肯定不行的.
另:wind2000的那段代码在我的机器上通不过.

 

C

chinawbc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #20

接受答案了.