VB6可以将图像另存为JPEG吗？

Question

注意：我不是VB6程序员-我是负责生产中使用的应用程序的Android程序员，并且我的同事负责与我的Android设备对话的VB6程序。

过去，我们的VB6程序将Microsoft .bmps发送到Android设备，但是现在我们将平板电脑添加到我们的产品列表中，并且想要发送更大的图像以利用平板电脑的额外房地产，我们发现.bmp是太大而阻塞了网络。

Eventually we're replacing the old VB6 product with a .Net one, but until we do is there any way for VB6 to programmatically convert a bitmap to a JPEG? My colleague is unaware of one but I've always found S.O. to be very useful in my domains (Android, .Net) so I thought I'd try a VB6 question here.

Answer 1

2002年，Microsoft发布了Windows®图像采集自动化库v2.0工具：用于VB和脚本的图像采集和处理组件。

这可以接受来自文件或字节数组的.BMP甚至是Windows 24位原始像素位图（加上宽度和高度），并将它们转换为JPEG，从而产生文件或字节数组的结果。

该库是Windows现代版本的一部分，但可以安装到WinXP（SP1或更高版本）中。

简单的文件到文件示例：

Dim ImgF As WIA.ImageFile
Dim ImgP As WIA.ImageProcess

Set ImgF = New WIA.ImageFile
ImgF.LoadFile "Zapotec.bmp"
Set ImgP = New WIA.ImageProcess
With ImgP
    .Filters.Add .FilterInfos!Convert.FilterID
    .Filters.Item(1).Properties!FormatID.Value = wiaFormatJPEG
    .Filters.Item(1).Properties!Quality.Value = 70
    Set ImgF = .Apply(ImgF)
End With
ImgF.SaveFile "Zapotec.jpg"