I hardly know what's going on there, code is pretty old, it was my first interop work, I might add support for all installed VFW codecs to my DVX successor so I might have to work with the code again
Public Sub SetCompData(ByVal byteArray As Byte())
If Not byteArray Is Nothing Then
Script.AddLine("video.SetCompData", "VirtualDub.video.SetCompData(" + byteArray.Length.ToString() + ",""" + Convert.ToBase64String(byteArray) + """);")
End If
End Sub
Imports System.Runtime.InteropServices
Public Class VFW
Public Shared Sub ShowEncoderForm(ByVal fccCode As String, ByVal owner As IntPtr)
Dim hic As Integer = GetEncoderHandle(fccCode, ICMODE.QUERY)
ICSendMessage(hic, ICM.CONFIGURE, owner, 0)
ICClose(hic)
End Sub
Public Shared Function GetEncoderHandle(ByVal fccCode As String, ByVal mode As ICMODE) As Integer
Dim fccType, fccHandler As Integer
fccType = mmioStringToFOURCC("vidc", MMIO.TOUPPER)
fccHandler = mmioStringToFOURCC(fccCode, MMIO.TOUPPER)
Return ICOpen(fccType, fccHandler, mode)
End Function
Public Shared Function ShowEncoderForm(ByVal byteArray As Byte(), ByVal fccCode As String, ByVal owner As IntPtr) As Byte()
Dim hic As Integer = GetEncoderHandle(fccCode, ICMODE.QUERY)
Dim size As Integer = ICSendMessage(hic, ICM.GETSTATE, 0, 0)
Dim memoryBlock As IntPtr = Marshal.AllocHGlobal(size)
If byteArray Is Nothing Then
byteArray = New Byte(size - 1) {}
Else
Marshal.Copy(byteArray, 0, memoryBlock, size)
ICSendMessage(hic, ICM.SETSTATE, memoryBlock, size)
End If
ICSendMessage(hic, ICM.CONFIGURE, owner, 0)
ICSendMessage(hic, ICM.GETSTATE, memoryBlock, size)
Marshal.Copy(memoryBlock, byteArray, 0, byteArray.Length)
ICClose(hic)
Marshal.FreeHGlobal(memoryBlock)
Return byteArray
End Function
Public Enum ICMODE
QUERY = 4
End Enum
Public Enum ICM
GETSTATE = 20480
SETSTATE = 20481
CONFIGURE = 20490
End Enum
Public Enum MMIO
TOUPPER = 16
End Enum
<DllImport("msvfw32.dll")> _
Public Shared Function ICClose(ByVal hic As Integer) As Integer
End Function
<DllImport("msvfw32.dll")> _
Private Shared Function ICOpen(ByVal fccType As Integer, ByVal fccHandler As Integer, ByVal wMode As Integer) As Integer
End Function
<DllImport("msvfw32.dll")> _
Private Shared Function ICSendMessage(ByVal hic As Integer, ByVal msg As Integer, ByVal dw1 As Integer, ByVal dw2 As Integer) As Integer
End Function
<DllImport("msvfw32.dll")> _
Private Shared Function ICSendMessage(ByVal hic As Integer, ByVal msg As Integer, ByVal dw1 As IntPtr, ByVal dw2 As Integer) As Integer
End Function
<DllImport("winmm.dll")> _
Private Shared Function mmioStringToFOURCC(ByVal sz As String, ByVal uFlags As Integer) As Integer
End Function
End Class