以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么图像上传至ftp后，不能在picturebox中显示？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116192)
--  作者：ycwk
--  发布时间：2018/3/21 8:59:00
--  为什么图像上传至ftp后，不能在picturebox中显示？
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(2000, 1000) \'截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(0, 0, 0, 0, s) \'截取的开始位置,坐标(100, 200)


Dim str_serialno As String =  e.Form.Controls("TB_日常问题ID").value & "_" & Format(Date.now, "yyMMddhhmmss") & ".jpg"


bit.save(ProjectPath & "RemoteFiles\\" & str_serialno)    \'保存图片到本地
msgbox(ProjectPath & "RemoteFiles\\" & str_serialno)

\'上传到FTP服务器
Dim ftp1 As new ftpclient 
ftp1.host="172.16.5.13" 
ftp1.Account = "075"
ftp1.password = "075"
ftp1.upload(ProjectPath & "RemoteFiles\\" & str_serialno,"/李朝阳/" & str_serialno,True) \'上传


Tables("自助报障记录表").Current("问题描述附件")= str_serialno     \'在"自助报障记录表"中保存上述图片路径
Tables("自助报障记录表").current.Save    


bit.Dispose()     \'丢弃资源,不知道是否起作用

MessageBox.Show("截图成功", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Question, 0, Windows.forms.MessageBoxOptions.ServiceNotification)     \'模态窗口提示


Dim pbx As WinForm.PictureBox
pbx = Forms("软件自助报障系统窗口").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom
pbx.Image = GetImage(ProjectPath & "RemoteFiles\\" & str_serialno)
[此贴子已经被作者于2018/3/21 9:13:17编辑过]
--  作者：ycwk
--  发布时间：2018/3/21 9:03:00
--  
好像文件名没有加，知道了，谢谢！
--  作者：ycwk
--  发布时间：2018/3/21 9:14:00
--  
为什么图像不能正确显示在picturebox中?    
--  作者：ycwk
--  发布时间：2018/3/21 9:26:00
--  
文件来源都设置了，就是绑定那里 没有设置，设置成对应的 附件  字段，也没有用
[此贴子已经被作者于2018/3/21 9:50:09编辑过]
--  作者：有点甜
--  发布时间：2018/3/21 10:29:00
--  

1、文件保存成功了没有？

 

2、文件上传成功了没有？

 

3、执行代码，直接直接写路径行不行？

 

Dim pbx As WinForm.PictureBox
pbx = Forms("软件自助报障系统窗口").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom
pbx.Image = GetImage(ProjectPath & "RemoteFiles\\abc.jpg")
--  作者：ycwk
--  发布时间：2018/3/21 10:36:00
--  
文件保存成功了(RemoteFiles文件夹下有该文件)，也上传成功了(ftp中也有该文件),直接写路径也不行，代码放上来，请帮忙看看
[此贴子已经被作者于2018/3/21 10:41:21编辑过]
--  作者：ycwk
--  发布时间：2018/3/21 10:39:00
--  

[此贴子已经被作者于2018/3/21 11:06:33编辑过]
--  作者：ycwk
--  发布时间：2018/3/21 11:06:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:软件自助报障系统客户端3.rar


开发者密码  888
--  作者：有点甜
--  发布时间：2018/3/21 11:20:00
--  

1、如果要用pic.image的方式，那你就不要设置绑定列，不要绑定表列；

 

2、如果要用绑定表列的方式，

 

Tables("自助报障记录表").Current("问题描述附件")= str_serialno     \'在"自助报障记录表"中保存上述图片路径

 

就改成

 

Tables("自助报障记录表").Current("问题描述附件") = "/李朝阳/" & str_serialno

 

然后，上移一行，下移一行看能否显示