模拟通道的dial（Analog channel dial）.docVIP

模拟通道的dial（Analog channel dial） 单位dialfunc； 接口 型app_user_state =（ user_idle， user_dial_auto， user_wait_dial_tone， user_dial， user_wait_ring_backton， user_wait_remote_pickup， user_talking， user_wait_hangup ）； 型trunk_ch_info =记录//////发起呼叫方 InUse：整数；/ / / /只是自己定义的状态，告诉别人而已，不实现程序状态真实改变 DtmfBuf：char数组[ 0，250 ]； 结束； 型user_ch_info =记录/ / / /被呼叫方 encalled：布尔； 整数化在线状态； nstep：app_user_state；/ / / /用了第一个的结构体 ntotrkch：整数； pphonumbuf：阵列[ 0 ]焦50； ntimeout：整数； 结束； /////////////////////////////////////////// 功能mygetanidlechannel()：整数； initctiboard()：布尔函数； 程序drawtrunkchstate； 程序drawuserchstate； 程序DoUserWork； 程序exitctiboard； 程序获取版本； /////////////////////////////////////////////////////////// VaR ntotalch：字； userch：[ 99 ] 0阵的user_ch_info ..； TrunkCh：[ 99 ] 0阵的trunk_ch_info ..； /////////////////////////////////////////////////////////// 实施 使用shpa3api，主，Windows消息，SysUtils，类图形， 控制形式，对话，comctrls，extctrls； //////////////////////////////////////////////////////////// 程序DoUserWork； VaR 整数； I：整数； phonumlen：整数； //数字：字符串； 开始 我：= 0 ntotalch-1做 开始 如果（SsmGetChType（我） 0）然后继续；/ /查找坐席通道 案例userch nstep的[我]。 user_idle： 开始 userch [我]。pphonumbuf：=”； CH：= mygetanidlechannel()； 如果（CH = - 1）然后/没有空闲中继信道可用 开始 SsmSendTone（I，1）； userch [我]。nstep：= user_wait_hangup； 结束 其他的 开始 SsmPickup（CH）； trunkch [CH]。使用：= 1； userch [我]。ntotrkch：= CH； userch [我]。nstep：= user_get_phone_num； 结束； / / ssmcheckactualpickup（我）； 结束； user_dial_auto： 开始 CH：= userch [我]。ntotrkch； / / userch [我]。pphonumbuf：= PChar（主要形式。按2。文本）； 如果（ssmgetchstate（我）= 1）和/或摘机 （SsmAutoDial（CH、pchar（主要形式。按2。文本））= 0）然后 开始 trunkch [CH]。使用：= 2； 如果（ssmgetchstate（我）= 4）然后/ WaitDialtone 开始 userch [我]。 nstep：= user_wait_dial_tone； 结束； 结束； 如果（ssmgetchstate（我）= 0）然后 开始 userch [我]。nstep：= user_idle； trunkch [CH]。使用：= 0； 结束； 结束； user_wait_dial_tone： 开始 trunkch [CH]。使用：= 3； 如果（ssmgetchstate（我）= 5）然后/拨号 开始 userch [我]。nstep：= user_dial； 结束； 如果（ssmgetchstate（我）= 0）然后 开始 userch [我]。nstep：= user_idle； trunkch [CH]。使用：= 0； 结束； 结束； user_dial： 开始 trunkch [CH]。使用：= 2； 开始 SsmAppend