FFMpeg в Delphi

[Drouge]

Я пишу программу для математической обработки видео. Скачал библиотеку ffmpeg и враппер для Delphi с этого сайта. Запустил пример отсюда. Видео отображается, но теперь мне надо перевести каждый кадр в tbitmap. Я вставил в строку 132 такой код:

        avcodec_decode_video2(codec_context, frame, frame_finished, @packet);
        if (frame_finished <> 0) then
        begin
          bitmap.SetSize(frame.width,frame.height);
          for q:=0 to bitmap.Height-1 do for w:=0 to bitmap.Width-1 do
          begin
            r:=frame.data[0][q*bitmap.Width+w];
            g:=0;
            b:=0;
            bitmap.fRows[q,w]:=rgb(r,g,b);
          end;
          image1.Canvas.Draw(0,0,bitmap);

bitmap.frows это мой доступ к сканлайнам битмапа. Код в таком варианте запускается, и отображается синяя монохромная картинка. Но я не могу понять как получить цветную картинку. Кажется проблема в том, что ffmpeg работает не с rgb а с yuv форматом. Правильно ли я понимаю, что для получения g и b нужно предварительно обработать картинку через sws_scale, предварительно задав что-то в sws_setColorspaceDetails?

[NetSpace]

вот в этой строке

bitmap.fRows[q,w]:=rgb(r,g,b);

параметры цвета RGB: почему у вас только первый r:=frame.data[0][q*bitmap.Width+w]; чему-то равен. а остальные g и b вы просто сделали по нулям?

[Viktor61]

Можно, например, провести Побайтовое сравнение файлов. как в программе из форума https://www.cyberforum.ru/delphi-beg...ead514128.html
м.б. это Вы имели ввиду?

[Viktor61]

ошибся, не в эту ветку сообщение. Извините...

[Drouge]

Сообщение от NetSpace

вот в этой строке

bitmap.fRows[q,w]:=rgb(r,g,b);

параметры цвета RGB: почему у вас только первый r:=frame.data[0][q*bitmap.Width+w]; чему-то равен. а остальные g и b вы просто сделали по нулям?

Потому что я не знаю откуда взять компоненты g и b.
Я вроде немного разобрался - взял код отсюда и поправил его для моих нужд:

https://github.com/Laex/Delphi-FFMPE.../dumpframe.dpr

Почему-то в моём коде иногда срабатывает ошибка.

[NetSpace]

а откуда тогда взяли строку

r:=frame.data[0][q*bitmap.Width+w];

???
с какого-то примера?
ну, попробуйте тогда и для остальных такое же написать

[Svema]

Привет всем,
а где либы взять под эту версию? без них невозможно запустить