Форум программистов, компьютерный форум, киберфорум
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 03.06.2008
Сообщений: 34
1

Как склеить два файла wav?

24.11.2012, 11:40. Просмотров 2313. Ответов 8
Метки нет (Все метки)

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
type
 
 TWaveHeader =  record    // всего-то 44 байта
 
   dummy1: array[1..4] of byte; //"RIFF"
   FileLength: cardinal;        // ну не длина файла, а длина файла минус 8 байт
   dummy2: array[1..8] of byte; //"WAVEfmt "
   ChunkLength: cardinal;       //
   dummy3: array[1..20] of byte;//
   DataLength: cardinal;
 end;
 
 
function MergeWavFiles(const SourceFiles: TStringList; const Destination: string): boolean;
var
 i, HeaderSize: integer;
 fssrc,  fssrc2, fsdest2, fsdest: TFileStream;
 destheader: TWaveHeader;
begin
 try
   fsdest := TFileStream.Create(Destination, fmCreate);
   HeaderSize := sizeof(TWaveHeader);
   try
     for i := 0 to SourceFiles.Count - 1 do
       if FileExists(SourceFiles[i]) then
       begin
         fssrc := TFileStream.Create(SourceFiles[i], fmOpenRead);
 
 
         try
           if fsdest.Size = 0 then  // копируем заголовок первого существующего файла в заголовок суммы
           begin
             fssrc.Seek(0, soFromBeginning);
             fssrc.Read(destheader, HeaderSize);
           end;
           fssrc.Seek(HeaderSize, soFromBeginning);
           fsdest.CopyFrom(fssrc, fssrc.Size - HeaderSize); // копируем только данные(без заголовков)
 
           // потом модифицируем счетчики размера
           destheader.DataLength := destheader.DataLength + fssrc.Size - HeaderSize;
           destheader.FileLength := destheader.FileLength + fssrc.Size - HeaderSize;
         finally
           fssrc.Free;
         end;
       end;
 
     fsdest.Seek(0, soFromBeginning);
     fsdest.Write(destheader, HeaderSize);
 
     Result := true;
   finally
     fsdest.Free;
   end;
 except
   Result := false;
 end;
end;
P\s: Использую два wav файла (8000, 16), но получается так что они вроде бы и склеиваются, но проигрывается через плеер только начало файла а потом ползунок плеера сразу уходит в конец, но если посмотреть в soundforge то там все как надо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2012, 11:40
Ответы с готовыми решениями:

Как воспроизвести два wav-файла одновременно (второй с некоторой задержкой)?
Как воспроизвести два wav-файла одновременно(второй с некоторой задержкой)?

Как склеить два WAV файла для записи?
Как 'склеить' два или больше wav файлов в один (конечный)файл для записи????

Склеить два wav-файла
/* Написать программу, формирующую из двух WAV файлов третий путем конкатенации файлов. */ ...

Как программно "склеить" два .WAV файла?
Сегодня с удивлением обнаружил, что если прочитать с диска два файла .MP3 в две строковые...

8
1299 / 705 / 107
Регистрация: 25.05.2011
Сообщений: 2,158
Записей в блоге: 51
25.11.2012, 10:15 2
но если посмотреть в soundforge то там все как надо.
если плеер не играет значит уже не все в порядке. soundforge не показатель ваще

есть вероятность то есть что то типа заголовка только в конце файла. Который ты в расчет не берешь именно поэтому воспроизведение обрывается.
0
0 / 0 / 0
Регистрация: 03.06.2008
Сообщений: 34
01.12.2012, 19:10  [ТС] 3
Ну так есть, кто может помочь подправить код?
0
0 / 0 / 0
Регистрация: 03.06.2008
Сообщений: 34
01.12.2012, 19:12  [ТС] 4
Ну так есть, кто может помочь подправить код?
0
0 / 0 / 0
Регистрация: 03.06.2008
Сообщений: 34
01.12.2012, 19:12  [ТС] 5
Ну так есть, кто может помочь подправить код?
0
0 / 0 / 0
Регистрация: 03.06.2008
Сообщений: 34
01.12.2012, 19:14  [ТС] 6
Ну так есть, кто может помочь подправить код?
0
156 / 299 / 47
Регистрация: 14.08.2012
Сообщений: 2,578
01.12.2012, 19:48 7
Попробуйте создать два патока, "склеить патоки", и заново создать новый файл из патока.
0
0 / 0 / 0
Регистрация: 03.06.2008
Сообщений: 34
01.12.2012, 20:48  [ТС] 8
Цитата Сообщение от саша40 Посмотреть сообщение
Попробуйте создать два патока, "склеить патоки", и заново создать новый файл из патока.
А что без дополнительных потоков ни как не оботись?, просто не хотелбы извращаться
0
1299 / 705 / 107
Регистрация: 25.05.2011
Сообщений: 2,158
Записей в блоге: 51
01.12.2012, 20:54 9
само задание уже извращение. "склеить два wav файла в ваакуме"
0
156 / 299 / 47
Регистрация: 14.08.2012
Сообщений: 2,578
02.12.2012, 15:59 10
Цитата Сообщение от Alex_pac Посмотреть сообщение
"склеить два wav файла в ваакуме"

Не по теме:

хахаха. :D
Интересно! :jokingly:

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2012, 15:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Как средствами C++ склеить 2 аудиофайла и более, например wav?
Здравствуйте, не могли бы вы подсказать, как средствами C++, склеить 2 аудиофайла и более, например...

Обрезать и склеить два файла
Есть два файла /file1.user /file2.user Нужно второй файл обрезать от начала до первого слова ,...

Как склеить два файла формата ".AVI" ?!
Существует ли простой метод для склеивания 2-х файлов типа ".avi", где 2-й является продолжением...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.