以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获得服务器上图片文件的高和宽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161360)

--  作者:cqlwsam
--  发布时间:2021/3/15 9:50:00
--  如何获得服务器上图片文件的高和宽
窗口中有picturebox控件,需要获得服务器上图片的宽与高,决定图片在控件中的缩放方式。如何获得该图片的宽与高?谢谢!

Dim pb As WinForm.PictureBox = e.form.controls("PictureBox1")
pb.FTPclient = ftp1 \'服务器图片
pb.ImageFile = t5 & t1
Dim img As Image = GetImage(t5 & t1)
If img.Height < pb.Height AndAlso img.Width < pb.Width Then
      pb.SizeMode = ImageSizeMode.CenterImage
Else
      pb.SizeMode = ImageSizeMode.Zoom
End If

运行提示:未将对象引用设置到对象的实例。

代码“dim img as image 。。。”前的部分运行正常。
代码错误应该在:Dim img As Image = GetImage(t5 & t1)
[此贴子已经被作者于2021/3/15 9:54:34编辑过]

--  作者:有点蓝
--  发布时间:2021/3/15 9:56:00
--  
msgbox(t5 & t1) 显示的是什么路径?

下面2种用法仅支持本地路径,ImageFile可以支持http,但是不支持ftp的
pb.ImageFile = t5 & t1
Dim img As Image = GetImage(t5 & t1)

--  作者:cqlwsam
--  发布时间:2021/3/15 10:00:00
--  
t5 是ftp服务器上图片保存的目录, t1是文件名。
pb.imgefile = t5 & t1 运行正常

注释掉Dim img As Image = GetImage(t5 & t1)正常。
[此贴子已经被作者于2021/3/15 10:06:08编辑过]

--  作者:有点蓝
--  发布时间:2021/3/15 10:09:00
--  
GetImage仅支持本地路径
--  作者:cqlwsam
--  发布时间:2021/3/15 10:20:00
--  
那如何来获得ftp上图片的宽与高?谢谢!


--  作者:有点蓝
--  发布时间:2021/3/15 10:26:00
--  
下载到本地http://www.foxtable.com/webhelp/topics/1410.htm
再使用GetImage

--  作者:cqlwsam
--  发布时间:2021/3/15 10:31:00
--  
picturebox控件中显示的文件都会缓存到本地项目文件夹中RemoteFiles目录下,获得项目文件夹的名称即可。如何获得项目文件夹?


--  作者:有点蓝
--  发布时间:2021/3/15 10:34:00
--  
msgbox(ProjectPath & "RemoteFiles\\")
--  作者:cqlwsam
--  发布时间:2021/3/15 10:40:00
--  
ok。搞定。
        Dim pb As WinForm.PictureBox = e.form.controls("PictureBox1")
        pb.FTPclient = ftp1 \'服务器图片
        pb.ImageFile = t5 & t1
        Dim txt As String = ProjectPath & "\\RemoteFiles\\" & t5 & t1
        Dim img As Image = GetImage(txt)
        If img.Height < pb.Height AndAlso img.Width < pb.Width Then
            pb.SizeMode = ImageSizeMode.CenterImage
        Else
            pb.SizeMode = ImageSizeMode.Zoom
        End If