Leadtools.Multimedia Namespace > ConvertCtrl Class : GetSubObject Method |
'Declaration Public Overridable Function GetSubObject( _ ByVal objType As ConvertObject _ ) As Object
'Usage Dim instance As ConvertCtrl Dim objType As ConvertObject Dim value As Object value = instance.GetSubObject(objType)
public virtual object GetSubObject( ConvertObject objType )
public: virtual Object^ GetSubObject( ConvertObject objType )
For more information, refer to the Error Codes.
Imports Leadtools Imports Leadtools.Multimedia Imports LeadtoolsMultimediaExamples.Fixtures Public _result As Boolean = False Public _form As ConvertCtrlForm = New ConvertCtrlForm() Public Sub GetSubObjectExample() ' reference the convert control Dim convertctrl As ConvertCtrl = _form.ConvertCtrl ' input and output files Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi") Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_GetSubObjectExample.avi") Try ' set the input and output files convertctrl.SourceFile = inFile convertctrl.TargetFile = outFile ' set the audio and video compression convertctrl.VideoCompressors.Mpeg2.Selected = True convertctrl.AudioCompressors.AC3.Selected = True ' add the color adjustment processor convertctrl.SelectedVideoProcessors.Add(convertctrl.VideoProcessors.Color) ' access the processor directly Dim lmvc As LMVColor = TryCast(convertctrl.GetSubObject(ConvertObject.SelVideoProcessor), LMVColor) If Not lmvc Is Nothing Then ' change some settings lmvc.Brightness = 85 lmvc.Contrast = 85 lmvc.Enabled = True lmvc.EffectAreaEnabled = False Marshal.ReleaseComObject(lmvc) End If ' start the convert convertctrl.StartConvert() Catch e1 As Exception _result = False End Try ' we'll loop on the state and pump messages for this example. ' but you should not need to if running from a Windows Forms application. Do While convertctrl.State = ConvertState.Running Application.DoEvents() Loop End Sub Public NotInheritable Class LEAD_VARS Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media" End Class
using Leadtools; using Leadtools.Multimedia; using LeadtoolsMultimediaExamples.Fixtures; public bool _result = false; public ConvertCtrlForm _form = new ConvertCtrlForm(); public void GetSubObjectExample() { // reference the convert control ConvertCtrl convertctrl = _form.ConvertCtrl; // input and output files string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi"); string outFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_GetSubObjectExample.avi"); try { // set the input and output files convertctrl.SourceFile = inFile; convertctrl.TargetFile = outFile; // set the audio and video compression convertctrl.VideoCompressors.Mpeg2.Selected = true; convertctrl.AudioCompressors.AC3.Selected = true; // add the color adjustment processor convertctrl.SelectedVideoProcessors.Add(convertctrl.VideoProcessors.Color); // access the processor directly LMVColor lmvc = convertctrl.GetSubObject(ConvertObject.SelVideoProcessor) as LMVColor; if (lmvc != null) { // change some settings lmvc.Brightness = 85; lmvc.Contrast = 85; lmvc.Enabled = true; lmvc.EffectAreaEnabled = false; Marshal.ReleaseComObject(lmvc); } // start the convert convertctrl.StartConvert(); } catch (Exception) { _result = false; } // we'll loop on the state and pump messages for this example. // but you should not need to if running from a Windows Forms application. while (convertctrl.State == ConvertState.Running) Application.DoEvents(); } static class LEAD_VARS { public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media"; }