语音卡自动服务程序Delphi7源码.rar

时间:2022-07-30 03:23:09
【文件属性】:

文件名称:语音卡自动服务程序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)

网友评论