语音卡自动服务程序Delphi7源码，测试中没有发现是什么语音卡，这个代码也是前几年的，比较早的源码了，有兴趣的可下载测试一番。相关代码如下： 　　0:begin 　　if(GetCallerIDStr(chno,callID)=ID_STEP_OK)or(GetCallerIDStr(chno,callID)=ID_STEP_FAIL)then 　　begin 　　ADODataSet1.Locate('通道号',chno,[]); 　　ifADODataSet1.FieldByName('主叫号码').AsString=''the