rmesch/bitmaps2video

A Delphi-class to support encoding of a series of bitmaps and video clips to a video file. It requires the ffmpeg-library and is intended as an easy to use interface to this library.

bitmaps2video's Issues

Unable to compile on Android32 and Android64 platforms

Unable to compile on Android32 and Android64 platforms. I am using this code on Delphi 11.3 Patch 1 (Alexandria). Here's the errors for Android64:
`[DCC Error] UMultiDemo.pas(586): E2250 There is no overloaded version of 'RequestPermissions' that can be called with these arguments

[DCC Error] UMultiDemo.pas(669): E2250 There is no overloaded version of 'Create' that can be called with these arguments

[DCC Error] UMultiDemo.pas(733): E2250 There is no overloaded version of 'Create' that can be called with these arguments

[DCC Error] UMultiDemo.pas(743): E2250 There is no overloaded version of 'Queue' that can be called with these arguments

[DCC Fatal Error] MultiDemo.dpr(6): F2063 Could not compile used unit 'UMultiDemo.pas'`

Hope to add a sample capture video from USB Camera and save to mp4 file

Hope to add a sample capture video from USB Camera and save to mp4 file.

Zip is BAD

Zip is BAD cannot downLoad OR with FDM download is broken
Reinstall ZIP

If I want to use H264_ QSV encode, as if this framework does not support it?

If I want to use H264_ QSV encode, as if this framework does not support it?

How about "TBitmapEncoderM.BitmapToFrameSlow(const bm: TBitmap);"

Thank you.

How about this to avoid slow rendering.

procedure TBitmapEncoderM.BitmapToFrameSlow(const bm: TBitmap);
var
convertCtx: PSwsContext;
w, h: integer;
stride: Integer; // Add new var
ret: integer;
BitData: TBitmapData;
begin
if bm.Map(TMapAccess.Read, BitData) then
begin
w := bm.Width;
h := bm.Height;
stride := BitData.BytesPerLine;

convertCtx := sws_getContext(w, h,
                             AV_PIX_FMT_BGRA, //replace of AV_PIX_FMT_BGR24
                             fWidth, fHeight,
                             CodecSetup.OutputPixelFormat,
                             ScaleFunction[fVideoScaling],
                             nil, nil, nil);
assert(convertCtx <> nil);

try
  ret := av_frame_make_writable(yuvpic);
  assert(ret >= 0);
  ret := sws_scale(convertCtx, @BitData.data, @stride, 0, h, @yuvpic.data, @yuvpic.linesize);
  assert(ret >= 0);
finally
  sws_freeContext(convertCtx);
  bm.Unmap(BitData);
end;

end;
end;