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


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

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


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		ftp上传图片  发帖心情 Post By：2022/5/24 9:50:00 [显示全部帖子]

老师：你好！我ftp上传图片代码是这样写的：

If filesys.FileExists("\\NTHS-369\扫描文件\Image_00001.jpg") Then

        Dim fileName3 As String = "HSKT" & DateTime.Now.ToString("yyyyMMddHHmmss") & ".jpg"

        FileSys.CopyFile("\\NTHS-369\扫描文件\Image_00001.jpg","\新建文件夹\HSKT" & DateTime.Now.ToString("yyyyMMddHHmmss") & ".jpg")

    Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

   

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

Dim Files As List(of String) = piv.FtpClient.SelectFile()

For Each File As String In Files

    'piv.AddFile(File)

Next

 

End If  点击后 打开ftp管理器再选择图片上传  我想点击就直接上传 不用打开ftp管理器  同时在 PictureViewer1显示出来
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/24 9:55:00 [显示全部帖子]

代码要怎样写，谢谢老师指导

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


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/24 23:22:00 [显示全部帖子]

老师：你好！我使用第三方拍照程序  打开代码：Dim Proc As New Process
Proc.File = ProjectPath & "Attachments\得力闪拍\DeliCamera.exe" 
Proc.Start()  可以正常打开    但关闭代码：Dim Proc As New Process
Proc.File = ProjectPath & "Attachments\得力闪拍\DeliCamera.exe" 
Proc.Close  关闭不了报错“没有与对象关联的进程”
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/24 23:23:00 [显示全部帖子]

代码要怎样写？请老师指教

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


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/26 16:39:00 [显示全部帖子]

老师;你好！ 我的文字识别代码是这样的（附件）  图片管理器是用远程  报错“识别接口调用失败,错误描述:

未能找到文件“I:\ygtp20220526021831.jpg”。”代码要怎样写才能正常
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/26 16:40:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt
 回到顶部
帅哥哟，离线，有人找我吗？
nths
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/26 16:47:00 [显示全部帖子]

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

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


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/5/29 11:03:00 [显示全部帖子]

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


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：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
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：322 积分：4216 威望：0 精华：0 注册：2017/3/25 15:34:00 		  发帖心情 Post By：2022/8/22 10:15:00 [显示全部帖子]

发布可以读取身份证信息  发布后点击没报应了
 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询