Media Suite
Delphi and C++ Builder digital media library.
- uses Microsoft Media Foundation API
- supports Windows 32 and Windows 64
- available for Delphi/C++ Builder 7 - 11 and Lazarus 2.2.6
- source code included in registered version
- royalty free distribution in applications
Download and order
Order Media Suite $160 USD (license for one developer)
Order Media Suite multi-license $480 USD (license for all developers in company)
Order Media Suite year upgrades $80 USD (registered users only)
Order Media Suite 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;