mmioInstallIOProcA not working???
-
Hi. I'm trying to play an .AVI file from a .dll, but the mmioInstallIOProcA fails. It returns NULL (eg. error) The code is: In module:
Declare Function mmioInstallIOProcA Lib "winmm" _ (ByVal fccIOProc_4 As String, ByVal pIOProc As Integer, ByVal dwFlags As Integer) As Integer Public Function AsAny(ByVal obj As Object) As IntPtr Dim MyGC As GCHandle = GCHandle.Alloc(obj, GCHandleType.Pinned) 'get address of variable in pointer variable AsAny = MyGC.AddrOfPinnedObject() End Function Public Const MMIO_INSTALLPROC = &H10000 'mmioInstallIOProc: install MMIOProc Public Const MMIO_GLOBALPROC = &H10000000 'mmioInstallIOProc: install globally Public Const MEY = &H2059454D 'This is the value of "MEY " run through FOURCCIn form:Public Delegate Function IOProc(ByRef lpMMIOInfo As MMIOINFO, ByVal uMessage As Integer, ByVal lParam1 As Integer, ByVal lParam2 As Integer) As Integer Public Structure MMIOINFO Public dwFlags As Integer Public fccIOProc As Integer Public pIOProc As Integer Public wErrorRet As Integer Public htask As Integer Public cchBuffer As Integer Public pchBuffer As String Public pchNext As String Public pchEndRead As String Public pchEndWrite As String Public lBufOffset As Integer Public lDiskOffset As Integer Public adwInfo0 As Integer Public adwInfo1 As Integer Public adwInfo2 As Integer Public adwInfo3 As Integer Public adwInfo4 As Integer Public dwReserved1 As Integer Public dwReserved2 As Integer Public hmmio As Integer End StructureIn function:hInst = LoadLibrary("C:\test.dll") hRsrc = FindResource(hInst, "#101", "AVI") hGlobal = LoadResource(hInst, hRsrc) lpData = LockResource(hGlobal) fileSize = SizeofResource(hInst, hRsrc) Dim IODlgPro As IOProc IODlgPro = AddressOf myIOProc Dim res As Integer res = mmioInstallIOProcA(MEY, AsAny(IODlgPro).ToInt32, MMIO_INSTALLPROC + MMIO_GLOBALPROC)Error comes here.... returns 0'Play the AVI file res = mciSendString("open AVI.MEY+ type avivideo alias AVI parent " & ParentHandle & " style child", 0&, 0&, 0&) DisplayError(res) res = mciSendString("play AVI", 0&, 0&, 0&)And ideers? -
Hi. I'm trying to play an .AVI file from a .dll, but the mmioInstallIOProcA fails. It returns NULL (eg. error) The code is: In module:
Declare Function mmioInstallIOProcA Lib "winmm" _ (ByVal fccIOProc_4 As String, ByVal pIOProc As Integer, ByVal dwFlags As Integer) As Integer Public Function AsAny(ByVal obj As Object) As IntPtr Dim MyGC As GCHandle = GCHandle.Alloc(obj, GCHandleType.Pinned) 'get address of variable in pointer variable AsAny = MyGC.AddrOfPinnedObject() End Function Public Const MMIO_INSTALLPROC = &H10000 'mmioInstallIOProc: install MMIOProc Public Const MMIO_GLOBALPROC = &H10000000 'mmioInstallIOProc: install globally Public Const MEY = &H2059454D 'This is the value of "MEY " run through FOURCCIn form:Public Delegate Function IOProc(ByRef lpMMIOInfo As MMIOINFO, ByVal uMessage As Integer, ByVal lParam1 As Integer, ByVal lParam2 As Integer) As Integer Public Structure MMIOINFO Public dwFlags As Integer Public fccIOProc As Integer Public pIOProc As Integer Public wErrorRet As Integer Public htask As Integer Public cchBuffer As Integer Public pchBuffer As String Public pchNext As String Public pchEndRead As String Public pchEndWrite As String Public lBufOffset As Integer Public lDiskOffset As Integer Public adwInfo0 As Integer Public adwInfo1 As Integer Public adwInfo2 As Integer Public adwInfo3 As Integer Public adwInfo4 As Integer Public dwReserved1 As Integer Public dwReserved2 As Integer Public hmmio As Integer End StructureIn function:hInst = LoadLibrary("C:\test.dll") hRsrc = FindResource(hInst, "#101", "AVI") hGlobal = LoadResource(hInst, hRsrc) lpData = LockResource(hGlobal) fileSize = SizeofResource(hInst, hRsrc) Dim IODlgPro As IOProc IODlgPro = AddressOf myIOProc Dim res As Integer res = mmioInstallIOProcA(MEY, AsAny(IODlgPro).ToInt32, MMIO_INSTALLPROC + MMIO_GLOBALPROC)Error comes here.... returns 0'Play the AVI file res = mciSendString("open AVI.MEY+ type avivideo alias AVI parent " & ParentHandle & " style child", 0&, 0&, 0&) DisplayError(res) res = mciSendString("play AVI", 0&, 0&, 0&)And ideers?Never mind..... made it work. ;) But thanks anyway.