VPF::Склеить два TMemoryStream - Форум программистов

CrazyPiggy

Дата 22.8.2013, 00:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день Есть записи в БД в которых хранится звук. Как вывести все эти записи в TMemoryStream, а затем одни разом всех их проиграть.
Делаю так

Код



procedure TMainForm.MessageVocal(Num:string) ;
var
 MS, MS1:TMemoryStream;
 Code: Word;
 zvuk:string;
 i:integer;
begin
  MS:=TMemoryStream.Create;
  MS1:=TMemoryStream.Create;
  ZVUK:=Num;
  for i:=1 to length(zvuk) do
   begin
    DM.FIBSprVocal.First;
    if  DM.FIBSprVocal.Locate('PHRASE',zvuk[i],[])  then
     begin
       DM.FIBSprVocalSOUND.SaveToStream(MS1);
       AddToStream(MS1,MS);
     end;
    MS1.Clear;
   end;
  PlaySound(MS.Memory,0,SND_MEMORY  or SND_SYNC);
  MS.Free;
  MS1.Free;
 end;

procedure  TMainForm.AddToStream ( Source , Dest : TMemoryStream );
 var
   Size : Integer ;
begin
 Source.position := 0 ;
 Size := Source.Size ;
 Dest.Write(Size,SizeOf(Integer));
 Dest.CopyFrom(Source, Source.Size);
end;

И никаких результатов. Подскажите что я делаю неправильно

Чучмек

Дата 22.8.2013, 05:48 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Цитата(CrazyPiggy @ 22.8.2013, 00:13

)

Есть записи в БД в которых хранится звук

В каком формате хранится? wav?
Если формат звука полностью идентичен (битрейд,число каналов) ,то еще можно слепить подправив заголовки.
RIFF
Проиграй записи по очереди. И не морочь себе голову.

Это сообщение отредактировал(а) Чучмек - 22.8.2013, 05:49

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

умную мысль держи при себе, а дурной - поделись с другими

CrazyPiggy

Дата 22.8.2013, 08:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

В каком формате хранится? wav?

Хранится в формате riff.

Цитата

Проиграй записи по очереди. И не морочь себе голову

Поочереди у меня получается, но мне нужно их склеить, а потом уже проигрывать

Alexeis

Дата 22.8.2013, 11:55 (ссылка)

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

Загрузка ...

Амеба

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

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

Просто так склеить их получиться только если у треков одинаковый формат. Но и в этом случае нужно будет сначала создать 3й поток, куда записать правильные заголовки с учетом суммарной длинны трека, затем скопировать только аудиоданные с 2х треков. По поводу разбора RIFF на делфи см. http://forum.vingrad.ru/topic-89826.html

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

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

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

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

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