WMProfile Property

Summary

Gets or sets the WMProfile object associated with this capture object.

Syntax
C#
VB
C++
public virtual WMProfile WMProfile { get; set; } 
Public Overridable Property WMProfile As WMProfile 
public: 
virtual property WMProfile^ WMProfile { 
   WMProfile^ get(); 
   void set (    WMProfile^ ); 
} 

Property Value

A WMProfile object.

Remarks

This property allows the user to define a custom profile for writing WMV files.

Example
C#
VB
using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public bool _result = false; 
public CaptureCtrlForm _form = new CaptureCtrlForm(); 
 
public void WMProfileExample() 
{ 
   // reference the capture control 
   CaptureCtrl capturectrl = _form.CaptureCtrl; 
   string inFile = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_Source.avi"); 
 
   try 
   { 
      // reference the profile if available 
      WMProfile CurrentProfile = capturectrl.WMProfile; 
 
      if (CurrentProfile != null) 
         MessageBox.Show(_form, CurrentProfile.Name + " is the currently selected profile.", "Settings"); 
      else 
         MessageBox.Show(_form, "There are currently no profiles associated with this capture object", "Settings"); 
   } 
   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 (capturectrl.State == CaptureState.Running) 
      Application.DoEvents(); 
} 
 
static class LEAD_VARS 
{ 
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 20\Media"; 
} 
Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As CaptureCtrlForm = New CaptureCtrlForm() 
 
Public Sub WMProfileExample() 
   ' reference the capture control 
   Dim capturectrl As CaptureCtrl = _form.CaptureCtrl 
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_Source.avi") 
 
   Try 
      ' reference the profile if available 
      Dim CurrentProfile As WMProfile = capturectrl.WMProfile 
 
      If Not CurrentProfile Is Nothing Then 
         MessageBox.Show(_form, CurrentProfile.Name & " is the currently selected profile.", "Settings") 
      Else 
         MessageBox.Show(_form, "There are currently no profiles associated with this capture object", "Settings") 
      End If 
   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 capturectrl.State = CaptureState.Running 
      Application.DoEvents() 
   Loop 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 20\Media" 
End Class 
Requirements

Target Platforms

Help Version 20.0.2019.11.25
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2019 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Multimedia Assembly