инфа о mp3

[Kiryusha]

Народ подскажите плз странички о mp3. Его принцип и прочее. Типа как там записывается сам музыкальный поток и идеи по поводу того, как читать mp3 без готовых контролов. И вообще можно ли читать mp3 по кускам, порциями. Спасибо.

[BV]

А искал?

[Konst_One]

http://www.iis.fraunhofer.de/amm/techinf/layer3/index.html

[Kiryusha]

так искал но чета туго нашел всего 2-3 сайта и то не то что я хотел.

[Kiryusha]

Конст, ну там же все по-англиски. я же нипипа не понимаю! Есть у нас на ру что-нибуть похожее? Я повторю вопрос, что меня интересует, можно ли мп3 файлы проигрывать по частям, т. е. если я отошлю на другой комп цепочку байт, то что это будет??? Это будет нет записью музыки??? или что это будет?

[Konst_One]

а без английского ты далеко не уедешь

http://www.vbaccelerator.com/home/VB/Code/vbMedia/Audio/index.asp

[Kiryusha]

дк я его знаю..... тока плохо
а что по вопросу?

[Konst_One]

проигрывать по частям MP3-файл можно, но сам я этим не увлекался. я думаю , что тебе стоит поискать исходники на planetsourcecode

[Konst_One]

вот первое стоящее, что навскидку попалось

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=64011&lngWId=1

[Kiryusha]

у меня че та не грузится эта прога какой-то компонент не находится. Спасибо за сайт. Что-нибуть поищу.

[Kiryusha]

а как озвучить цепочку байт???
Ну то есть я считал в буфер с микрофона цепочку байт. Я могу ее загнать в файл а потом озвучить с этим все понятно, а если мне надо отправить на другой комп, то как их озвучить после уже там????

[Konst_One]

может тебе надо работать через DirectSound

[Konst_One]

http://www.bscgames.com/dx_sound.asp
http://www.cse.unsw.edu.au/~atan164/dsound_print.html

[Kiryusha]

не знаю я через DirectX8 беру звук с микрофона, потом мне надо этот звук перекинуть на другой комп юзаю винсок, а потом уже не том компе по этим байтам мне надо воспроизвести звук.
Если можешь дать набросок кода, буду благодарен.

[Konst_One]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directshow/htm/thedirectshowsdkandthewindowsmediaformatsdk.asp

изучай

[Konst_One]

а это небольшая подсказка:
http://www.gdcl.co.uk/downloads.htm#fsfwrap

[Kiryusha]

все примеры что я видел записывают звуковой поток в файл, а возможно ли его проиграть без записи в файл?

[Kovu]

Если у тебя есть массив со звуком то можно попробовать

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


Sub PlaySoundFromMem(abpic() as Byte 'твой массив со звуком)
  Dim nLow As Long
  Dim cbMem  As Long
  Dim hMem  As Long
  Dim lpMem  As Long 
    On Error GoTo Out
  nLow = LBound(abpic)
  On Error GoTo 0
  cbMem = (UBound(abpic) - nLow) + 1
  hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
  If hMem Then
    lpMem = GlobalLock(hMem)
    If lpMem Then   
      MoveMemory ByVal lpMem, abpic(nLow), cbMem
      Call GlobalUnlock(hMem)
     PlaySound lpMem, 0&, &H4 Or &H1
    End If
    'GlobalFree hMem
  End If
End Sub


[Kiryusha]

что ты понимаешь под массивом со звуком? Если не сложно желательно кодом...

[Konst_One]

вот нашел что-то похожее на то, что тебе нужно:

[Kiryusha]

Konst_One, слыш она ошибку какую то выклянчивает. И кстати включи асю.

[Konst_One]

аси нет по корпоративным причинам, а протестить эту прогу я не могу на своем компе. вкрадце , она подключается к серверу в интернете, который передает потоковое аудио и потом записывает полученный поток в файл mp3 или wav , используя библиотеку bass:
http://www.un4seen.com/

[Kiryusha]

так, Конст, мне не нужен mp3 файл мне нужно автоматическое воспроизведение цепочки байт, которая является звуковым потоком.

[Kovu]

Под массивом со звуком я понимаю то что ты получил по винсоку, расщепленное на байты или как пишешь ты

цепочки байт, которая является звуковым потоком.

Правда поток должен быть wave...

[Kiryusha]

Тогда кову есть еще вопрос что есть MoveMemory??? чета я не нашел такой API у себя не мог бы кинуть описание...

[Kovu]

То же что и CopyMemory
Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)

[Kostyan]

Тогда кову есть еще вопрос что есть MoveMemory??? чета я не нашел такой API у себя не мог бы кинуть описание...

http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/WindowsAPI/CopyMemory/171.mspx

[Kiryusha]

Млин че та я запутался........
Растолкуйте плз следующее:

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


    Dim curPos As Long
    Dim curs As DSCURSORS
    Dim dataBuf() As Byte
    Dim dataSize As Long

    objDSCaptureBuffer.GetCurrentPosition curs
    curPos = curs.lWrite
    dataSize = curPos - lastPos
    If dataSize < 0 Then
        dataSize = (CaptureDesc.lBufferBytes - lastPos) + curPos
    End If
    ReDim dataBuf(dataSize - 1)
    objDSCaptureBuffer.ReadBuffer lastPos, dataSize, dataBuf(0), DSCBLOCK_DEFAULT
    Put #1, , dataBuf


почему сначала с dataBuf работают как с массивом (dataBuf(0)) а потом как с обычной переменной (put #1, ,dataBuf)???? И где тогда вообще хранится звук????

[Kovu]

Насколько я понимаю звук хранится в dataBuf(), приведи полный код, там наверняка открывают файл для Output'a

[Kiryusha]

Кову ты все правильно понял я почему эту тему и поднял. Мне не нужно записывать в файл а надо их сразу отправить на другой комп и воспроизвести.