Потоковое радио ASF - PullRequest
Новая
       91

Потоковое радио ASF

0 голосов
/ 22 апреля 2020

Я закодировал mp3-плеер, теперь я хочу транслировать его в формате http asf .. где моя ошибка? пытался использовать vl c для чтения, но не работал 

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
...