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
Order Media Suite for FireMonkey $160 USD (license for one developer)
Order Media Suite for FireMonkey multi-license $480 USD (license for all developers in company)
Order Media Suite for FireMonkey year upgrades $80 USD (registered users only)
Order Media Suite for FireMonkey year upgrades multi-license $240 USD (registered multi-license users only)
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;