在个人电脑上没有声卡、操作系统为16位dos的时代，用pc speaker（主板上的喇叭）发音曾经是唯一的选择。现在，时光已经进入32位的windows时代，几乎每台电脑上都装有声卡并且输出的声音也几近完美，人们渐渐将pc speaker遗忘……。 不过，当我们为了节省能源或不需要操作高品质声音而将音箱关掉时，是否可以请老古董pc speaker 重出江湖，为我们做些有益的事情呢？比如，本人就用delphi写了一个让pc speaker奏出不同的音调,模拟海关钟报时的小程序（当然在32位的视窗环境中）。下面就简述其发音原理及源程序的核心部分：
发音原理 : 在16位dos环境中，用当时流行的开发工具（如foxbase，tc等）均能轻而易举地写出让pc speaker发出不同音调的程序，不过在win32下，似乎有些小问题：翻遍winapi,只能找到唯一的一个能让pc speaker发音的函数—beep( dwfreq, dwduration）其中，dwfreq为声音频率，单位为赫兹，dwduration为声音长度，单位为毫秒。这两个参数仅在windows nt环境下有效，在windows 9x 下只能让pc speaker发一声标准的beep音，毫无音调变化。怎么办? 经过努力,本人在网上找到了一个由英国人john atkins用汇编写的操纵底层资源的发音函数:
function _getport(address:word):word;//获取端口
var
bvalue: byte;
begin
asm
mov dx, address
in al, dx
mov bvalue, al
end;
result := bvalue;
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;
procedure startbeep(freq : word);//开始发音,freq为频率
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 stopbeep;//停止发音
var
value: word;
begin
value := _getport($61) and $fc;
_setport($61, value);
end;
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
