image - VB6可以将图像保存为JPEG吗？

Question

注意:我不是 VB6 程序员 - 我是一名 Android 程序员，负责制造中使用的应用程序，我有一位同事负责与我的 Android 设备对话的 VB6 程序。

过去，我们的 VB6 程序将 Microsoft .bmp 发送到 Android 设备，但现在我们将平板电脑添加到我们的产品列表中，并且希望发送更大的图像以利用平板电脑的额外空间，我们发现.bmp 太大，会堵塞网络。

最终，我们将用 .Net 产品替换旧的 VB6 产品，但在此之前，VB6 有没有办法以编程方式将位图转换为 JPEG？我的同事不知道，但我总能找到 S.O.在我的领域(Android、.Net)中非常有用，所以我想我应该在这里尝试一个 VB6 问题。

Answer 1

2002年，微软发布了Windows® Image Acquisition Automation Library v2.0 Tool: Image acquisition and manipulation component for VB and scripting .

它可以接受文件或字节数组中的 .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"