RIFF AVI RLE отличается от GDI RLE
У меня есть базовый RIFF AVI, созданный в начале 1990-х, и я стараюсь сделать базовый видеоплеер с собственным кодом VB/C#. Согласно заголовку, он использует старый кодек MS RLE. Заголовок растрового изображения в AVI указывает, что он сжат в RLE8.
- является результатом необработанных сжатых данных 'xxdc', записанных в растровое изображение, прагматически созданное с нуля и открытое в средстве просмотра фотографий Windows
- тот же кадр, извлеченный с использованием VirtualDub
- код ниже распаковывает растровое изображение RLE8
Проблема заключается в том, что приведенный ниже код и Windows делают то же самое, части отсутствуют, что приводит меня к следующему из старого сообщения в блоге VirtualDub;
(RLE GDI не совпадает с RLE AVI)".
Проблема в том, что я не могу найти разницу:(. Я не могу найти никаких источников в Интернете или каких-либо материалов на MSDN.
Я перенес образец декомпрессии RLE8 из htttp://dirkbertels.net/computing/bitmap_decompression.php в VB (растровые структуры опущены для краткости). Это работает удовольствие. Проблема в том, что он не работает правильно для кадров AVI, которые используют RLE8.
Dim firstByte As Byte
Dim secondByte As Byte
Dim currX As UInteger = 0
Dim currY As UInteger = 0
Dim i As UInteger
Do
firstByte = br.ReadByte
If 0 <> firstByte Then
' Encoded Mode
secondByte = br.ReadByte
For i = 0 To firstByte - 1
frame.SetPixel(currX, currY, _bitmap.biClut(secondByte))
currX += 1
Next i
Else
' Absolute Mode
firstByte = br.ReadByte ' store next byte
Select Case firstByte
Case 0 ' new line
currX = 0
currY += 1 ' move cursor to beginning of next line
Case 1 ' end of bitmap
Exit Do
Case 2 ' delta = goto X and Y
currX += CInt(br.ReadByte) ' read byte and add value to x value
currY += CInt(br.ReadByte) ' read byte and add value to y value
Case Else
For i = 0 To firstByte - 1
secondByte = br.ReadByte
frame.SetPixel(currX, currY, _bitmap.biClut(secondByte))
currX += 1
Next i
'If 0 <> (firstByte And &H1) Then
' br.ReadByte()
'End If
If firstByte And &H1 Then ' if the run doesn't end on a word boundary,
br.ReadByte()
End If
End Select
End If
Loop
Я сейчас в замешательстве, как VirtualDub, FFMPEG и другие делают это без использования старого кодека MSRLE.DLL... У кого-нибудь есть какие-нибудь идеи?
1 ответ
Я нашел решение, поэтому я отвечу здесь, чтобы другие, такие как я, имели отправную точку.
Данные кадра были распакованы правильно. Проблема была в том, что я не следовал спецификациям RIFF AVI правильно. Для моего видео каждый кадр распаковывается по сравнению с предыдущим.