以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]子佩录音盒如何做 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161572) |
||||
-- 作者:zto001 -- 发布时间:2021/3/23 1:21:00 -- [求助]子佩录音盒如何做 子佩电话录音盒连接示例
本节的任务是设计一个窗口,以软件方式实现电话终端的管理。本例实现来电弹屏、通话录音存储、通话详单记录、自动答录、快速拨号等多项功能 我按照这个文件,再抄全局代码的时候,只有sdklib能抄过去,其他的(第一个全局代码跟第二个)都是出错 怎么弄? 编译错误:未声明"drcurrentRow"。它可能因其保护级别而不可访问。 错误代码:drCurrentRow("通讯状态")= GetMessage(msg,channellD) &vbcrlf & drcurrentRow("通讯状态") 编译错误:未声明”Appendstatus”。它可能因其保护级别而不可访问。 错误代码:Appendstatus("文件录音失败:"& file,channellD) 怎么弄?
|
||||
-- 作者:有点蓝 -- 发布时间:2021/3/23 8:55:00 -- 把全局代码全部都放到一起 先复制default的代码,在复制sdklib的代码接着放到之前的代码之后,再复制FunctionDef的代码放到最后即可
|
||||
-- 作者:zto001 -- 发布时间:2021/3/28 1:42:00 -- 请问下,打电话窗口上有些东西我不用,只需要现在有的。还要怎么改?我没看到窗口有调用其他的。
|
||||
-- 作者:zto001 -- 发布时间:2021/3/28 11:31:00 -- 电话呼进来,要怎样做来电弹窗? |
||||
-- 作者:有点蓝 -- 发布时间:2021/3/28 21:02:00 -- 请自行学习看懂代码。接收到来电的地方(在全局代码),弹出一个窗口即可 |
||||
-- 作者:zto001 -- 发布时间:2021/3/30 15:33:00 -- Case BriSDKLib.BriEvent_CallIn \'来电响铃 AppendStatus("来电响铃",EventData.uChannelID) Forms("通话弹窗").Open Exit Select 来电弹窗是不是在这里?
|
||||
-- 作者:有点蓝 -- 发布时间:2021/3/30 15:41:00 -- 应该是,试试不就知道了 |
||||
-- 作者:zto001 -- 发布时间:2021/4/5 1:53:00 -- 有两个问题,,通话界面有两个文本, 电话号码.text 电话状态.text 需要在来电/去电的时候 电话号码.txt改成来电/去电的号码,应该在哪插入代码?哪个变量是电话号码?
电话状态.text代表当前的通话状态希望现实后面红色这段 是哪个变量? [10:11:02][通道1] 被远程挂机 [10:10:35][通道1] 拨号后接收到回铃音 [10:10:17][通道1] 检测到拨号音 [10:10:17][通道1] 开始拨号:18570387961 [10:10:10][通道1] 启动ICC301虚拟声卡功能成功 还有接听电话是哪个代码 [此贴子已经被作者于2021/4/5 2:03:29编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2021/4/5 21:14:00 -- Case BriSDKLib.BriEvent_GetCallID \'接收到来电号码 Dim PhoneNumber As String = ByteArrayToString(EventData.szData) AppendStatus("接收到来电号码: " & PhoneNumber,EventData.uChannelID) …… Case BriSDKLib.BriEvent_PhoneDial \'电话机拨号 Dim PhoneNumber = ByteArrayToString(EventData.szData) Dim dialNum = PhoneNumber dialNum = dialNum.Chars(dialNum.Length-1) \'拨一个号码就会接收到一条消息,后一条信息会包含之前的拨号号码,这里每次只取最后拨号的号码 AppendStatus("电话机拨号: " & dialNum, EventData.uChannelID) If drCurrentRow IsNot Nothing Then drCurrentRow("电话号码") = PhoneNumber AppendCallRecord("电话机拨号: " & dialNum, EventData.uChannelID) End If Exit Select 具体请看Select Case m.Msg里各种消息的处理和备注说明 |
||||
-- 作者:zto001 -- 发布时间:2021/4/7 20:12:00 -- 有来电了,接听是哪个? |