C# Signature:
[DllImport("avifil32.dll")]
static extern int AVIFileOpen(out IntPtr ppfile, string szFile, uint mode, int pclsidHandler);
VB Signature:
Private Declare Function AVIFileOpen Lib "avifil32" Alias "AVIFileOpenA" (ByRef ppfile As Integer, ByVal szFile As String, ByVal mode As Integer, ByVal pclsidHandler As Integer) As Integer
User-Defined Types:
Alternative Managed API:
Do you know one? Please contribute it!
Notes:
None.
Tips & Tricks:
Please add some!
Sample Code:
'View Avinfo for Structure
'if a valid file, return the AVIFILEINFO structure
public Function Avi_Lenght(ByVal sAVIFile as String) as int32
Dim hFile As Long
Dim AFI As AVIFILEINFO
'initialize the AVIFile library
AVIFileInit()
If AVIFileOpen(hFile, sAVIFile, OF_SHARE_DENY_WRITE, 0&) = 0 Then
Dim aviFileInfo_lsize = Marshal.SizeOf(GetType(AVIFILEINFO))
AVIFileInfo(Instance, AFI , aviFileInfo_lsize)
Else
'Your Error handling Here
end If
AVIFileExit()
Return System.Math.Round(AFI .dwLength / ((AFI .dwRate / AFI .dwScale)), 3)
End Function
A full working version is located here http://ess-image.com/Graphic/Video/AviInfo.aspx Reading AVI information In VB .net
This sample as well as other image procssing source code provided by http://Ess-image.com">Ess-image.com
microsoft.public.dotnet.framework.interop has a working example code to call AVIInit, AVIExit, and AVIFileInfo.
