
授人以渔,不授人以鱼。
程序代码:
SET PATH TO HOME() + "\FFC"
lcName = "Z:\test\VFP\China 06.JPG"
lcMessage = ""
loImage = NEWOBJECT("gpImage", "_GDIPlus.vcx")
WITH loImage
.CreateFromFile(lcName)
lcMessage = "水平分辨率: " + TRANSFORM(.HorizontalResolution) + CHR(13)+CHR(10) + ;
"垂直分辨率: " + TRANSFORM(.VerticalResolution) + CHR(13)+CHR(10) + ;
"水平像素: " + TRANSFORM(.ImageWidth) + CHR(13)+CHR(10) + ;
"垂直像素: " + TRANSFORM(.ImageHeight) + CHR(13)+CHR(10)
ENDWITH
MESSAGEBOX(lcMessage)
RELEASE loImage

