-
Delphi 7.0 测试用的来电显示程序.rar下载
资源介绍
Delphi 来电显示程序，就像打电话的来电显示，编译需要三方控件，需要准备好tc08a32.dll组件。以下是部分代码：
//如果为外线并有忙音，以挂机
if (checkchtypenew(i)=CHTYPE_TRUNK) and (sig_checkbusy(i)=1) then // if detect the busy tone , reset the trunk
begin
//reset trunk
channel[i].Step:=0;
channel[i].Idcount:=0;
channel[i].Pwdcount:=0;
hangup(i);
startsigcheck(i);//开始新的信号检测
Sig_ResetCheck(i);//在挂机后执行，清空忙音缓冲区
initdtmfbuf(i);
channel[i].Playing:=false;
exit;
end;
//内线，没有响铃
if (ringdetect(i)=false) and (checkchtypenew(i)=CHTYPE_USER) then//IF USER HOOK IS ON THEN RESET USER
更多完整的代码请下载本源码包。