LEADTOOLS Multimedia (Leadtools.Multimedia assembly)

CurrentTime Property

Show in webframe
Example 



Gets the current playback time.
Syntax
'Declaration
 
Public ReadOnly Property CurrentTime As Integer
'Usage
 
Dim instance As DVDControl
Dim value As Integer
 
value = instance.CurrentTime
public int CurrentTime {get;}
public:
property int CurrentTime {
   int get();
}

Property Value

The current playback time. A value of -1 indicates that the movie is non-linear, meaning that it does not have seekable timecodes.
Remarks
This value is a DVD_HMSF_TIMECODE structure.

Other "current" information can be found in the following properties: CurrentTitle, CurrentChapter, CurrentDiscSide, CurrentVolume, CurrentButton, CurrentAngle, CurrentUOPS, CurrentAudioStream, CurrentSubpictureStream, and CurrentDomain.

For more detailed information, refer to the Microsoft documentation for IDvdInfo2.GetCurrentLocation.

Example
Copy Code  
Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

Public _result As Boolean = False
Public _form As PlayCtrlForm = New PlayCtrlForm()
Public _playctrl As PlayCtrl
Public Sub IsAudioStreamEnabledExample()
   ' reference the play control
   _playctrl = _form.PlayCtrl

   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "VIDEO_TS\VIDEO_TS.IFO")

   Try
      ' set auto start off
      _playctrl.AutoStart = False

      ' use DVDSource
      _playctrl.UseDVDSource = True

      ' set the input file
      _playctrl.SourceFile = inFile

      ' check the DVD options
      DvdInfoCheck()

      ' play it
      _playctrl.Run()
   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 _playctrl.State = PlayState.Running
      Application.DoEvents()
   Loop
End Sub

' check DVD properties and info
Private Sub DvdInfoCheck()
   Dim bstrVal As String
   Dim val As Integer
   Dim button As Integer = _playctrl.DvdController.CurrentButton

   val = _playctrl.DvdController.GetButtonWidth(button)
   val = _playctrl.DvdController.GetButtonHeight(button)
   val = _playctrl.DvdController.GetButtonLeft(button)
   val = _playctrl.DvdController.GetButtonTop(button)

   val = _playctrl.DvdController.DefaultMenuLanguage
   _playctrl.DvdController.DefaultMenuLanguage = 1033
   val = _playctrl.DvdController.GetNumberOfChapters(0)
   val = _playctrl.DvdController.TotalTitleTime

   Dim tcFlags As DVDTimecodeFlags = _playctrl.DvdController.TitleTimecodeFlags

   val = _playctrl.DvdController.CurrentAngle
   If _playctrl.DvdController.AnglesAvailable > 1 Then
      _playctrl.DvdController.CurrentAngle = 2
   End If

   Dim userOp As DVDValidUserOp = _playctrl.DvdController.CurrentUOPS
   Dim audioLang As Long = _playctrl.DvdController.GetAudioLanguage(0)

   val = _playctrl.DvdController.CurrentAudioStream
   If _playctrl.DvdController.AudioStreamsAvailable > 1 Then
      _playctrl.DvdController.CurrentAudioStream = 2
   End If

   val = _playctrl.DvdController.CurrentTime
   val = _playctrl.DvdController.CurrentVolume
   val = _playctrl.DvdController.VolumesAvailable
   val = _playctrl.DvdController.TitlesAvailable
   Dim enabled As Boolean = _playctrl.DvdController.IsAudioStreamEnabled(0)
   val = _playctrl.DvdController.DefaultAudioLanguage

   _playctrl.DvdController.SelectDefaultAudioLanguage(1033, DVDAudioLangExt.Captions)

   Dim directory As String = _playctrl.DvdController.DVDDirectory
   val = _playctrl.DvdController.CurrentSubpictureStream
   val = _playctrl.DvdController.SubpictureStreamsAvailable
   If (val > 1) Then
      _playctrl.DvdController.CurrentSubpictureStream = 1
   End If
   val = _playctrl.DvdController.DefaultSubpictureLanguage
   _playctrl.DvdController.SelectDefaultSubpictureLanguage(1033, DVDSubpictureLangExt.Caption_Normal)

   val = _playctrl.DvdController.CurrentTitle

   Dim subPicLangExt As DVDSubpictureLangExt = _playctrl.DvdController.DefaultSubpictureLanguageExt

   Dim audioLangExt As DVDAudioLangExt = _playctrl.DvdController.DefaultAudioLanguageExt
   Dim subpicLang As Long = _playctrl.DvdController.GetSubpictureLanguage(0)
   Dim subPicStream As Boolean = _playctrl.DvdController.IsSubpictureStreamEnabled(0)

   val = _playctrl.DvdController.GetDVDTextLanguageLCID(0)
   val = _playctrl.DvdController.DVDTextNumberOfLanguages
   val = _playctrl.DvdController.GetGPRM(0)
   _playctrl.DvdController.SetGPRM(0, 1)

   val = _playctrl.DvdController.GetDVDTextNumberOfStrings(0)
   val = _playctrl.DvdController.ButtonsAvailable
   val = _playctrl.DvdController.PlayerParentalLevel
   val = _playctrl.DvdController.PlayerParentalCountry
   Dim ppCountry As String = String.Format("{0}{1}", CChar(ChrW(val And &HFF)), CChar(ChrW(val >> 8)))

   If ppCountry <> "US" Then
      val = CInt(AscW("U"c))
      val += (CInt(AscW("S"c)) << 8)
      _playctrl.DvdController.SelectParentalCountry(val, "user", "pwd")
   End If
   val = _playctrl.DvdController.GetTitleParentalLevels(-1)
   _playctrl.DvdController.SelectParentalLevel(9, "user", "pwd")

   Dim domain As DVDDomain = _playctrl.DvdController.CurrentDomain
   Dim diskSide As DVDDiscSide = _playctrl.DvdController.CurrentDiscSide

   val = _playctrl.DvdController.CurrentChapter
   Dim textStrType As DVDTextStringType = _playctrl.DvdController.GetDVDTextStringType(0, 0)
   If (Not _playctrl.DvdController.SubpictureOn) Then
      _playctrl.DvdController.SubpictureOn = True
   End If

   val = _playctrl.DvdController.GetSPRM(0)
   bstrVal = _playctrl.DvdController.GetDVDTextString(0, 0)
   bstrVal = _playctrl.DvdController.DVDUniqueID
End Sub

' menu event helpers for DVD navigation and control
Private Sub mnAcceptParentalLevelChange_Click()
   _playctrl.DvdController.AcceptParentalLevelChange(True)
End Sub

Private Sub mnActivateAtPosition_Click()
   _playctrl.DvdController.ActivateAtPosition(10, 10)
End Sub

Private Sub mnActivateButton_Click()
   _playctrl.DvdController.ActivateButton()
End Sub

Private Sub mnChangeDVDRegion_Click()
   _playctrl.DvdController.ChangeDVDRegion(_form)
End Sub

Private Sub mnNotifyParentalLevelChange_Click()
   _playctrl.DvdController.NotifyParentalLevelChange(True)
End Sub

Private Sub mnPause_Click()
   _playctrl.DvdController.Pause(True)
End Sub

Private Sub mnPlayAtInTitle_Click()
   _playctrl.DvdController.PlayAtTimeInTitle(1, 10000000)
End Sub

Private Sub mnPlayAtTime_Click()
   _playctrl.DvdController.PlayAtTime(10000000)
End Sub

Private Sub mnPlaybackword_Click()
   _playctrl.DvdController.PlayBackwards(5)
End Sub

Private Sub mnPlayChapter_Click()
   _playctrl.DvdController.PlayChapter(1)
End Sub

Private Sub mnPlaychapterautostop_Click()
   _playctrl.DvdController.PlayChaptersAutoStop(1, 2, 5)
End Sub

Private Sub mnPlaychapterintitle_Click()
   _playctrl.DvdController.PlayChapterInTitle(1, 3)
End Sub

Private Sub mnPlayfowrward_Click()
   _playctrl.DvdController.PlayForwards(5)
End Sub

Private Sub mnPlayNextChapter_Click()
   _playctrl.DvdController.PlayNextChapter()
End Sub

Private Sub mnPlayperiod_Click()
   _playctrl.DvdController.PlayPeriodInTitleAutoStop(1, 30, 120)
End Sub

Private Sub mnPlayPrevChapter_Click()
   _playctrl.DvdController.PlayPrevChapter()
End Sub

Private Sub mnPlaytitle_Click()
   _playctrl.DvdController.PlayTitle(1)
End Sub

Private Sub mnReplayChapter_Click()
   _playctrl.DvdController.ReplayChapter()
End Sub

Private Sub mnResume_Click()
   _playctrl.DvdController.Resume()
End Sub

Private Sub mnReturnfromsubmenu_Click()
   _playctrl.DvdController.ReturnFromSubmenu()
End Sub

Private Sub mnSelectAndActivateButton_Click()
   _playctrl.DvdController.SelectAndActivateButton(1)
End Sub

Private Sub mnSelectAtPosition_Click()
   _playctrl.DvdController.SelectAtPosition(10, 10)
End Sub

Private Sub mnSelectButton_Click()
   _playctrl.DvdController.SelectButton(1)
End Sub

Private Sub mnSelectRelativeButton_Click()
   _playctrl.DvdController.SelectRelativeButton(DVDRelativeButton.Right)
End Sub

Private Sub mnSetDVDDirectory_Click()
   _playctrl.DvdController.DVDDirectory = "e:\video_ts"
End Sub

Private Sub mnShowMenu_Click()
   _playctrl.DvdController.ShowMenu(DVDMenuId.Root)
End Sub

Private Sub mnStillOff_Click()
   _playctrl.DvdController.StillOff()
End Sub

Private Sub mnStop_Click()
   _playctrl.DvdController.Stop()
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 PlayCtrlForm _form = new PlayCtrlForm();
public PlayCtrl _playctrl;
public void IsAudioStreamEnabledExample()
{
   // reference the play control
   _playctrl = _form.PlayCtrl;

   string inFile =Path.Combine(LEAD_VARS.MediaDir,@"VIDEO_TS\VIDEO_TS.IFO");

   try
   {
      // set auto start off
      _playctrl.AutoStart = false;

      // use DVDSource
      _playctrl.UseDVDSource = true;

      // set the input file
      _playctrl.SourceFile = inFile;

      // check the DVD options
      DvdInfoCheck();

      // play it
      _playctrl.Run();
   }
   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 (_playctrl.State == PlayState.Running)
      Application.DoEvents();
}

// check DVD properties and info
private void DvdInfoCheck()
{
   string bstrVal;
   int val;
   int button = _playctrl.DvdController.CurrentButton;

   val = _playctrl.DvdController.GetButtonWidth(button);
   val = _playctrl.DvdController.GetButtonHeight(button);
   val = _playctrl.DvdController.GetButtonLeft(button);
   val = _playctrl.DvdController.GetButtonTop(button);

   val = _playctrl.DvdController.DefaultMenuLanguage;
   _playctrl.DvdController.DefaultMenuLanguage = 1033;
   val = _playctrl.DvdController.GetNumberOfChapters(0);
   val = _playctrl.DvdController.TotalTitleTime;

   DVDTimecodeFlags tcFlags = _playctrl.DvdController.TitleTimecodeFlags;

   val = _playctrl.DvdController.CurrentAngle;
   if (_playctrl.DvdController.AnglesAvailable > 1)
      _playctrl.DvdController.CurrentAngle = 2;

   DVDValidUserOp userOp = _playctrl.DvdController.CurrentUOPS;
   long audioLang = _playctrl.DvdController.GetAudioLanguage(0);

   val = _playctrl.DvdController.CurrentAudioStream;
   if (_playctrl.DvdController.AudioStreamsAvailable > 1)
      _playctrl.DvdController.CurrentAudioStream = 2;

   val = _playctrl.DvdController.CurrentTime;
   val = _playctrl.DvdController.CurrentVolume;
   val = _playctrl.DvdController.VolumesAvailable;
   val = _playctrl.DvdController.TitlesAvailable;
   bool enabled = _playctrl.DvdController.IsAudioStreamEnabled(0);
   val = _playctrl.DvdController.DefaultAudioLanguage;

   _playctrl.DvdController.SelectDefaultAudioLanguage(1033, DVDAudioLangExt.Captions);

   string directory = _playctrl.DvdController.DVDDirectory;
   val = _playctrl.DvdController.CurrentSubpictureStream;
   val = _playctrl.DvdController.SubpictureStreamsAvailable;
   if ((val > 1))
   {
      _playctrl.DvdController.CurrentSubpictureStream = 1;
   }
   val = _playctrl.DvdController.DefaultSubpictureLanguage;
   _playctrl.DvdController.SelectDefaultSubpictureLanguage(1033, DVDSubpictureLangExt.Caption_Normal);

   val = _playctrl.DvdController.CurrentTitle;

   DVDSubpictureLangExt subPicLangExt = _playctrl.DvdController.DefaultSubpictureLanguageExt;

   DVDAudioLangExt audioLangExt = _playctrl.DvdController.DefaultAudioLanguageExt;
   long subpicLang = _playctrl.DvdController.GetSubpictureLanguage(0);
   bool subPicStream = _playctrl.DvdController.IsSubpictureStreamEnabled(0);

   val = _playctrl.DvdController.GetDVDTextLanguageLCID(0);
   val = _playctrl.DvdController.DVDTextNumberOfLanguages;
   val = _playctrl.DvdController.GetGPRM(0);
   _playctrl.DvdController.SetGPRM(0, 1);

   val = _playctrl.DvdController.GetDVDTextNumberOfStrings(0);
   val = _playctrl.DvdController.ButtonsAvailable;
   val = _playctrl.DvdController.PlayerParentalLevel;
   val = _playctrl.DvdController.PlayerParentalCountry;
   string ppCountry = string.Format("{0}{1}", (char)(val & 0xFF), (char)(val >> 8));

   if (ppCountry != "US")
   {
      val = (int)'U';
      val += ((int)'S' << 8);
      _playctrl.DvdController.SelectParentalCountry(val, "user", "pwd");
   }
   val = _playctrl.DvdController.GetTitleParentalLevels(-1);
   _playctrl.DvdController.SelectParentalLevel(9, "user", "pwd");

   DVDDomain domain = _playctrl.DvdController.CurrentDomain;
   DVDDiscSide diskSide = _playctrl.DvdController.CurrentDiscSide;

   val = _playctrl.DvdController.CurrentChapter;
   DVDTextStringType textStrType = _playctrl.DvdController.GetDVDTextStringType(0, 0);
   if (!_playctrl.DvdController.SubpictureOn)
      _playctrl.DvdController.SubpictureOn = true;

   val = _playctrl.DvdController.GetSPRM(0);
   bstrVal = _playctrl.DvdController.GetDVDTextString(0, 0);
   bstrVal = _playctrl.DvdController.DVDUniqueID;
}

// menu event helpers for DVD navigation and control
private void mnAcceptParentalLevelChange_Click()
{
   _playctrl.DvdController.AcceptParentalLevelChange(true);
}

private void mnActivateAtPosition_Click()
{
   _playctrl.DvdController.ActivateAtPosition(10, 10);
}

private void mnActivateButton_Click()
{
   _playctrl.DvdController.ActivateButton();
}

private void mnChangeDVDRegion_Click()
{
   _playctrl.DvdController.ChangeDVDRegion(_form);
}

private void mnNotifyParentalLevelChange_Click()
{
   _playctrl.DvdController.NotifyParentalLevelChange(true);
}

private void mnPause_Click()
{
   _playctrl.DvdController.Pause(true);
}

private void mnPlayAtInTitle_Click()
{
   _playctrl.DvdController.PlayAtTimeInTitle(1, 10000000);
}

private void mnPlayAtTime_Click()
{
   _playctrl.DvdController.PlayAtTime(10000000);
}

private void mnPlaybackword_Click()
{
   _playctrl.DvdController.PlayBackwards(5);
}

private void mnPlayChapter_Click()
{
   _playctrl.DvdController.PlayChapter(1);
}

private void mnPlaychapterautostop_Click()
{
   _playctrl.DvdController.PlayChaptersAutoStop(1, 2, 5);
}

private void mnPlaychapterintitle_Click()
{
   _playctrl.DvdController.PlayChapterInTitle(1, 3);
}

private void mnPlayfowrward_Click()
{
   _playctrl.DvdController.PlayForwards(5);
}

private void mnPlayNextChapter_Click()
{
   _playctrl.DvdController.PlayNextChapter();
}

private void mnPlayperiod_Click()
{
   _playctrl.DvdController.PlayPeriodInTitleAutoStop(1, 30, 120);
}

private void mnPlayPrevChapter_Click()
{
   _playctrl.DvdController.PlayPrevChapter();
}

private void mnPlaytitle_Click()
{
   _playctrl.DvdController.PlayTitle(1);
}

private void mnReplayChapter_Click()
{
   _playctrl.DvdController.ReplayChapter();
}

private void mnResume_Click()
{
   _playctrl.DvdController.Resume();
}

private void mnReturnfromsubmenu_Click()
{
   _playctrl.DvdController.ReturnFromSubmenu();
}

private void mnSelectAndActivateButton_Click()
{
   _playctrl.DvdController.SelectAndActivateButton(1);
}

private void mnSelectAtPosition_Click()
{
   _playctrl.DvdController.SelectAtPosition(10, 10);
}

private void mnSelectButton_Click()
{
   _playctrl.DvdController.SelectButton(1);
}

private void mnSelectRelativeButton_Click()
{
   _playctrl.DvdController.SelectRelativeButton(DVDRelativeButton.Right);
}

private void mnSetDVDDirectory_Click()
{
   _playctrl.DvdController.DVDDirectory = @"e:\video_ts";
}

private void mnShowMenu_Click()
{
   _playctrl.DvdController.ShowMenu(DVDMenuId.Root);
}

private void mnStillOff_Click()
{
   _playctrl.DvdController.StillOff();
}

private void mnStop_Click()
{
   _playctrl.DvdController.Stop();
}

static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media";
}
Requirements

Target Platforms

See Also

Reference

DVDControl Class
DVDControl Members

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.

Leadtools.Multimedia requires a Multimedia or Multimedia Suite license and unlock key. For more information, refer to: LEADTOOLS Toolkit Features