我现在编码了一个mp3播放器,我想将其以http asf格式流式传输。试图用vlc读取它,但是没有用
Try
' Declare variables.
Dim Server As WMSServer
Dim BCPubPoint As IWMSBroadcastPublishingPoint
Try
' Create the WMSServer object.
Server = New WMSServer()
' Add a new broadcast publishing point.
BCPubPoint = Server.PublishingPoints.Add("NewPubPointVI",
WMS_PUBLISHING_POINT_CATEGORY.WMS_PUBLISHING_POINT_BROADCAST,
TextBox1.Text)
' Set the publishing point to start broadcasting when
' the first client connects.
BCPubPoint.AllowClientToStartAndStop = True
' Set the publishing point to allow splitting the stream.
BCPubPoint.AllowStreamSplitting = True
' Set the buffer setting to minimize propagation latency.
BCPubPoint.BufferSetting =
WMS_BUFFER_SETTING.WMS_BUFFER_SETTING_MINIMIZE_PROPAGATION_LATENCY
' Enable the archiving plug-in.
BCPubPoint.BroadcastDataSinks.Item(TextBox2.Text).Enabled = True
' Initialize the publishing point and start broadcasting.
BCPubPoint.Start()
' Start archiving the broadcast data locally for rebroadcast.
BCPubPoint.StartArchive()
Catch errCom As COMException
' TODO: Handle COM exceptions.
Catch err As Exception
' TODO: Exception handler goes here.
Finally
' TODO: Clean-up code goes here.
End Try
Catch ex As Exception
' Show the exception's message.
MessageBox.Show(ex.Message)
End Try