Batch creation of mpg, mpeg, avis

3rd Jan 2008 23:53 #1

Member

Hi folks,

I'm new to this forum. I was refered by a friend.

Here is my scenerio.

1-I record tv shows with windows media center (dvr-ms files all over the place)
2-I like to get little clips/small segments from each show.
3-I currently use NeroVision, but I'm looking for something a bit more user friendly for this type work. (Not to bash Nero as it does other good things.)

I want to be able to watch a video in a player, and as I watch it, be able to just click somewhere and set a start point and end point, and then click a button "add to batch", continue watching the show, and continue to add more batches. Then I would like to be able to walk away from my PC, and have that batch of little mpgs created, so when I get back, they are ready. I'm trying to automate this process a bit.

I have started working on a .net project that plays videos, and that you can set a start point and end point.
My next goal is to work on the batch button, but before I go any further with this......

Is there something out there already that is similar to what I'm looking for?
If not, do you know of any SDK, that can help me with this kind of stuff?

I apologize if I have not provide enough information. Let me know if I should provide anything else.

Also, I posted the code of what I have incase anyone wants a free .net player, and If can get an SDK, I will totally hook everyone up here with the free software.

......

Code:

Imports WMEncoderLib

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim global_SelectedFilePath As String

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents AxWindowsMediaPlayer1 As AxWMPLib.AxWindowsMediaPlayer
    Friend WithEvents btnOpen As System.Windows.Forms.Button
    Friend WithEvents btnPlay As System.Windows.Forms.Button
    Friend WithEvents btnSetStartPoint As System.Windows.Forms.Button
    Friend WithEvents btnStop As System.Windows.Forms.Button
    Friend WithEvents txtStartPoint As System.Windows.Forms.TextBox
    Friend WithEvents btnSetEndPoint As System.Windows.Forms.Button
    Friend WithEvents txtEndPoint As System.Windows.Forms.TextBox
    Friend WithEvents btnCreateClip As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.AxWindowsMediaPlayer1 = New AxWMPLib.AxWindowsMediaPlayer
        Me.btnOpen = New System.Windows.Forms.Button
        Me.btnPlay = New System.Windows.Forms.Button
        Me.btnSetStartPoint = New System.Windows.Forms.Button
        Me.btnStop = New System.Windows.Forms.Button
        Me.txtStartPoint = New System.Windows.Forms.TextBox
        Me.btnSetEndPoint = New System.Windows.Forms.Button
        Me.txtEndPoint = New System.Windows.Forms.TextBox
        Me.btnCreateClip = New System.Windows.Forms.Button
        CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxWindowsMediaPlayer1
        '
        Me.AxWindowsMediaPlayer1.Enabled = True
        Me.AxWindowsMediaPlayer1.Location = New System.Drawing.Point(16, 24)
        Me.AxWindowsMediaPlayer1.Name = "AxWindowsMediaPlayer1"
        Me.AxWindowsMediaPlayer1.OcxState = CType(resources.GetObject("AxWindowsMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxWindowsMediaPlayer1.Size = New System.Drawing.Size(680, 280)
        Me.AxWindowsMediaPlayer1.TabIndex = 0
        '
        'btnOpen
        '
        Me.btnOpen.Location = New System.Drawing.Point(16, 336)
        Me.btnOpen.Name = "btnOpen"
        Me.btnOpen.TabIndex = 1
        Me.btnOpen.Text = "Open File"
        '
        'btnPlay
        '
        Me.btnPlay.Location = New System.Drawing.Point(192, 336)
        Me.btnPlay.Name = "btnPlay"
        Me.btnPlay.TabIndex = 2
        Me.btnPlay.Text = "Play"
        '
        'btnSetStartPoint
        '
        Me.btnSetStartPoint.Location = New System.Drawing.Point(376, 336)
        Me.btnSetStartPoint.Name = "btnSetStartPoint"
        Me.btnSetStartPoint.Size = New System.Drawing.Size(96, 23)
        Me.btnSetStartPoint.TabIndex = 3
        Me.btnSetStartPoint.Text = "Set Start Point"
        '
        'btnStop
        '
        Me.btnStop.Location = New System.Drawing.Point(104, 336)
        Me.btnStop.Name = "btnStop"
        Me.btnStop.TabIndex = 4
        Me.btnStop.Text = "Stop"
        '
        'txtStartPoint
        '
        Me.txtStartPoint.Location = New System.Drawing.Point(376, 376)
        Me.txtStartPoint.Name = "txtStartPoint"
        Me.txtStartPoint.Size = New System.Drawing.Size(96, 20)
        Me.txtStartPoint.TabIndex = 5
        Me.txtStartPoint.Text = ""
        '
        'btnSetEndPoint
        '
        Me.btnSetEndPoint.Location = New System.Drawing.Point(488, 336)
        Me.btnSetEndPoint.Name = "btnSetEndPoint"
        Me.btnSetEndPoint.Size = New System.Drawing.Size(88, 23)
        Me.btnSetEndPoint.TabIndex = 6
        Me.btnSetEndPoint.Text = "Set End Point"
        '
        'txtEndPoint
        '
        Me.txtEndPoint.Location = New System.Drawing.Point(488, 376)
        Me.txtEndPoint.Name = "txtEndPoint"
        Me.txtEndPoint.Size = New System.Drawing.Size(88, 20)
        Me.txtEndPoint.TabIndex = 7
        Me.txtEndPoint.Text = ""
        '
        'btnCreateClip
        '
        Me.btnCreateClip.Location = New System.Drawing.Point(600, 376)
        Me.btnCreateClip.Name = "btnCreateClip"
        Me.btnCreateClip.Size = New System.Drawing.Size(88, 23)
        Me.btnCreateClip.TabIndex = 8
        Me.btnCreateClip.Text = "Create clip"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(720, 422)
        Me.Controls.Add(Me.btnCreateClip)
        Me.Controls.Add(Me.txtEndPoint)
        Me.Controls.Add(Me.btnSetEndPoint)
        Me.Controls.Add(Me.txtStartPoint)
        Me.Controls.Add(Me.btnStop)
        Me.Controls.Add(Me.btnSetStartPoint)
        Me.Controls.Add(Me.btnPlay)
        Me.Controls.Add(Me.btnOpen)
        Me.Controls.Add(Me.AxWindowsMediaPlayer1)
        Me.Name = "Form1"
        Me.Text = "My Media Clipper"
        CType(Me.AxWindowsMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click

        Dim selectedFile As New OpenFileDialog
        selectedFile.ShowDialog()
        global_SelectedFilePath = selectedFile.FileName
        AxWindowsMediaPlayer1.URL = global_SelectedFilePath

    End Sub

    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click

        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        AxWindowsMediaPlayer1.Ctlcontrols.play()

    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click

        Dim doubleCurrentPostion As Double = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = doubleCurrentPostion

    End Sub

    Private Sub btnSetStartPoint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetStartPoint.Click

        txtStartPoint.Text = CType((AxWindowsMediaPlayer1.Ctlcontrols.currentPosition / 60), String)

    End Sub


    Private Sub btnSetEndPoint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetEndPoint.Click

        txtEndPoint.Text = CType((AxWindowsMediaPlayer1.Ctlcontrols.currentPosition / 60), String)

    End Sub


    Private Sub btnCreateClip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateClip.Click

      
    End Sub

End Class