Code sample - Video capture to DV with and without recompression

Delphi and C# (ActiveX) sample code.

Without recompression 

Select DV file type 

VideoCapture1.DV_Capture_Type2 := rbDVType2.Checked;
VideoCapture1.DV_Capture_Type2 = rbDVType2.Checked;

Use DirectStream_DV format for output 

VideoCapture1.OutputFormat := Format_DirectStream_DV;
VideoCapture1.OutputFormat = VisioForge_Video_Capture_5.TxVFOutputFormat.Format_DirectStream_DV;

Set video capture mode 

VideoCapture1.Mode := Mode_Video_Capture;
VideoCapture1.Mode = VisioForge_Video_Capture_5.TxVFMode.Mode_Video_Capture;

Start capture 

VideoCapture1.Start;
VideoCapture1.Start();

With recompression 

Set DV parameters 

VideoCapture1.DV_Capture_Audio_Channels := strtoint(cbDVChannels.Items[cbDVChannels.ItemIndex]);
VideoCapture1.DV_Capture_Audio_SampleRate := strtoint(cbDVSampleRate.Items[cbDVSampleRate.ItemIndex]);

if rbDVPAL.Checked then
  VideoCapture1.DV_Capture_Video_Format := DVF_PAL
else
  VideoCapture1.DV_Capture_Video_Format := DVF_NTSC;
VideoCapture1.DV_Capture_Audio_Channels = Convert.ToInt32(cbDVChannels.Text);
VideoCapture1.DV_Capture_Audio_SampleRate = Convert.ToInt32(cbDVSampleRate.Text);

if (rbDVPAL.Checked)
  VideoCapture1.DV_Capture_Video_Format = VisioForge_Video_Capture_5.TxVFDVVideoFormat.DVF_PAL;
else
  VideoCapture1.DV_Capture_Video_Format = VisioForge_Video_Capture_5.TxVFDVVideoFormat.DVF_NTSC;

Select DV file type 

VideoCapture1.DV_Capture_Type2 := rbDVType2.Checked;
VideoCapture1.DV_Capture_Type2 = rbDVType2.Checked;

Use DV format for output 

VideoCapture1.OutputFormat := Format_DV;
VideoCapture1.Mode := Mode_Video_Capture;
VideoCapture1.OutputFormat = VisioForge_Video_Capture_5.TxVFOutputFormat.Format_DV;
VideoCapture1.Mode = VisioForge_Video_Capture_5.TxVFMode.Mode_Video_Capture;

Start capture 

VideoCapture1.Start;
VideoCapture1.Start();

VisioForge © 2006-2019

  • GitHub-Mark-64px
  • Twitter Социальные Иконка
  • VisioForge Facebook page
  • YouTube channel