- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 计划任务判断照片高大于宽，如何旋转90度？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136188)
-- 发布时间：2019/6/9 19:34:00
-- 计划任务判断照片高大于宽，如何旋转90度？
Dim drs As List(of DataRow) = DataTables("会员资料").SQLSelect("[展示照] is not null and [会员编号] = \'21\'")
msgbox(drs.Count) ’提示1行
For Each dr As DataRow In drs
msgbox(2)
Dim file = "e:\\web\\zsz\\d\\" & dr("展示照")
Dim img As image = getImage(file)
If img IsNot Nothing Then
msgbox("高度:" & img.height)
msgbox("宽度:" & img.width)
If img.height > img.width Then
Dim bmp As bitmap = new bitmap(img, img.height, img.width)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save("e:\\web\\zsz\\d\\" & dr("展示照"))
msgbox(4)
End If
msgbox(3)
End If
Next
msgbox(5)
2、5执行了，其他msgbox没有执行
后台查看照片，发现没有旋转，麻烦看下，该如何改？
[此贴子已经被作者于2019/6/9 20:28:48编辑过]
-- 发布时间：2019/6/10 9:20:00
--
说明没有这个文件
Dim file = "e:\\web\\zsz\\d\\" & dr("展示照")
msgbox(file)
Dim img As image = getImage(file)
-- 发布时间：2019/6/10 9:37:00
--
后台照片存在，路径是对的，为什么找不到勒？
此主题相关图片如下：qq图片20190610093437.png
此主题相关图片如下：qq图片20190610093521.png
[此贴子已经被作者于2019/6/10 9:43:21编辑过]
-- 发布时间：2019/6/10 9:57:00
--
把后缀名显示出来，然后对比其值，肯定是不对应的。
-- 发布时间：2019/6/10 10:22:00
--
服务器，右击图片，查看属性，发现后缀名也是.jpg
此主题相关图片如下：qq图片20190610102142.png
判断照片是否存在，结果为false，我不知道该如何改了
此主题相关图片如下：qq图片20190610110816.png
[此贴子已经被作者于2019/6/10 11:08:43编辑过]
-- 发布时间：2019/6/10 11:16:00
--
Dim file = "e:\\web\\zsz\\d\\" & dr("展示照")
msgbox(file)
msgbox(FileSys.FileExists(file))
Dim img As image = getImage(file)
msgbox(img is nothing)
[此贴子已经被作者于2019/6/10 11:16:26编辑过]
-- 发布时间：2019/6/10 19:17:00
--
知道错误在哪了
我是本机测试的，不能去服务器看照片