回复 14楼 zhken
这个可以
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
CLEAR ALL
cPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
sFile = cPath+"IMG_8066.jpg"
dFile = cPath+"IMG_8066_00.jpg"
_screen.AddObject("image1","image")
_screen.image1.stretch = 1
_screen.image1.left=10
_screen.image1.top=10
_screen.image1.width=180
_screen.image1.height=230
_screen.image1.picture = sFile
_screen.image1.visible = .T.
Img = CREATEOBJECT("WIA.ImageFile")
IP = CREATEOBJECT("WIA.ImageProcess")
Img.LoadFile(sFile)
IP.Filters.Add(IP.FilterInfos("RotateFlip").FilterID)
IP.Filters(1).Properties("RotationAngle") = 90
Img = IP.Apply(Img)
IF FILE(dFile)
DELETE FILE (dFile)
ENDIF
Img.SaveFile(dFile)
_screen.image1.picture = dFile
RETURN