ASF广播流

时间:2020-04-21 23:18:59

标签: mp3 broadcasting asf

我现在编码了一个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

0 个答案:

没有答案