Foxtable(狐表) → 用户栏目 → 专家坐堂 → 截图上传保存


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

主题：截图上传保存
帅哥哟，离线，有人找我吗？
aaa1234
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		截图上传保存  发帖心情 Post By：2021/8/16 10:24:00 [只看该作者]

Forms("录入窗口").baseform.WindowState =1

ClipBoard.Clear
system.Threading.Thread.Sleep(1000)
Dim proc As new Process
Dim ftp1 As New FtpClient
Dim i As Integer = 0
Dim dr As Row = Tables("Table_3").Current
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    ftp1.host="172.16.120.41"
    ftp1.Account ="admin"
    ftp1.password ="qw123" 
If ftp1.MakeDir(dr("单号")& dr("客户姓名")&"\") Then
    Messagebox.Show("创建目录成功!")
Else
    Messagebox.Show("已有重复的,请注意查看系统单号+处理人的文件夹!")
End If
If ftp1.Upload("d:\test.jpg") = True Then

Else

End If
If ftp1.FileExists("\" &dr("单号") &dr("客户姓名")& "\" & dr("单号")&  "截图" & ".jpg") Then 
For i = 1 To 999 
If ftp1.FileExists("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& "截图" & "("&  i &").jpg")=False Then 
Exit For
End If
Next
End If 

If i > 0 Then
ftp1.Rename("\test.jpg","\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& "截图" &"("&  i &").jpg")
e.Form.Controls("PictureViewer1").AddFile("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& "截图" &"("&  i &").jpg")
Else
ftp1.Rename("\test.jpg","\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& "截图" &".jpg")
e.Form.Controls("PictureViewer1").AddFile("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& "截图" &".jpg")
End If
End If

Forms("录入窗口").baseform.WindowState =0
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/8/16 10:26:00 [只看该作者]

老师您好，我想问一下我截图上传的，为什么，有一些数据他上传不了到ftp里面，而有一些数据就可以上传上去，我有一条数据单号是113-5750091-8061838客户姓名sze，就不行，其他的都可以

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可能对文件名称和路径有限制，去掉特殊符号试试

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


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/8/16 10:41:00 [只看该作者]

怎么把那些符号切掉

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是这里上传不成功？上传不了下面提示哪一个？

If ftp1.Upload("d:\test.jpg") = True Then
msgbox("成功")
Else
msgbox("不成功")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/8/16 10:53:00 [只看该作者]

去掉符号也不行

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


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/8/17 16:33:00 [只看该作者]

老师ftp那里是不是应该设置什么，我很多条数据都可以上传唯独有一条单号为111-2168953-7185030 姓名为Bruce Asborno 搞不了

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


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/8/17 16:35:00 [只看该作者]

Forms("录入窗口").baseform.WindowState =1
system.Threading.Thread.Sleep(1000)
Dim proc As new Process
Dim ftp1 As New FtpClient
Dim i As Integer = 0
Dim dr As Row = Tables("Table_3").Current
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\test.jpg")
    ftp1.host="172.16.120.41"
    ftp1.Account ="admin"
    ftp1.password ="qw123" 
If ftp1.MakeDir(dr("单号")& dr("客户姓名")&"\") Then
    Messagebox.Show("创建目录成功!")
Else
    Messagebox.Show("已有重复的,请注意查看系统单号+处理人的文件夹!")
End If
If ftp1.Upload("d:\test.jpg") = True Then
 msgbox("成功")
Else
 msgbox("不成功")
End If
If ftp1.FileExists("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& dr("客户姓名")& "截图" & ".jpg") Then 
For i = 1 To 999 
If ftp1.FileExists("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& dr("客户姓名")& "截图" & "("&  i &").jpg")=False Then 
Exit For
End If
Next
End If 
If i > 0 Then
ftp1.Rename("\test.jpg","\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& dr("客户姓名")& "截图" &"("&  i &").jpg")
e.Form.Controls("PictureViewer1").AddFile("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& dr("客户姓名")& "截图" &"("&  i &").jpg")
ftp1.Delete("/test.jpg")
Else
ftp1.Rename("\test.jpg","\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& dr("客户姓名")& "截图" &".jpg")
e.Form.Controls("PictureViewer1").AddFile("\" &dr("单号")& dr("客户姓名")& "\" & dr("单号")& dr("客户姓名")& "截图" &".jpg")
ftp1.Delete("/test.jpg")
End If

End If
Forms("录入窗口").baseform.WindowState =0 代码入下
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/8/17 16:36:00 [只看该作者]

唯独只有一个上传不了
好玄学啊老师
[此贴子已经被作者于2021/8/17 16:55:05编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上传不了下面提示哪一个？

If ftp1.Upload("d:\test.jpg") = True Then
msgbox("成功")
Else
msgbox("不成功")
End If
 回到顶部
总数 13 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.05469 秒, 4 次数据查询