2

注: 私は VB6 プログラマーではありません。私は製造で使用されるアプリを担当する Android プログラマーであり、私の Android デバイスと通信する VB6 プログラムを担当する同僚がいます。

以前は、VB6 プログラムが Microsoft .bmp を Android デバイスに送信していましたが、現在、製品リストにタブレットを追加しており、タブレットの余分なスペースを利用するために、より大きな画像を送信したいと考えています。大きすぎてネットワークを詰まらせます。

最終的に古い VB6 製品を .Net 製品に置き換えますが、そうするまで、VB6 がプログラムでビットマップを JPEG に変換する方法はありますか? 私の同僚は気づいていませんが、SO は自分のドメイン (Android、.Net) で非常に役立つことがわかっているので、ここで VB6 の質問をしてみようと思いました。

4

4 に答える 4

5

2002 年、Microsoft はWindows® Image Acquisition Automation Library 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"
于 2012-07-04T06:00:01.967 に答える
0

上記の MarkJ のリンクは一見の価値がありますが、考慮すべき他の 3 つのアイデアを次に示します。

FreeImage はオープンソース ライブラリです。VB6 で使用できる DLL を含むダウンロードがあります。

VB Helper リンクは、VB.NET DLL を介して VB6 から .NET を利用する記事へのリンクです。

最後に、MVPS リンクは、GDI+ を使用して画像を JPG に保存するための VB6 コードです。

于 2012-07-03T20:05:58.143 に答える