编写电话外呼系统，按钮事件中，要等待反极信号传回全局变量，代码怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做了一个电话通知系统，表中有若干人员需要通知，

下面的代码写在"外呼"按钮中，定义了一个全局变量 IsNextCall ,在

Tables("电话通知记录表").Filter= "通知标志=True" '循环检测逐个通知"通知记录表"中为True的记录

For Each dr1 As Row In Tables("电话通知记录表").Rows

If dr1("通知内容") <> Nothing Then '如果通知内容不为空

…………摘机

…………拨号

Vars("IsNextCall")=False

Do While Vars("IsNextCall")=False '如果变局变量变为True,则执行继续往下一行的代码不能用这个循环,程序会死在这里,无法检测摘机事件.

System.threading.Thread.Sleep(3000) ' 延迟3秒

Loop

Vars("IsNextCall")=False

MessageBox.show(Vars("IsNextCall"))

Next '继续呼叫表格中的下一行

在全局代码中：调用了电话语音盒子的dll,

厂商定义有一个

select case

case 对方摘机

语音盒子播放通知的内容

语音盒子挂机

Var("IsNextCall")=True

exit select

case …………

end select

问题是不能用 do while 循环判断全局变量 IsNextCall ，否则程序会死在这里，无法往下继续呼叫，请问这个延时判断应该怎么写？用回调？用计划任务？代码咋写？请指教

整个按钮代码放到计划任务中就可以，循环改改

Do While Vars("IsNextCall")=False '如果变局变量变为True,则执行继续往下一行的代码不能用这个循环,程序会死在这里,无法检测摘机事件.

System.threading.Thread.Sleep(500) ' 延迟3秒

Application.DoEvents

Loop

一般电话语音盒开发接口都会有摘机、挂机事件的吧，在挂机事件中呼叫表格中的下一行不就行？

想了一下，把呼叫下一行放在挂机事件中恐怕不行，那样的话不是每次挂机都会从头开始呼叫？计划任务具体又放什么代码呢？能不能帮忙理个思路出来？

Select Case EventData.lEventType

Case BriSDKLib.BriEvent_RemoteHook And CurrentTable.Name="电话通知记录表" '通过反极信号检测到对方摘机,且当前表是电话通知记录表，避免正常外呼电话摘机后也播放语音

' MessageBox.Show("对方摘机")

Dim sp As new DotNetSpeech.SpVoice()

Dim Stream As new DotNetSpeech.SpFileStreamClass()

Stream.Open("Voice\NoticeContent.wav",DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite , False)

For Each v As object In sp.getVoices '用for each循环找到名称包含 Lily的语音库

If v.GetDescription Like "*LiLy*" Then

sp.Voice = v

Exit For

End If

sp.AudioOutputStream = Stream

' MessageBox.show( Vars("NoticeContent") )

sp.Speak( Vars("NoticeContent") ,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)

Stream.Close ()

m_tagpstnData(Vars("intChannelID" )).lPlayFileHandle = BriSDKLib.QNV_PlayFile(Vars( "intChannelID" ),BriSDKLib.QNV_PLAY_FILE_START,0,0,"Voice\NoticeContent.wav" ) '播放通知内容语音如果没有语音，则会直接挂机，请注意！

'以下为循环检测播放句柄是否一直有效，播放完毕后就挂机

Do While BriSDKLib.QNV_PlayFile(Vars("intChannelID"),BriSDKLib.QNV_PLAY_FILE_ISPLAY,m_tagpstnData(Vars("intChannelID" )).lPlayFileHandle ,0,0) ' 播放句柄句柄一直有效

System.threading.Thread.Sleep(3000) ' 延迟3秒

Application.DoEvents

Loop

'MessageBox.show("出循环")

BriSDKLib.QNV_SetDevCtrl(Vars("intChannelID"), BriSDKLib.QNV_CTRL_DOHOOK,0) '挂机不知道是否不通过人工拨号出去的时候，盒子可以直接挂机，手动测试不出来。待程序写好后才知

Vars("IsNextCall")=True '把全局变量置为True ，使得 "电话通知"按钮事件知道可以进行下一个电话呼叫了

' End If '结束----如果通知内容不为空

'Next '往下移动到表中下一条通知记录

Exit Select

上面是摘机事件中的代码，但是目前程序只能正常外呼第一个电话时播放语音，第二个第三个第四个都只能打通，无法播放语音。而且 NoticeContent.wav 第一次有语音，后面拨号时里面也确实是没有语音，不知何故！

现在关键是wav文件只能生成一次，我第一次在播放完毕后删除，第二次就死活生成不了，能否帮忙看看上述代码有什么问题？

第二次生成了，但是里面没有语音，只有一个空文件，难道语音输出不能输出第二次？奇怪

终于找到了，把 sp.Speak( Vars("NoticeContent") ,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) 中的 vars("NoticeContent") 替换成一个字符串变量就好了，莫非又是狐表的一个bug? 为什么第一次可以，第二次就不行了？

回复7楼，尝试这样。

全局代码那里定义

Public sp As New DotNetSpeech.SpVoice()

掉用的时候直接写

sp.Speak(Vars("NoticeContent"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

8楼袍哥说的对，为什么要把sp 定义成全局变量才行呢？

以下是引用ycwk在2016/4/24 19:22:00的发言：
8楼袍哥说的对，为什么要把sp 定义成全局变量才行呢？

重复的new对象有可能出问题。也没必要重复new

主题：编写电话外呼系统，按钮事件中，要等待反极信号传回全局变量，代码怎么写？