Аудио по сетке

[kirrun]

Короче, задача такая: Сделать прогу, для разговора голосом по локалке. Желательно, чтоб работала без сервера (Компютер-Компьютер). Проблема в том, что я даже примерно не представляю как это сделать...

[Sebas]

DirectX
боле ничё не скажу...

[Snussi]

А ничего больше и не скажешь - разве что либо самому писать тот же директикс, либо на каждой машине поднимать сервер вещания WindowsMedia и натравливать медиаплееры на компы друг друга )

[kirrun]

DirectX это, конечно, хорошо... Но можно чуть подробнее?
Или хотя бы топик показать...

[xolod]

Голос пишеться с помощью winmm.dll или с помощью directsound (да хоть через ASIO.dll) - не важно. Дык вот, пишеться и сжимается в реальном времени каким-нибудь кодеком не жадным до ресурсов (.Hxxx? nsa?), потом передается другу (по wsock?) и расжимается у него на машине.
Следующим этапом буфер создаешь с этими данными и передаешь этот буфер на воспроизведение. Если звук полнодуплексный, то и говорить/слушать можно вместе, иначе - как по рации.

ps: хотя вариант "использовать Netmeeting" мне нравиться больше.

[kirrun]

Дык как его передавать в реальном времени?

[xolod]

А как ты файл передаешь? С winsock работал?

[kirrun]

Ясен пень... но как заставить в РЕАЛЬНОМ времени?

[xolod]

А что ты подразумеваешь под реальным временем?
Включи netmeeting на слабом канале - он там тоже работать еле будет. Звук будет с огромными лагами приходить.

[Snussi]

Что нарыл в МСДН по директ х 8.0:
1. DirectPlay updates for scalability and performance
The Microsoft DirectPlay® component has been extensively updated to improve its ease of use and to increase its capabilities, especially with regard to scalability and performance. In addition, DirectPlay now supports voice communication between players.
2. На том же микрософте написано, что для СДК директа 8.0 есть примерчик на VB (SDK Root)Samples\Multimedia\VBSamples\DirectPlay\VoiceGroup

[kirrun]

А что ты подразумеваешь под реальным временем?
Включи netmeeting на слабом канале - он там тоже работать еле будет. Звук будет с огромными лагами приходить.

Но меня интересует чтоб на большом канале без лагов!

[SeT]

Алгоритм таков:
1. Создать связь м/у компьютерами сокетами
2. Через свойства DirectX через микрофон записать звук в специальный буфер
3. У спец буфера есть событие, когда он наполняется, в это время через винсок передаёшь байты по сети
4. А принимающий просто воспроизводит.
Если конкретно интересует, как это сделать через DirectX, напиши в общак

[Snussi]

Блин, да юзайте DirectPlay!
Зачем париться с винсоком, а?

[SeT]

Snussi Без винсока довольно-таки проблематично переправить поток данных.

[Snussi]

А средства DirectPlay на что? Они никакого винсока не трубуют!
Все уже украдено за нас

[SeT]

Snussi
Ты поясни свою мазу. Непонятно же ничего. Расскажи честному народу про свойства DirectPlay'я

[Sebas]

Snussi
Ты поясни свою мазу. Непонятно же ничего. Расскажи честному народу про свойства DirectPlay'я

Чё расказывать то?! SDK переводить чтоли?!?!

Качаем DirectX SDk и смотрим, кстати, д3дрм правду сказал, сам видел там пример болтанья по сетке

[Snussi]

Ок, попробую
1. Используем нецентрализованную систему - т.е. PeerToPeer
2. Создаем при помощи DirectPlay "игровую" сессию. При этом, за передачу данных, их связывание и тд отвечает сам DirectPlay. У меня пример дома валяется - так что код запостить не могу до понедельника. Ну там и нет ничего сложного. Я разобрался в свое время за день.
3. А дальше - цитата из MSDN

DirectPlay Voice Networking
Microsoft® DirectPlay® Voice uses a DirectPlay session for media-independent network transport and player management. The DirectPlay Voice API does not duplicate session control features from DirectPlay. A DirectPlay network transport session must also be created before DirectPlay Voice can transmit and receive voice communications. DirectPlay Voice can use either the IDirectPlay4 object or IDirectPlay8 object for network transport.

Note that if DirectPlay Voice is being used in-process with a multiplayer game, the game will most likely also use the transport session to exchange its game-specific data. This makes it possible to optimize the use of network resources between the game and voice data.

It is also acceptable to create and use a transport session specifically for the voice session, as would be the case for a standalone voice conferencing application.

Опять же, пример я указывал выше.
Никаких дополнительных сетевых объектов (типа винсока) создавать не надо! DirectPlay самодостаточен полностью!

[kirrun]

Так ладно... Тогда где его можно скачать?

З.Ы. все-таки модожду примерчик ибо не горит...

[Snussi]

Через еМул.
Или хорошенько на микрософте порыться - но там, в основном, только 9.

[Snussi]

Итак, обещанные исходники. Извините за кривость кода
I. Серверная часть
BF - основная форма, InterList - список
0. Глобальные переменные

Код: Выделить всё

Public g_DPlay As DirectPlay4
Public g_EnumConnections As DirectPlayEnumConnections
Public g_DPAddress As DirectPlayAddress

1. Стартовая функция

Код: Выделить всё

Private Sub Form_Load()
     Set g_DPlay = g_dx.DirectPlayCreate("")
     Set g_EnumConnections = g_DPlay.GetDPEnumConnections("", DPCONNECTION_DIRECTPLAY)
     InterList.Clear
    ' Поиск доступных сетевых интерфейсов....
    If InitConnList = False Then
        Log "Интерфейсы не найдены. Останов."
        Exit Sub
    End If
End Sub

2. Функция, заполняющая список возможными типами подключений

Код: Выделить всё

Public Function InitConnList() As Boolean
  Dim NumConnections As Long
  Dim strName As String
  Dim x As Long
  On Error GoTo FAILED
  NumConnections = g_EnumConnections.GetCount

  For x = 1 To NumConnections
    strName = g_EnumConnections.GetName(x)
    BF.InterList.AddItem strName
  Next x
  InitConnList = True
  Exit Function
 
  ' Error handlers
FAILED:
  InitConnList = False
  Exit Function
End Function

3. Функция, обрабатывающая клик на элементе списка

Код: Выделить всё

Private Sub InterList_DblClick()
'     Продолжаем инициализацию интерфейсов
    If InitInterFace(InterList.ListIndex + 1) = True Then
         InterList.Visible = False
         StartServer
    End If
End Sub

4. Инициализация интерфейса

Код: Выделить всё

Public Function InitInterFace(InterF As Long) As Boolean
  On Error GoTo INITIALIZEFAILED
  Set g_DPAddress = g_EnumConnections.GetAddress(InterF)
  Call g_DPlay.InitializeConnection(g_DPAddress)
  On Error GoTo 0
 
  InitInterFace = True
  Exit Function
  ' Error handlers
INITIALIZEFAILED:
  If Err.Number <> DPERR_ALREADYINITIALIZED Then
    InitInterFace = False
  End If
End Function

5. Функция StartServer

Код: Выделить всё

Public Sub StartServer()
    BF.Show
    MaxPlayers = 16
    SessionName = "TestServer Session"
    fGUID = "{AC330441-9B71-11D2-9AAB-0020781461AC}" ' Гуид, как вы понимаете, любой.
    Dim SessionData As DirectPlaySessionData
    Set SessionData = g_DPlay.CreateSessionData
    Call SessionData.SetMaxPlayers(MaxPlayers)
    Call SessionData.SetSessionName(SessionName)
    Call SessionData.SetGuidApplication(fGUID)
    Call SessionData.SetFlags(DPSESSION_DIRECTPLAYPROTOCOL Or DPSESSION_OPTIMIZELATENCY)

  on error GoTo failedOpen
  Call g_DPlay.Open(SessionData, DPOPEN_CREATE)
    debug.print "Сервер с именем " + SessionName + " создан. Максимальное количество игроков - " + CStr(MaxPlayers)
    CreateServerPlayer
    Log "Цикл ожидания событий запущен."
    Do While DoEvents()
        GetDPMessages
    Loop
    Exit Sub
failedOpen:
    debug.print "Не могу создать сервер !"
    End
End Sub


5. Функция GetDPMessages сильно зависит от проекта, поэтому писать ее не буду

Клиентскую часть запостю чуть позже.