文件名称:语音卡自动服务程序Delphi7源码.rar
文件大小:665KB
文件格式:RAR
更新时间:2022-07-30 03:23:09
Delphi源码-多媒体编程
语音卡自动服务程序Delphi7源码,测试中没有发现是什么语音卡,这个代码也是前几年的,比较早的源码了,有兴趣的可下载测试一番。相关代码如下: 0:begin if (GetCallerIDStr(chno,callID) = ID_STEP_OK) or (GetCallerIDStr(chno,callID) = ID_STEP_FAIL) then begin ADODataSet1.Locate('通道号',chno,[]); if ADODataSet1.FieldByName('主叫号码').AsString='' then begin ADODataSet1.Edit; ADODataSet1.FieldByName('主叫号码').AsString:=RightStr(callID,Length(callID)-8); ADODataSet1.FieldByName('来电时间').AsDateTime:=Now; ADODataSet1.Post; end; offhook(chno); channel[chno].Step:=1; end; end; 1:begin rsetindexplayfile(chno); addindexplayfile(chno,'.\voc\bank.001'); ADODataSet1.Locate('通道号',chno,[]); ADODataSet1.Edit; ADODataSet1.FieldByName('内容').AsString:='请输入113点播歌曲.'; ADODataSet1.Post; addindexplayfile(chno,'.\voc\bank.002'); initdtmfbuf(chno); channel[chno].Step:=2; startindexplayfile(chno); end;
【文件预览】:
srcfans.com
----语音卡自动服务()
--------Project1.res(876B)
--------Unit1.dfm(2KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------sysstr.pas(691B)
--------Unit1.pas(6KB)
--------db1.mdb(1.66MB)
--------tc08a32.pas(15KB)
--------Project1.dpr(244B)
--------Project1.dof(2KB)
--------Voc()
--------sysstr.dcu(1KB)
--------Unit1.dcu(10KB)
--------tc08a32.dcu(14KB)