Foxtable(狐表) → 用户栏目 → 专家坐堂 → ftp上传图片


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

主题：ftp上传图片
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/26 16:44:00 [只看该作者]

调试
Dim pic1 As String = e.Form.Controls("PictureViewer1").SelectedItem
msgbox(pic1)
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/26 16:47:00 [只看该作者]

将图片管理器设置不是远程 就正常了 要在哪更改代码？谢谢指导

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/26 16:49:00 [只看该作者]

远程图片要下载到本机使用

 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/29 11:03:00 [只看该作者]

老师：你好！请教一下   我有一个图片管理器设置的是ftp远程管理，图片显示上传成功 ，但图片管理中的图片显示很慢 一直在打圈，速度慢得有点难接，有什么办法提高速度，谢谢老师指导
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/5/29 20:48:00 [只看该作者]

提高服务器性能，比如cpu，内存。提高网络带宽。

若非必要，尽量不要使用过大的图片
[此贴子已经被作者于2022/5/29 20:48:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/8/22 10:14:00 [只看该作者]

老师：你好！我发布可以读取身份证信息，为什么发布读取不到信息了Dim pic1 As String = e.Form.Controls("PictureViewer1").SelectedItem 
Dim ppic1 As String = pic1.Remove(0, 6)
Dim isfront As Boolean = e.Form.Controls("rdbfront").checked

Try
    Dim client As New Baidu.Aip.Ocr.Ocr(Vars("APIKey"), Vars("SecretKey")) '初始化接口类,传入创建的应用的API Key,Secret Key
    client.Timeout = 60000 '设置超时时间
    Dim data() As Byte = System.IO.File.ReadAllBytes(ppic1) '把图片文件字节流加载进来,
    
    
    Dim options As New Dictionary(Of String, Object) '使用字典传递参数
    'options.Add("detect_direction","true") '是否检测图像朝向,默认不检测 
    options.Add("detect_risk", "true")
    Dim jo = client.Idcard(data, IIf(isfront, "front", "back"), options) '调用接口开始识别,返回值为JObject对象
    If jo("error_code") IsNot Nothing AndAlso jo("error_code") <> 0 Then
'        txt.text = "识别失败: " & vbcrlf & jo("error_msg").Tostring
    Else
        Dim sbu As New StringBuilder
'        sbu.AppendLine( "--------************-----------")
'        sbu.AppendLine( "状态:" & jo("image_status").Tostring)
        If isfront Then
'            If jo("risk_type") IsNot Nothing Then sbu.AppendLine("风险类型:" & jo("risk_type").Tostring)
'            If jo("edit_tool") IsNot Nothing Then sbu.AppendLine("编辑状态:" & jo("edit_tool").Tostring)
'            sbu.AppendLine( "--------************-----------")
'            sbu.AppendLine( "识别出" & jo("words_result_num").Tostring & "条信息:")
'            If jo("words_result")("公民身份号码") IsNot Nothing Then sbu.AppendLine( "--公民身份号码:" & jo("words_result")("公民身份号码")("words").ToString)
            '如果号码识别失败,不会出现出生属性,所以需要判断一下
            If jo("words_result")("公民身份号码") IsNot Nothing Then Tables("员工信息表").Current("身份证号") = jo("words_result")("公民身份号码")("words").ToString 
'            If jo("words_result")("出生") IsNot Nothing Then sbu.AppendLine( "--出生日期:" & jo("words_result")("出生")("words").ToString)
            If jo("words_result")("姓名") IsNot Nothing Then Tables("员工信息表").Current("姓名") = jo("words_result")("姓名")("words").ToString 
            If jo("words_result")("住址") IsNot Nothing Then Tables("员工信息表").Current("家庭住址") = jo("words_result")("住址")("words").ToString 
            
'            If jo("words_result")("姓名") IsNot Nothing Then sbu.AppendLine( "--姓名:" & jo("words_result")("姓名")("words").ToString)
'            If jo("words_result")("性别") IsNot Nothing Then sbu.AppendLine( "--性别:" & jo("words_result")("性别")("words").ToString)
'            If jo("words_result")("民族") IsNot Nothing Then sbu.AppendLine( "--民族:" & jo("words_result")("民族")("words").ToString)
'            If jo("words_result")("住址") IsNot Nothing Then sbu.AppendLine( "--住址:" & jo("words_result")("住址")("words").ToString)
        Else
            sbu.AppendLine( "识别出" & jo("words_result_num").Tostring & "条信息:")
            If jo("words_result")("签发机关") IsNot Nothing Then sbu.AppendLine( "--签发机关:" & jo("words_result")("签发机关")("words").ToString)
            If jo("words_result")("签发日期") IsNot Nothing Then sbu.AppendLine( "--签发日期:" & jo("words_result")("签发日期")("words").ToString)
            If jo("words_result")("失效日期") IsNot Nothing Then sbu.AppendLine( "--失效日期:" & jo("words_result")("失效日期")("words").ToString)
        End If
'        txt.text = txt.text & vbcrlf & sbu.ToString
    End If
    'txt.text = txt.text & vbcrlf & "识别结果: " & vbcrlf & result.Tostring
Catch ex As exception
'    txt.text = txt.text & vbcrlf & "识别接口调用失败,错误描述: " & vbcrlf & ex.message
End Try
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/8/22 10:15:00 [只看该作者]

发布可以读取身份证信息  发布后点击没报应了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/8/22 10:23:00 [只看该作者]

添加代码调试，看哪些代码没有执行？http://www.foxtable.com/webhelp/topics/1485.htm

 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/8/22 10:40:00 [只看该作者]

im pic1 As String = e.Form.Controls("PictureViewer1").SelectedItem 
Dim ppic1 As String = pic1.Remove(0, 6)
Dim isfront As Boolean = e.Form.Controls("rdbfront").checked
MessageBox.Show(1)
Try
    Dim client As New Baidu.Aip.Ocr.Ocr(Vars("APIKey"), Vars("SecretKey")) '初始化接口类,传入创建的应用的API Key,Secret Key
    client.Timeout = 60000 '设置超时时间
    Dim data() As Byte = System.IO.File.ReadAllBytes(ppic1) '把图片文件字节流加载进来,
   MessageBox.Show(2) 
    
    Dim options As New Dictionary(Of String, Object) '使用字典传递参数
    'options.Add("detect_direction","true") '是否检测图像朝向,默认不检测 
    options.Add("detect_risk", "true")
    Dim jo = client.Idcard(data, IIf(isfront, "front", "back"), options) '调用接口开始识别,返回值为JObject对象
    If jo("error_code") IsNot Nothing AndAlso jo("error_code") <> 0 Then
'        txt.text = "识别失败: " & vbcrlf & jo("error_msg").Tostring
MessageBox.Show(2)
    Else
        Dim sbu As New StringBuilder
'        sbu.AppendLine( "--------************-----------")
'        sbu.AppendLine( "状态:" & jo("image_status").Tostring)
        If isfront Then
'            If jo("risk_type") IsNot Nothing Then sbu.AppendLine("风险类型:" & jo("risk_type").Tostring)
'            If jo("edit_tool") IsNot Nothing Then sbu.AppendLine("编辑状态:" & jo("edit_tool").Tostring)
'            sbu.AppendLine( "--------************-----------")
'            sbu.AppendLine( "识别出" & jo("words_result_num").Tostring & "条信息:")
'            If jo("words_result")("公民身份号码") IsNot Nothing Then sbu.AppendLine( "--公民身份号码:" & jo("words_result")("公民身份号码")("words").ToString)
            '如果号码识别失败,不会出现出生属性,所以需要判断一下
            If jo("words_result")("公民身份号码") IsNot Nothing Then Tables("员工信息表").Current("身份证号") = jo("words_result")("公民身份号码")("words").ToString 
'            If jo("words_result")("出生") IsNot Nothing Then sbu.AppendLine( "--出生日期:" & jo("words_result")("出生")("words").ToString)
            If jo("words_result")("姓名") IsNot Nothing Then Tables("员工信息表").Current("姓名") = jo("words_result")("姓名")("words").ToString 
            If jo("words_result")("住址") IsNot Nothing Then Tables("员工信息表").Current("家庭住址") = jo("words_result")("住址")("words").ToString 
            
'            If jo("words_result")("姓名") IsNot Nothing Then sbu.AppendLine( "--姓名:" & jo("words_result")("姓名")("words").ToString)
'            If jo("words_result")("性别") IsNot Nothing Then sbu.AppendLine( "--性别:" & jo("words_result")("性别")("words").ToString)
'            If jo("words_result")("民族") IsNot Nothing Then sbu.AppendLine( "--民族:" & jo("words_result")("民族")("words").ToString)
'            If jo("words_result")("住址") IsNot Nothing Then sbu.AppendLine( "--住址:" & jo("words_result")("住址")("words").ToString)
MessageBox.Show(3)
        Else
            sbu.AppendLine( "识别出" & jo("words_result_num").Tostring & "条信息:")
            If jo("words_result")("签发机关") IsNot Nothing Then sbu.AppendLine( "--签发机关:" & jo("words_result")("签发机关")("words").ToString)
            If jo("words_result")("签发日期") IsNot Nothing Then sbu.AppendLine( "--签发日期:" & jo("words_result")("签发日期")("words").ToString)
            If jo("words_result")("失效日期") IsNot Nothing Then sbu.AppendLine( "--失效日期:" & jo("words_result")("失效日期")("words").ToString)
        End If
        MessageBox.Show(4)
'        txt.text = txt.text & vbcrlf & sbu.ToString
    End If
    'txt.text = txt.text & vbcrlf & "识别结果: " & vbcrlf & result.Tostring
Catch ex As exception
'    txt.text = txt.text & vbcrlf & "识别接口调用失败,错误描述: " & vbcrlf & ex.message
End Try
MessageBox.Show(5）老师：2、3、4不运行  为什么
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：306 积分：3860 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/8/22 10:42:00 [只看该作者]

发布前运行正常 发布后2、3、4不运行了
 回到顶部
总数 29 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询