Вверх ↑
Этот топик читают: Гость
Ответов: 4630
Рейтинг: 749
#16: 2015-04-17 17:28:27 ЛС | профиль | цитата
А что, приведенная тобой в первом посту схема не показывает список устройств звукозаписи? Запускаешь музыку, запускаешь схему, по-очереди ставишь галочки напротив каждого устройства, на котором визуализация начнет что-то показывать - то устройство и используй.

Затем у тебя должен появится другой вопрос - как звук с этого устройства воспроизвести. Ну, вероятно, если на одном из звуковых выходов играет музыка, ты её считываешь, то чтобы прослушать то, что ты считаешь, нужно вывести звук либо в файл, либо на другую звуковую карту. У тебя есть?
карма: 26

0
Ответов: 230
Рейтинг: 1
#17: 2015-04-17 18:03:10 ЛС | профиль | цитата
Netspirit, нету
------------ Дoбавленo в 18.03:
В общем ладно.Я попытаюсь сделать эту программу.Спасибо за помощь!
карма: 1

0
Ответов: 2059
Рейтинг: 132
#18: 2015-04-17 18:41:16 ЛС | профиль | цитата
Netspirit
то, что ты считаешь, нужно вывести звук либо в файл, либо на другую звуковую карту. У тебя есть?

Перевожу:
Он хочет поток с карты ещё подать и по адресу URL.
Это значит два потока.
Один с микрофона на карту.
А другой, уже с микшера (музыка, или что туда попало + голос с микрофона) в сеть.
Только не понятно, бродкастом, или адресcно, точка-точка? В принципе без разницы.
Я сразу понял, что ему надо,как на серверах Counter-Strike сделано.
Но он почему-то проигнорировал мой вопрос и стал рисовать картинки не объясняющие сути дела.
Либо смешать два потока с микрофона и допустим музыку из файла и подать... Куда?
Плохой из меня переводчик!
карма: 6

0
Ответов: 230
Рейтинг: 1
#19: 2015-04-17 20:22:59 ЛС | профиль | цитата
flint2, Я не знаю как объяснить .
Нужно,чтобы все что я слышу через наушники передавалось в микрофон.
Вот например:
Разговариваю я с собоседником по скайпу.Решил показать ему музыку.Включаю музыку у себя на компьютере,я слышу музыку,а мой собедник нет.
Вот как сделать так,чтобы мой собеседник тоже слышал музыку?
карма: 1

0
Ответов: 8926
Рейтинг: 823
#20: 2015-04-17 21:09:06 ЛС | профиль | цитата
lll0 писал(а):
Разговариваю я с собоседником по скайпу.Решил показать ему музыку.Включаю музыку у себя на компьютере,я слышу музыку,а мой собедник нет.
Вот как сделать так,чтобы мой собеседник тоже слышал музыку?
А в первом посте нельзя было так задачу поставить
Насколько помню, Skype громкоговорящая система, и чтобы не возникало аккустической обратной связи все звуки из динамиков улавливаемые микрофоном подавляются, в т. ч. и голос вашего собеседника и ваша музыка. Можно ли отключить это подавление, не знаю.
карма: 19

0
Ответов: 2059
Рейтинг: 132
#21: 2015-04-17 21:11:34 ЛС | профиль | цитата
Ну опять Снова-здорово.
передавалось в микрофон.

Микрофон - это карандаш и "Войну и Мир" в него не запихнуть.
Вот как сделать так,чтобы мой собеседник тоже слышал музыку?

Значит я изначально правильно тебя пронял.
Выше я описал, что надо делать, а квадратики подставляй сам.
BASS_RecordInput - это с микрофона, BASS_ChannelPlay - это то, что будешь передавать другу, или BASS_StreamCreateFile, что меньше подходит в данной ситуации.
Только, чтобы взять поток с звуковой карты, я у себя компонента не наблюдаю.
(Провожу ревизию компонентов, по этому на данный момент почти половина отсутствует)
На память, не могу припомнить такого. Не беда, можно в IC слепить, примеров в сети полно.
Может я ошибаюсь на счёт отсутствия компонента, не помню.

Когда слесарь-сантехник делает водопровод в доме, у него есть чёткое представление и план, куда какая труба пойдет и куда вода будет течь. Тоже самое и со звуком, это те-же трубы.
Учись формулировать мысли! Сформулированный вопрос содержит большую часть ответа.

карма: 6

0
Ответов: 230
Рейтинг: 1
#22: 2015-04-17 21:28:30 ЛС | профиль | цитата
flint2, у меня только "Общая громкость"
Add(MainForm,2953706,21,105)
{
link(onCreate,4220914:doInit,[])
}
Add(BASS_ChannelPlay,10098696,357,343)
{
}
Add(BASS_RecordInput,4511545,238,154)
{
link(onEnumInputs,3961701:doAdd,[])
}
Add(BASS_Init,4220914,70,119)
{
link(onInit,15537094:doInit,[(146,125)(146,160)])
}
Add(ListBox,3961701,350,154)
{
Left=175
Top=5
Width=205
Height=250
}
Add(BASS_RecordCenter,15537094,189,154)
{
link(onInit,4511545:doEnumInputs,[])
}


карма: 1

0
файлы: 1code_35504.txt [436B] [198]
Ответов: 4630
Рейтинг: 749
#23: 2015-04-17 21:45:27 ЛС | профиль | цитата
flint2 писал(а):
чтобы взять поток с звуковой карты, я у себя компонента не наблюдаю

lll0 писал(а):
у меня только "Общая громкость"

Схема с первого поста

Сейчас есть так:
Микрофон -> Skype

lll0 нужно так:
1) Стерео-микшер -> Skype (то, что звучит с колонок подать на Skype; выставить в настройках)
2) Микрофон -> Его программа -> Стерео-микшер (чтобы одновременно в Skype уходило и с микрофона, и с колонок; в схему первого поста добавить воспроизведение звука с микрофона на стерео-микшер).

карма: 26

0
файлы: 1fdgdfgdfg.jpg [26KB] [638]
Ответов: 230
Рейтинг: 1
#24: 2015-04-17 22:21:34 ЛС | профиль | цитата
Netspirit, Но схема с первого поста вот такая:

------------ Дoбавленo в 22.19:
Вот еще кое-что нашел:
Add(Button,13708268,259,126)
{
Left=10
Top=10
Caption="Record"
link(onClick,5066922:doStart,[])
}
Add(Button,14140950,259,175)
{
Left=75
Top=10
Caption="Stop"
link(onClick,5066922:doStop,[(375,181)(375,139)])
}
Add(BASS_RecordStart,5066922,406,126)
{
Freq=44100
Mode=1
link(onStart,8212518:doOpen,[])
link(onData,8212518:doSend,[(478,139)(478,146)])
}
Add(BASS_Version,10183901,392,280)
{
link(onCheckOk,12302345:doInit,[])
link(onCheckFailed,109118:doMessage,[(436,293)(436,335)])
}
Add(Message,11232751,392,329)
{
Message="Error BASS initialization"
Caption="Error"
Icon=1
}
Add(Message,109118,448,329)
{
Message="Incorrect version of BASS library "
Caption="Error"
Icon=1
}
Add(MainForm,16358250,259,266)
{
Width=511
Height=274
Caption="BASS sockets demo"
Point(Handle)
link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,336,280)
{
link(onInit,10183901:doCheck,[])
link(onError,11232751:doMessage,[(380,293)(380,335)])
link(Handle,16358250:Handle,[(356,268)(310,268)(310,310)(265,310)])
}
Add(BASS_RecordCenter,12302345,448,280)
{
link(onInit,10295078:doOpen,[])
link(onError,11713735:doMessage,[(492,293)(492,335)])
}
Add(Message,11713735,504,329)
{
Message="InitRecord failed!"
Caption="Error"
Icon=1
}
Add(TCP_Server,10295078,609,280)
{
Port=152
DataType=3
link(onRead,3011513:doEvent1,[])
link(onConnect,14476773:doCreate,[(654,293)(654,349)])
}
Add(TCP_Client,8212518,518,126)
{
Port=152
IP="127.0.0.1"
DataType=3
}
Add(Grapher,13475393,770,287)
{
Left=10
Top=35
Width=485
Height=200
MaxH=0
LeftMargin=0
RightMargin=0
TopMargin=0
BottomMargin=0
}
Add(BASS_StreamCreate,14476773,714,343)
{
DataType=1
Name="MainSound"
link(onCreate,3047460:doPlay,[])
link(Data,14690913:Stream,[])
}
Add(BASS_ChannelPlay,3047460,770,343)
{
Channel="MainSound"
}
Add(Hub,3011513,658,280)
{
link(onEvent1,14690913:doAdd,[])
link(onEvent2,13475393:doAdd,[])
}
Add(VolumeSummator,7708361,469,168)
{
Level=20
Mode=1
}
Add(SoundBuffer,14690913,714,280)
{
Size=200000
}
Add(Label,11744101,945,343)
{
Left=315
Top=10
Width=10
Height=17
Caption="0"
}
Add(Timer,9591408,847,343)
{
link(onTimer,1010683:doData,[])
}
Add(DoData,1010683,896,343)
{
link(onEventData,11744101:doText,[])
link(Data,14690913:FullState,[(902,327)(727,327)])
}
Add(Label,6671871,945,392)
{
Left=245
Top=10
Width=67
Height=17
Caption="Buffer usage:"
}

------------ Дoбавленo в 22.21:
только тут наоборот,из микрофона звук.
карма: 1

0
Ответов: 2059
Рейтинг: 132
#25: 2015-04-17 23:49:23 ЛС | профиль | цитата
Я писал:
На память, не могу припомнить такого.

Надо в BASS_RecordStart установить моде Stream, вот и всё.
У меня полита сейчас не полная, мне трудно ориентироваться. Netspirit Уже ответил.
Всё-таки советую почитать общую литературу о звуковых потоках, а потом переходить к частностям в виде BASS, а уж потом и к квадратикам.
Уверен, получится быстрее и полезнее, чем время затраченное на переписку.
Без обид, ведь ты не понимаешь как всё устроено, по этому нет даже приблизительного плана - что да как сделать, от этого и такие вопросы.

Поверь, я знаю чего говорю.
Не так давно, я понятия не имел, как рисовать программы.
Нашел Hiasm, но мне очень нужно было запихнуть туда другой, хитрый язык.
[offtop]Сейчас на скорую руку делал, пока ответ писал.[/offtop]
http://forum.hiasm.com/forum_serv.php?q=56&id=3928
Да ещё вставить в скрипт Delphi строки на другом языке. ... В конце-концов получилось.
Я тоже задавал дурацкие вопросы, пока не стал изучать мат-часть и языки.
Зато изучил PE архитектуру, научился делать dll с языков не приспособленных к этому, из exe - dll с нужными функциями, трансляцию с нескольких языков в Delphi скрипт.
Примерно так выглядит:
code_35506.txt
Разбивай большие задачи на мелкие и ещё раз разбивай, вплоть до 2x2=4, пока не появится ясность.
карма: 6

0
файлы: 1code_35506.txt [4.3KB] [382]
Ответов: 230
Рейтинг: 1
#26: 2015-04-18 00:59:32 ЛС | профиль | цитата
flint2, Спасибо!
------------ Дoбавленo в 00.59:
кстати,Вот такая же проблема
http://forum.hiasm.com/forum.html?q=3&p=66888
карма: 1

0
Ответов: 9906
Рейтинг: 351
#27: 2015-04-18 14:50:21 ЛС | профиль | цитата
lll0 писал(а):
только тут наоборот,из микрофона звук

Я падсталом
карма: 9

0
Ответов: 230
Рейтинг: 1
#28: 2015-04-18 20:12:44 ЛС | профиль | цитата
Galkov, А что,я как-то раз подключил микрофон к наушникам,и он работал как динамик.
карма: 1

0
Ответов: 2059
Рейтинг: 132
#29: 2015-04-18 22:09:15 ЛС | профиль | цитата
http://www.tiflocomp.ru/games/design/sound_games/bass.php
карма: 6

0
29
Сообщение
...
Прикрепленные файлы
(файлы не залиты)