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

Question

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

过去，我们的 VB6 程序将 Microsoft .bmps 发送到 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"