Foxtable(狐表)用户栏目专家坐堂 → 计划任务判断照片高大于宽,如何旋转90度?


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

主题:计划任务判断照片高大于宽,如何旋转90度?

帅哥哟,离线,有人找我吗?
zhangjian222200
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1550 积分:10977 威望:0 精华:0 注册:2016/9/12 11:18:00
计划任务判断照片高大于宽,如何旋转90度?  发帖心情 Post By:2019/6/9 19:34:00 [显示全部帖子]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1550 积分:10977 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2019/6/10 9:37:00 [显示全部帖子]

后台照片存在,路径是对的,为什么找不到勒?


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190610093437.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190610093521.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/6/10 9:43:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1550 积分:10977 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2019/6/10 10:22:00 [显示全部帖子]

服务器,右击图片,查看属性,发现后缀名也是.jpg


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190610102142.png
图片点击可在新窗口打开查看


判断照片是否存在,结果为false,我不知道该如何改了

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190610110816.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/6/10 11:08:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1550 积分:10977 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2019/6/10 19:17:00 [显示全部帖子]

知道错误在哪了
我是本机测试的,不能去服务器看照片

 回到顶部