The following VB subroutine demonstrates how to use the ltmmPlayCtrl object to play a UDP MPEG2 source stream with modified DVR buffer settings.
Private Sub PlayUDPSourceWithDVRBuffer()
Dim ltmmPlayCtrl1 As LTMMPlayCtrl
Set ltmmPlayCtrl1 = MainForm.ltmmPlayCtrl
On Error GoTo HandleError
'' Open the UDP Stream, but dont auto start
ltmmPlayCtrl1.AutoStart
= False
ltmmPlayCtrl1.SourceFile
= "udp://127.0.0.1:9005"
Dim DVRSink As LMDVRSinkLib.LMDVRSink
Set DVRSink = ltmmPlayCtrl1.GetSubObject(ltmmPlay_Object.ltmmPlay_Object_SourceFilter)
'' Tell the DVR Sink that settings are about to change
DVRSink.StartChangingAttributes
'' Set only one DVR buffer folder
DVRSink.FolderCount
= 1
'' Set the buffer base file name to 'Capture.LBL'
DVRSink.BaseName
= "Capture.LBL"
'' Set the buffer folder location to 'C:\Temp'
DVRSink.FolderName(0)
= "C:\Temp"
'' Set the buffer folder to have 5 buffer data files, each
at 100MB max size
Call DVRSink.SetBufferSize(0,
5, 102400000)
'' Commit the changed settings now
DVRSink.StopChangingAttributes(False)
'' Run the stream
ltmmPlayCtrl1.Run
Exit Sub
HandleError:
If Err.Number <> 0 Then MsgBox Err.Description + "
Error code = " + str(Err.Number) + "."
End Sub