【求助】free pascal crt单元 sound 过程 不发声
pascal吧
全部回复
仅看楼主
level 3
高鸣镝 楼主
程序没有问题
已排除可能原因：
1.硬件正常
2.free pascal 2.4.4，crt单元可用，其他命令正常
3.Hz设置在人耳可以分辨的频率之内
4.dos可以正常链接（尽管sound根本不用dos）
求助！
2015年04月24日 14点04分 1
level 3
高鸣镝 楼主
谢谢诸位大神了
2015年04月24日 14点04分 2
level 3
高鸣镝 楼主
@萨芬上
2015年04月24日 14点04分 3
萨芬上
来了
2015年05月01日 03点05分
level 3
高鸣镝 楼主
@寂寥and寂灭
2015年04月24日 14点04分 4
level 10
LJ37NX
如果系统和fp没问题，莫非你的蜂鸣器坏了？
2015年04月24日 15点04分 5
风x千叶翔龙V
sound不是调用蜂鸣器，beep才是
2015年04月25日 00点04分
高鸣镝
确认硬件没问题
2015年05月02日 12点05分
level 12
🔥贽殿丶遮那🔥
你是如何排除“硬件正常”的
2015年05月03日 01点05分 7
高鸣镝
∵系统声音正常、应用声音正常，∴声卡正常、音响正常
2015年05月03日 04点05分
level 12
MaxxMorning
windows系统不支持sound，可在Linux下编写
2015年05月04日 10点05分 9
高鸣镝
Linux……用delphi编可以跨平台吗？
2015年05月05日 14点05分
MaxxMorning
回复 高鸣镝 ：我指的是freepascal
2015年05月08日 23点05分
高鸣镝
@- 那就只能换平台了？……
2015年05月12日 14点05分
level 7
yynet123456
台式机吧。
台式机很多没接SPEAKER。
2015年05月04日 12点05分 10
高鸣镝
等等，speaker好像是控制主板蜂鸣器的啊，sound过程调用的是声卡和喇叭啊[疑问]……
2015年05月05日 14点05分
yynet123456
回复 高鸣镝 : 当然是蜂呜器，不是声卡
2015年05月05日 17点05分
高鸣镝
@yynet123456 beep过程是蜂鸣器吧
2015年05月06日 14点05分
level 12
ETODW◆
编译成exe格式，再打开
2015年05月04日 13点05分 11
高鸣镝
还是不好用啊，不过还是谢谢了
2015年05月05日 14点05分
level 9
ax_pokl
crt的sound本来什么内容都没写。。
2015年05月13日 13点05分 12
ax_pokl
可以使用windows单元库下的beep函数，或者使用这个：https://tieba.baidu.com/p/2894089750
2015年05月13日 13点05分
ax_pokl
@ax_pokl 可以在这里下载：http://axpokl.ys168.com/
2015年05月13日 13点05分
level 9
ax_pokl
2015年05月13日 13点05分 13
ax_pokl
@浩hh浩 自从上一个号被ban以后afk很久了。
2016年05月03日 19点05分
level 3
TVss433
使用wincrt库。wincrt库的路径：FPC\版本号\units\i386-win32\graph,把wincrt.o和wincrt.ppu放到FPC\版本号\units\i386-win32\rtl。wincrt的用法与crt相同。在wincrt中sound函数能用。
2015年08月21日 01点08分 14
level 8
舒心还谦卑的小宝贝0G
sound(x) 以x的频率发声
2015年08月21日 07点08分 15
level 10
__Say__Say__
使用windows单元beep()函数
2016年05月02日 01点05分 16
level 15
炎▫龙
uses windos；
begin
beep(kz,s);
end.
注：kz为频率，s为时间（毫秒）
uses windos；
begin
beep(400,1000);
end.
2016年05月02日 13点05分 17
level 7
pascal呵呵
用chr(7)不行吗
2016年05月04日 11点05分 18
1