video codec für avi auslesen

Zitat

AVI Header Format

AVI files contain a 56-byte header, starting at offset 32 within the file.

offset

size

description

0

4

time delay between frames in microseconds

4

4

data rate of AVI data

8

4

padding multiple size, typically 2048

12

4

parameter flags

16

4

number of video frames

20

4

number of preview frames

24

4

number of data streams (1 or 2)

28

4

suggested playback buffer size in bytes

32

4

width of video image in pixels

36

4

height of video image in pixels

40

4

time scale, typically 30

44

4

data rate (frame rate = data rate / time scale)

48

4

starting time, typically 0

52

4

size of AVI data chunk in time scale units

Alles anzeigen

#include <Array.au3>
#include <FileConstants.au3>
#include <WinAPI.au3>

$aHeader = _GetAviHeaderInfo('f:\test.avi')
If @error Then
ConsoleWrite('Error= ' & @error & @CR)
Else
_ArrayDisplay($aHeader)
EndIf

Func _GetAviHeaderInfo($sFilename)
Local $hFile, $tBuffer
Local $aHeader[14][2] = [['time delay between frames in microseconds', ''], _
['data rate of AVI data', ''],['padding multiple size, typically 2048', ''], _
['parameter flags', ''],['number of video frames', ''], _
['number of preview frames', ''],['number of data streams (1 or 2)', ''], _
['suggested playback buffer size in bytes', ''],['width of video image in pixels', ''], _
['height of video image in pixels', ''],['time scale, typically 30', ''], _
['data rate (frame rate = data rate / time scale)', ''], _
['starting time, typically 0', ''],['size of AVI data chunk in time scale units', '']]
If Not FileExists($sFilename) Then Return SetError(1, 0, 0)
$hFile = FileOpen($sFilename, 16)
If $hFile = -1 Then Return SetError(2, 0, 0)
FileSetPos($hFile, 32, $FILE_BEGIN)
For $i = 0 To 13
$tBuffer = FileRead($hFile, 4)
$aHeader[$i][1] = Dec(Hex(_WinAPI_HiWord($tBuffer), 4) & Hex(_WinAPI_LoWord($tBuffer), 4))
Next
FileClose($hFile)
Return $aHeader
EndFunc ;==>_GetAviHeaderInfo