Foxtable(狐表)用户栏目专家坐堂 → 子配的录音文件我想改成自动上传至FTP上,应该怎么改呀


  共有1268人关注过本帖树形打印复制链接

主题:子配的录音文件我想改成自动上传至FTP上,应该怎么改呀

帅哥哟,离线,有人找我吗?
zoudezhao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
子配的录音文件我想改成自动上传至FTP上,应该怎么改呀  发帖心情 Post By:2017/7/19 15:59:00 [只看该作者]

我想将录音文件改成自动上传至FTP上,但是设置的话应该用本地录完音在上传至FTP还是直接上传至FTP,录音文件处又应该怎么同步FTP上的文件,因为如果录音道本地肯定会标记上D:\Record\XXXX.WAV

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/19 17:30:00 [只看该作者]

 录完才能上传。

 

 你操作录音的时候,是如何操作的?录完完毕后面加上你上传的代码不就行了?


 回到顶部
帅哥哟,离线,有人找我吗?
zoudezhao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
  发帖心情 Post By:2017/7/19 17:47:00 [只看该作者]

上传代码是放到全局代码
 Case BriSDKLib.BriEvent_PhoneHang '电话机挂机
                    StopRecord(EventData.uChannelID) '挂机停止录音
                    AppendStatus("电话机挂机",EventData.uChannelID)
                    If drCurrentRow IsNot Nothing
                        drCurrentRow("挂机时间") = Date.Now
                        AppendCallRecord("电话机挂机",EventData.uChannelID)
                    End If
                    CloseContact()
                    CanAddnew = True
                    Exit Select
这里么


 回到顶部
帅哥哟,离线,有人找我吗?
zoudezhao
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
  发帖心情 Post By:2017/7/19 17:51:00 [只看该作者]

如果改成执行cmd的  \\192.168.1.254  这种的是不是也可以。。。。  就不需要FTP了本地执行就可以。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/19 17:58:00 [只看该作者]

回复3楼,是的,放在那里。

 

回复4楼,你的录音路径可以保存到局域网共享文件夹的。


 回到顶部
帅哥哟,离线,有人找我吗?
zoudezhao
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
  发帖心情 Post By:2017/7/19 18:05:00 [只看该作者]

感谢甜老师

 回到顶部
帅哥哟,离线,有人找我吗?
zoudezhao
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
  发帖心情 Post By:2017/7/19 18:38:00 [只看该作者]

甜老师有没有办法模拟cmd按键。。。

 回到顶部
帅哥哟,离线,有人找我吗?
zoudezhao
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
  发帖心情 Post By:2017/7/19 18:52:00 [只看该作者]

解决了。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/19 19:30:00 [只看该作者]

以下是引用zoudezhao在2017/7/19 18:38:00的发言:
甜老师有没有办法模拟cmd按键。。。

 

这个?

 

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine( "ping www.baidu.com")
p.StandardInput.WriteLine("exit")

Dim strRst As String = p.StandardOutput.ReadToEnd()
msgbox(strrst)

 


 回到顶部