关于照片尺寸的问题 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于照片尺寸的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1430 人关注过本帖

标题：关于照片尺寸的问题

只看楼主加入收藏

kaximoduo555

等　级：新手上路
帖　子：21
专家分：0
注　册：2014-6-6
结帖率：44.44%

楼主

已结贴√ 问题点数：10 回复次数：8

关于照片尺寸的问题

我想通过一个程序，把一个文件夹下所有宽度大于高度的照片全部挑拣出来！请教一下高手这个程序如何写？多谢！！

搜索更多相关主题的帖子: 文件夹　照片　如何　

2017-04-12 14:46

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9848
专家分：27241
注　册：2012-2-5

第 2 楼

得分:3

上传几张相片看看

坚守VFP最后的阵地

2017-04-12 18:12

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9848
专家分：27241
注　册：2012-2-5

第 3 楼

得分:0

程序代码：

CLEAR 
=ADIR(afile,"jpg\*.jpg")
op = CREATEOBJECT("Image")
FOR i=1 TO ALEN(afile,1)
    op.Picture = SYS(5)+SYS(2003)+"\jpg\"+afile[i,1]
    IF op.width>op.height
        ? afile[i,1]+"  Width  : ", op.Width,"Height : ", op.Height
    ENDIF 
ENDFOR

坚守VFP最后的阵地

2017-04-12 20:54

kaximoduo555

等　级：新手上路
帖　子：21
专家分：0
注　册：2014-6-6

第 4 楼

得分:0

回复 3楼 sdta

多谢！

2017-04-12 23:35

wangzhiyi

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9

第 5 楼

得分:3

以下是引用sdta在2017-4-12 20:54:25的发言：

CLEAR
=ADIR(afile,"jpg\*.jpg")
op = CREATEOBJECT("Image")
FOR i=1 TO ALEN(afile,1)
    op.Picture = SYS(5)+SYS(2003)+"\jpg\"+afile[i,1]
    IF op.width>op.height
        ? afile[i,1]+"  Width  : ", op.Width,"Height : ", op.Height
    ENDIF
ENDFOR

老版主，如何要读取图片文件的大小，用哪个参数？

2017-04-13 11:00