Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как с LinIn получить 24bit звук??? Помогите. 
:(
    Опции темы
ivan219
Дата 6.1.2009, 04:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Получить 8 или 16bit можно а вот 24bit никак smile 

Пример в архиве.

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  LinIn.rar 7,98 Kb


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 6.1.2009, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
ivan219, а твоя звуковая карта на это способна? Разрядность определяется возможностями АЦП, если у тебя 16 битный АЦП, то как из него выжать 24 бита?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
Дата 6.1.2009, 14:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Поддержевает!!!


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 6.1.2009, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
ivan219, но ты ведь сам установил 16 бит звук

см код

Добавлено через 4 секунды
Код

begin
 Result := False;
 WaveFormat.wFormatTag := WAVE_FORMAT_PCM;
 WaveFormat.nChannels := 2;
 WaveFormat.nSamplesPerSec := 96000;
 WaveFormat.wBitsPerSample := 16;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Alexeis
Дата 6.1.2009, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Еще вот посмотрел форматы поддерживаемые интерфейсом waveInХХХХ. Вот полный перечень

Цитата

WAVE_FORMAT_1M08  11.025 kHz, mono, 8-bit
WAVE_FORMAT_1M16  11.025 kHz, mono, 16-bit
WAVE_FORMAT_1S08  11.025 kHz, stereo, 8-bit
WAVE_FORMAT_1S16  11.025 kHz, stereo, 16-bit
WAVE_FORMAT_2M08  22.05 kHz, mono, 8-bit
WAVE_FORMAT_2M16  22.05 kHz, mono, 16-bit
WAVE_FORMAT_2S08  22.05 kHz, stereo, 8-bit
WAVE_FORMAT_2S16  22.05 kHz, stereo, 16-bit
WAVE_FORMAT_4M08  44.1 kHz, mono, 8-bit
WAVE_FORMAT_4M16  44.1 kHz, mono, 16-bit
WAVE_FORMAT_4S08  44.1 kHz, stereo, 8-bit
WAVE_FORMAT_4S16  44.1 kHz, stereo, 16-bit
WAVE_FORMAT_96M08  96 kHz, mono, 8-bit
WAVE_FORMAT_96S08  96 kHz, stereo, 8-bit
WAVE_FORMAT_96M16  96 kHz, mono, 16-bit
WAVE_FORMAT_96S16  96 kHz, stereo, 16-bit
 

Среди них нет формата 24 бит. Вероятно нужно использовать более новый API.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
  Дата 6.1.2009, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
А как где барть может исходничёк есть smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 6.1.2009, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
  Гм... сейчас покопал ни OpenAl ни DirectSound не умеют определять наличие поддержки формата 24 бита. Помниться в фубаре тоже такая проблема. Фубар не знает какую разрядность поддерживает звуковая карта, но предлагает установить насильно формат 24 бита если юзер уверен в поддержке. 

Так что попробуй вместо 

Код

WaveFormat.wBitsPerSample := 16;


Написать
Код

WaveFormat.wBitsPerSample := 24;


Может и сработает.

IDirectSoundCapture очень мало инфы. На русском так вообще не нашел. Нужно искать.
Если с WaveIn не прокатит то с IDirectSoundCapture должно прокатить, но опять же ставить нужно не проверяя.



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
  Дата 7.1.2009, 00:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Цитата(Alexeis @  6.1.2009,  19:09 Найти цитируемый пост)
WaveFormat.wBitsPerSample := 24;

это дело пробовал но ведь там есть буфер
Код

 TWavArrayBuf = array[0..4095] of Smallint;// 16bit
 PWavArrayBuf = ^TWavArrayBuf;

Как с ним быть ведь 3-х байтного типа нет smile а Integer непомогает идёт искажение smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 7.1.2009, 01:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Тякс DirectSoundCapture удалось получить нестандартные PCM форматы, но тема по сути не меняется.
Буфер будет из блоков по 6 байт или по 3 байта. Выборки можно доставать при помощи битовых операций. 
  Например если полезные байты 3 младших делаешь операцию AND с маской $00FFFFFF, если в 3х старших то с маской $FFFFFF00 + сдвиг вправо на 8 разрядов.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Alexeis
Дата 7.1.2009, 02:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Значит дело оказалось еще хирее. Числа ведь представлены в 3х байтовом дополнительном коде.
Значит для стерео блока я использую следующую структуру 
Код

  TSmplGroup6 = packed Record
    dw : Cardinal;
    w  : Word;
  end;


Массив определяю так
Код

  TSndDataType6 = array[0..High(Integer) div 6 - 1] of TSmplGroup6;
  PSndDataType6 = ^TSndDataType6;


Значит положительные числа достаются правильно вот так 
Код

      LeftCh := data6[i].dw and $00FFFFFF; //достаем первые 3 байта первого сэмпла
      RightCh:= (data6[i].dw and $FF000000) shr 24; //достаем 1й байт второго сэмпла
      RightCh:= RightCh OR (Cardinal(data6[i].w) shl 8); //достаем 2й и 3й байты 2го сэмпла


Однако если число отрицательное то у него знаковый бит 24й а не 32й как у Integer, по этому отрицательные числа нужно подправлять добавив $FF в старший разряд. 
Ну и в итоге для вывода выборок в чарт применяю такой код

Код

  datasize := datasize div 6;
  for I := 0 to datasize - 1
  do
    Begin
      LeftCh := data6[i].dw and $00FFFFFF;
      RightCh:= (data6[i].dw and $FF000000) shr 24;
      RightCh:= RightCh OR (Cardinal(data6[i].w) shl 8);
      if RightCh >= $800000
      then
        RightCh := RightCh OR $FF000000;

      if LeftCh >= $800000
      then
        LeftCh := LeftCh OR $FF000000;

      Series1.AddXY(i, LeftCh);
      Series2.AddXY(i, RightCh);
    End;


Кстати запись веду через DirectSound. Если интересно приведу весь код.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
Дата 7.1.2009, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Цитата(Alexeis @  7.1.2009,  02:20 Найти цитируемый пост)
Кстати запись веду через DirectSound. Если интересно приведу весь код.

Да если можно smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 7.1.2009, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
  Код пробный, но работает.

Присоединённый файл ( Кол-во скачиваний: 30 )
Присоединённый файл  recDirectSound.rar 21,69 Kb


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
  Дата 12.9.2009, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
Я всётаки его добил бинарная математика рулитsmile

Только мне не даёт покоя два вареанта решения этой проблемы.

Для моно 24бит

Код

nChannels := 1;
wBitsPerSample := 24;


вареант1
Код

type
  PByte = ^TByte;
  TByte = Array[0..0] of Byte;

var
  SignalL: Array of Longint;
  A, B, C: Byte;

         A := PByte(PWaveHdr(Param1).lpData)^[I * 3];
         B := PByte(PWaveHdr(Param1).lpData)^[I * 3 + 1];
         C := PByte(PWaveHdr(Param1).lpData)^[I * 3 + 2];
         if C and (1 shl 7) <> 0 then SignalL[I] := ($FF shl 24) or (C shl 16) or (B shl 8) or A
         else SignalL[I] := (C shl 16) or (B shl 8) or A;


Вареант 2
Код

type
  PByte = ^TByte;
  TByte = Array[0..0] of Byte;

var
  SignalL: Array of Longint;
  A, B, C: Byte;

         A := PByte(PWaveHdr(Param1).lpData)^[I * 3];
         B := PByte(PWaveHdr(Param1).lpData)^[I * 3 + 1];
         C := PByte(PWaveHdr(Param1).lpData)^[I * 3 + 2];

         SignalL[I] := ((C shl 24) or (B shl 16) or (A shl 8) or 0);
         SignalL[I] := SignalL[I] div 256;


Оба вроде работают хорошо но какой выбрать???

Это сообщение отредактировал(а) ivan219 - 12.9.2009, 18:46


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Alexeis
Дата 15.9.2009, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
  Желательно без деления. Но есть еще более быстрый вариант.
Код

var
  intgr : Integer;
begin
....//цикл
  intgr := 0;
  Move(PByte(PWaveHdr(Param1).lpData)^[n], intgr, 3);
  if intgr >= $800000 then SignalL[I] := intgr or $FF000000 else SignalL[I] := intgr;
  inc(n, 3);
...



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
Дата 21.10.2009, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 4
Всего: 12
 smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1370 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.