Estoy usando Windows Media Encoder... pero lo que me falta es simple, pero aún no lo puedo lograr.
La idea es...
Al presionar el botón, si está codificando, entonces la codificacion se para. Si está parada la codificación, entonces comienza.
Creo que lo estoy haciendo bien, PERO, me arroja el error...
Error al intentar adquirir un recurso de red.
Código:
Private Sub btn_boton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_boton.Click
Encoder = New WMEncoder
Dim radio As String = "fmhit"
Dim archivo As String = "C:\Archivos de programa\Windows Media Components\Encoder\Profiles\MiArchivoConfiguracion.wme"
If Encoder.RunState = WMENC_ENCODER_STATE.WMENC_ENCODER_RUNNING Then
'stop encoding
Encoder.Stop()
Label1.Text = "DETENIDO"
Else
Dim SrcGrpColl As IWMEncSourceGroupCollection
Dim SrcGrp As IWMEncSourceGroup
Dim SrcAud As IWMEncAudioSource
Dim ProColl As IWMEncProfileCollection
Dim Pro As IWMEncProfile
Dim i As Integer
Encoder.Load(archivo)
SrcGrpColl = Encoder.SourceGroupCollection
SrcGrp = SrcGrpColl.Add("GP_1")
SrcAud = SrcGrp.AddSource(WMENC_SOURCE_TYPE.WMENC_AUDIO)
Dim Fuente_Audio As String = SrcGrpColl.Item(0).Source(WMENC_SOURCE_TYPE.WMENC_AUDIO, 0).GetInput("InputSource", 0)
SrcAud.SetInput("Device://" + Fuente_Audio)
ProColl = Encoder.ProfileCollection
For i = 0 To ProColl.Count - 1
If ProColl.Item(i).Name = radio Then
Pro = ProColl.Item(i)
SrcGrp.Profile = Pro
Exit For
End If
Next
Dim brdCst As IWMEncBroadcast
brdCst = Encoder.Broadcast
Dim puerto As Integer = brdCst.PortNumber(WMENC_BROADCAST_PROTOCOL.WMENC_PROTOCOL_HTTP)
brdCst.PortNumber(WMENC_BROADCAST_PROTOCOL.WMENC_PROTOCOL_HTTP) = puerto
' ACA ME ARROJA EL ERROR, EN EL METODO ENCODER.START()
Encoder.Start()
Label1.Text = "CODIFICANDO"
End If
End Sub
Necesito de sus aportes de forma urgente.
Muchas Gracias.