VPF::Захват звука - Форум программистов

webkent

Дата 4.5.2007, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

Хочу создать голосовой чат на подобии TEamSpeak и Ventrilo
В котором одновременно может общаться всего 2 чела. Коннект идет по принципу - ввожу IP и подключаюсь к другому. Короче это не важно. Искал как захватывать и отсылать звук с микрофона в реальном времени - ничего не нашел. Я пока не профи далеко, но и не совсем ламер. Объасните плиз куда рыть, может статьи какие-нибудь. Заранее спасибо. Может исходники, тоже надо будет.

Gigabyte

Дата 4.5.2007, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Студент-халявщик

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 1.11.2004
Где: ПЫтер

Репутация: нет
Всего: 3

ну захватывать звук можно и с помощью BASS.dll http://www.un4seen.com/download.php?bass23
там и примеры есть

--------------------

Alexeis

Дата 4.5.2007, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Амеба

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

Репутация: 55
Всего: 459

Gigabyte, прав. Я думал по советовать набор функций mmOut* mmIn*, но гнать несжатое аудио тоже не хорошо, загружается сеть, а BASS.dll позволит сжимать аудио на лету и отправлять сжатые блоки данных.

--------------------

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

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

гениальность идеи состоит в том, что ее невозможно придумать

webkent

Дата 4.5.2007, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

пасиб огромное буду учить этот басс

webkent

Дата 5.5.2007, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

Скажите плиз, как программно через стандартные ф-ции Делфи или через Bass.dll получить информацию о звуковом файле, к примеру 'C:\1.mp3' файл и нужно узнать название песни (так же как винамп определяет, они еще в свой сивах файла пишутся) и его время проигрывания. Очень надо. Не помешало бы еще узнать автори, группу и вообще всю инфу, но если не знаете, то хотябы напишите про имя и время.

Заранее спасибо.

Alexeis

Дата 5.5.2007, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Амеба

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

Репутация: 55
Всего: 459

webkent, в поиск по форуму mp3, Tags, ID3v1, ID3v2. Все это многократно обсуждалось. Кстати насколько я знаю Bass сам поддерживает получение информации из тегов ID3v1, ID3v2. Это должно быть в справке или примерах.

--------------------

webkent

Дата 5.5.2007, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

алексис, я посмотрел всю справку, найти не могу, подскажи плиз где =)

Alexeis

Дата 5.5.2007, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Амеба

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

Репутация: 55
Всего: 459

Цитата

char *BASS_ChannelGetTags(
    DWORD handle,
    DWORD tags
);

handle   - The channel handle... a HMUSIC or HSTREAM.
tags       - The tags/headers wanted... one of the following.
BASS_TAG_ID3 ID3v1 tags. A pointer to a 128 byte block is returned. See http://www.id3.org/id3v1.html for details of the block's structure.
BASS_TAG_ID3V2 ID3v2 tags. A pointer to a variable length block is returned. ID3v2 tags are supported at both the start and end of the file. See http://www.id3.org/ for details of the block's structure.

Добавлено через 2 минуты и 43 секунды
Погуглил и нашел еще вот такой пример

Код


(* ------------------------------------------------------------

  Этот совет не показывает как изменить заголовок.

  BASS.DLL это бесплатная библиотека для связи со звуковыми устройствами, позволяющая проигрывание MP3/MOD/.../WMA файлов а также запись, потоков из интернета и другое.
  За подробностями на http://www.un4seen.com/

-------------------------------------------------------------- *)

(* ---------- "The easy way" utility unit ---------- *):
unit B_ID3V1;

interface

uses
  Windows, Messages, SysUtils, Classes;

type
    // some standard definition
    PID3V1Rec = ^TID3V1Rec;
    TID3V1Rec = packed record
    Tag: array[0..2] of Char;
    Title: array[0..29] of Char;
    Artist: array[0..29] of Char;
    Album: array[0..29] of Char;
    Year: array[0..3] of Char;
    Comment: array[0..29] of Char;
    Genre: Byte;
  end;
const
  // несколько стандартных "genre". Нужно закончить.
  cID3V1FGenre: array[0..147] of string = ('Blues', 'Classic Rock',
    'Country', 'Dance',..., 'Synthpop');

function BASSID3ToID3V1Rec(PC: PChar): TID3V1Rec;

implementation

function BASSID3ToID3V1Rec(PC: PChar): TID3V1Rec;
var
  TempID3V1: TID3V1Rec; // only for a better checking
begin
  // fill the record with some dummy chars
  FillChar(Result, SizeOf(TID3V1Rec) - 1, '?');
  // check to see if ther's something to map
  if (PC = nil) then Exit;
  // convert/copy to the record structure
  TempID3V1 := PID3V1Rec(PC)^;
  // check to see if it's really a ID3V1 Tag
  // else just give the dummy record back
  if SameText(TempID3V1.Tag, 'TAG') then Result := TempID3V1;
end;

(* ---------- How to use this function ---------- *)
var
  ID3: TID3V1Rec;
  //...
  // after the Stream was initialized,
  // f.e. with the function "BASS_StreamCreateFile(...)"
  // after the Stream was initialized,
  // f.e. with the function "BASS_StreamCreateFile(...)"
  ID3:= BASSID3ToID3V1Rec( BASS_StreamGetTags(fStreamHandle, BASS_TAG_ID3) );
  Showmessage(
        'Title : ' + ID3.Title
        'Artist : ' + ID3.Artist
        'Year : ' + ID3.Year
        'Comment : ' + ID3.Comment
        'Genre : ' + cID3V1FGenre[ID3.Genre]
        );

Взято отсюда

--------------------

webkent

Дата 6.5.2007, 02:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

Спасиб большое, имя файла уже достал, всё сделал как надо =)) Осталось время достать и сделать полосу. Короче щас этим и зпймусь. как вы поняли я решил делать плеер для начала =)) Всё получается, Басс супер!

webkent

Дата 6.5.2007, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

извените, что много вопростов, но не смог найти как сделать так, чтобы когда пользователь выбирает мою программу для открытия звукового файла, файл автоматом после открытия проги появлялся в плейлисте?(ListBox) Типа жмем на *.mp3 правой кнопкой - открыть с помощью, выбираем мою прогу и должно начать играть. А у меня просто открывается прога и ничего не происходит.

webkent

Дата 7.5.2007, 03:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

уже почти всё готово - осталось сделать цкалу времени и поддержку wma. Если у кого какие идеи есть то прошу написать. График тоже сделал =)

webkent

Дата 7.5.2007, 04:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 4.5.2007

Репутация: нет
Всего: нет

вот в общем если кому интересно что я вообще делаю:
http://webfile.ru/1398486 - 1.4 МБ

Alexeis

Дата 7.5.2007, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Амеба

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

Репутация: 55
Всего: 459

Модератор: Пожалуйста, один топик - один вопрос.

На ваши вопросы будут ответы после того как вы создадите разные топы.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »