4

我创建了一个可消耗的 COM 类库。

类库获取相机的图像。它是图像/位图类型。

我在 VB6 中使用类库,我需要在 VB6 中显示此图像。

如何将此 System.Drawing.Image 转换为 VB6 可以显示的内容?

我可以使用 DIB(使用 CreateDIBSection 等)吗?

如果是,如何将 System.Drawing.Image 转换为 DIB?

谢谢!

4

1 回答 1

6

这是我过去所做的。首先,有几个先决条件:

  • 你从 COM 类库中得到一个 Byte()
  • 您设置了对Microsoft Windows 图像采集库的引用

有了这些,代码就很简单了。 Camera是一个 COM 类库,其中该Retrieve方法返回加载到 Image 控件中的 Byte():

Option Explicit

Private Sub cmdLoad_Click()
   Dim cam As Camera.Image
   Set cam = New Camera.Image
   Image1.Picture = LoadPictureFromByteArray(cam.Retrieve())
End Sub

Private Function LoadPictureFromByteArray(Image() As Byte) As StdPicture
   Dim vec As WIA.Vector
   Set vec = New WIA.Vector
   vec.BinaryData = Image
   Set LoadPictureFromByteArray = vec.ImageFile.FileData.Picture
End Function
于 2020-04-22T17:52:02.543 回答