如何将“ System.Drawing.Image”带入DIB

Question

我已经创建了一个消耗性的COM类库。

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

我使用了VB6中的类库，并且需要在VB6中显示此图像。

如何将这个System.Drawing.Image转换为VB6可以显示的内容？

我可以使用DIB（使用CreateDIBSection等）吗？

如果是，如何将System.Drawing.Image完全转换为DIB？

谢谢！

Answer 1

这是我过去所做的。首先，有两个先决条件：

• 您从COM类库获得Byte（）
• 您设置了对[[Microsoft Windows Image Aquisition库的引用]
有了这些，代码很简单。 Camera是一个COM类库，其中Retrieve方法返回一个Byte（），该Byte（）被加载到Image控件中：]

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