Leadtools.Multimedia Namespace > Compressors Class : Current Property |
public object Current {get;}
'Declaration Public ReadOnly Property Current As Object
'Usage Dim instance As Compressors Dim value As Object value = instance.Current
public object Current {get;}
get_Current();
Public _result As Boolean = False Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public Sub CurrentExample() ' reference the capture control Dim capturectrl As CaptureCtrl = _form.CaptureCtrl ' set a video device first, you should use your video device name here If capturectrl.VideoDevices("Analog") Is Nothing Then Throw New Exception("No Analog video tuner device available") End If capturectrl.VideoDevices("Analog").Selected = True ' reference the video compressors Dim compressors As Compressors = capturectrl.VideoCompressors Try ' enumerate through the list of compressors ' demonstrating the current property For Each cmp As Compressor In compressors ' set the result to what we expect _result = (cmp Is compressors.Current) Next cmp Catch e1 As Exception _result = False End Try End Sub
public bool _result = false; public CaptureCtrlForm _form = new CaptureCtrlForm(); public void CurrentExample() { // reference the capture control CaptureCtrl capturectrl = _form.CaptureCtrl; // set a video device first. use your video device's name here if (capturectrl.VideoDevices["Analog"] == null) throw new Exception("No Analog video tuner device available"); capturectrl.VideoDevices["Analog"].Selected = true; // reference the video compressors Compressors compressors = capturectrl.VideoCompressors; try { // enumerate through the list of compressors // demonstrating the current property foreach (Compressor cmp in compressors) { // set the result to what we expect _result = (cmp == compressors.Current); } } catch (Exception) { _result = false; } }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2