易语言利用对象调用phpotoshop

易语言利用对象操作phpotoshop纯代码不需要第三方模块，打开图片和保存图片。

@阿仁同学

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 功能_保存图片
.参数 路径, 文本型
.局部变量 对象, 对象
.局部变量 str, 文本型

路径 ＝ 子文本替换 (路径, “”, “\”, , , 真)
str ＝ 子文本替换 (#常量_ps保存, “[路径]”, 路径, , , 真)
对象.创建 (“Photoshop.Application”, )
对象.文本方法 (“DoJavaScript”, str)
' 对象.查看 ()
调试输出 (对象.取错误 ())
.如果真 (对象.取错误 () ＝ “对象为空”)
    信息框 (“请先安装新版本photoshop，再执行当前操作”, 0, , )
.如果真结束


.子程序 功能_编辑图片
.参数 路径, 文本型
.局部变量 对象, 对象
.局部变量 str, 文本型

路径 ＝ 子文本替换 (路径, “”, “\”, , , 真)
str ＝ 子文本替换 (#常量_ps编辑, “[路径]”, 路径, , , 真)
对象.创建 (“Photoshop.Application”, )
对象.文本方法 (“DoJavaScript”, str)
调试输出 (对象.取错误 ())
.如果真 (对象.取错误 () ＝ “对象为空”)
    信息框 (“请先安装新版本photoshop，再执行当前操作”, 0, , )
.如果真结束


.子程序 _按钮1_被单击

功能_编辑图片 (取运行目录 () ＋ “1.jpg”)

.子程序 _按钮2_被单击

功能_保存图片 (取运行目录 () ＋ “2.jpg”)