Media Suite for FireMonkey

Delphi and C++ Builder digital media library for FireMonkey.
  • uses Microsoft Media Foundation API
  • supports Windows 32 and Windows 64
  • available for Delphi/C++ Builder XE4 - 11
  • source code included in registered version
  • royalty free distribution in applications

Download and order

FAQ

How can I capture video from camera to file?
// 1. create SinkWriter
var
  SinkWriter: ISinkWriter;
  StreamIndex: UInt32;

const MediaType = VideoCapture.SourceReader.CurrentMediaType[UInt32(riFirstVideo)];

SinkWriter := CreateSinkWriter('video.wmv');
StreamIndex := SinkWriter.AddStream(MediaType);
SinkWriter.BeginWriting;

// 2. write captured images to SinkWriter
var
  BaseTime: Int64;

procedure TFormMain.OnSample(Sender: TObject; TimeStamp: Int64; Sample: ISample);
begin
  if Sample <> nil then
  begin
    if BaseTime = 0 then
      BaseTime := TimeStamp;

    Sample.Time := TimeStamp - BaseTime;
    SinkWriter.WriteSample(StreamIndex, Sample);
  end;

  VideoCapture.ReadSample; // read next sample
end;

// 3. call Finalize to finish writing
SinkWriter.Finalize;
							

Related links