那樣的東西，通常要打印，分辨率不同，相同寛高的圖打出來是不同大小的。也就是説，不能僅統一圖的寛高像素點數，那在顯示器上的一樣尺寸，但在打印設備上就不一樣了。我想，樓主就是煩惱這一點。

在XP中，顯示的分辨率是72DPI，但在Windows 7/8/10以上，是96DPI，同樣的圖，顯示出來的尺寸是不一樣的。同樣，在不同DPI設置的打印機上，同一張圖也可以有不同的大小。這些不是看圖的寛高値，而是兩者結合。

*!*    调整图像分辨率和调整图像质量的两个函数：

Clear
inFile = Getfile("JPG")  && 源图像文件名，可以直接指定文件名，比如：inFile = "C:\Temp\MyImageJPG"
outFile = "Temp.Jpg"  && 目标图像文件名，可以指定盘符和路径名
tnW = 225  && 目标图像宽
tnH = 400  && 目标图像高
=Resolution(inFile, outFile, tnW, tnH)  && 四个参数，不可缺。


*!*    1. 调整图像分辨率
Function Resolution(inFile As Character, outFile As Character, tnW As Integer, tnH As Integer)
    Local Img  && As ImageFile
    Local IP  && As ImageProcess

    Img = Createobject("WIA.ImageFile")
    IP = Createobject("WIA.ImageProcess")

    Img.LoadFile(inFile)

    *!*    大小/调整分辨率：
    IP.Filters.Add(IP.FilterInfos("Scale").FilterID)
    IP.Filters(1).Properties("MaximumWidth") = tnW
    IP.Filters(1).Properties("MaximumHeight") = tnH

    Img = IP.Apply(Img)
    Delete File &outFile
    Img.SaveFile(outFile)

    *!*    比较压缩调整前后的文件大小
    =Adir(gaJPG, inFile)
    ? "调整前的文件大小 : " + Transform(gaJPG(2)/1024) + "KB"
    =Adir(gaJPG, outFile)
    ? "调整后的文件大小 : " + Transform(gaJPG(2)/1024) + "KB"
    ? "完成."
Endfunc

Clear
inFile = Getfile("JPG")  && 源图像文件名，可以直接指定文件名，比如：inFile = "C:\Temp\MyImageJPG"
outFile = "Temp.Jpg"  && 目标图像文件名，可以指定盘符和路径名
lnRatio = 75  && 压缩率，范围：1-100
=Quality(inFile, outFile, lnRatio)  && 三个参数，不可缺。


*!*    2. 调整图像质量
Function Quality(inFile As Character, outFile As Character, lnRatio As Integer)
    Local Img  && As ImageFile
    Local IP  && As ImageProcess

    Img = Createobject("WIA.ImageFile")
    IP = Createobject("WIA.ImageProcess")

    Img.LoadFile(inFile)

    *!*    压缩/调整质量：
    IP.Filters.Add(IP.FilterInfos("Convert").FilterID)
    IP.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"  && JPG 文件格式
    IP.Filters(1).Properties("Quality").Value = lnRatio

    Img = IP.Apply(Img)
    Delete File &outFile
    Img.SaveFile(outFile)

    *!*    比较调整前后的文件大小
    =Adir(gaJPG, inFile)
    ? "调整前的文件大小 : " + Transform(gaJPG(2)/1024) + "KB"
    =Adir(gaJPG, outFile)
    ? "调整后的文件大小 : " + Transform(gaJPG(2)/1024) + "KB"
    ? "完成."
Endfunc

現在的問題的原圖分辨率差異巨大，從72DPI到300DPI都有，在維持寛高不變的情況下，從高分向低分壓縮沒問題，反過來就會模糊了。樓主的需求必須明確才好，編程不是問題。在顯示器上，72或96DPI就可以，但若是打印，應該在180DPI以上，印刷的標準是300DPI，誰知道他處理這些圖要派在什麽用塲。

[此贴子已经被作者于2016-1-1 16:23编辑过]

放假三天没上网，真是不好意思。T版主，是这样的，这些图片是要网上报数据用的，但是报数据的平台上传图片文件的要求就是大小不能超过10K，像素150*210。目前是用图像软件处理，但是我想用VFP编程来批处理，不知道有没有办法。

可以的，其實前面13、14樓那樣的也可以。

哦，我再试试13，14楼的
运行报错.

[此贴子已经被作者于2016-1-4 15:13编辑过]

系统没有安装WIA
自己下载安装：http://download.
参考里面的 readme.txt 使用和注册

Windows内核GDI+本來就包含足够的圖像處理元素，不必使用別的東西。之前的帖子提到了_GDIPlus.VCX，可以打開它看看。