1) ReadSample(Number, Channel: LongInt; var Value: Integer) – процедура чтения данных из звукового файла;
2) WriteSample(Number, Channel: LongInt; Value: Integer) – процедура записи данных в звуковой файл.
Схема подпрограммы «SetVolumeOfAudio» приведена на рис. 2.20.
| Имена переменных | Тип | Описание |
| i | integer | Переменная-счетчик |
| MaxValue | Cardinal | Макс. значение ампли-туды в обрабатываемом фрагменте |
| Value | Cardinal | Текущее значение амплитуды |
| Channel | Word | Количество каналов |
| FinalVolume | Real | Значение амплитуды в конце обрабатываемого фрагмента |
Описание входных данных подпрограммы представлено в табл.2.11.
Таблица 2.11
Входные данные подпрограммы «ReChangeVolumeOfAudio»
| Имена переменных | Тип | Описание |
| AudioData | TAudioData | Передаваемая исходная совокупность значений амплитуд и времен |
| Start | Cardinal | Стартовая позиция, с которой необходимо начать обработку |
| Count | Cardinal | Количество позиций, которые необходимо обработать относительно стартовой |
Выходные данные подпрограммы:
AudioData – измененная совокупность значений амплитуд и времен с примененным эффектом возрастающей громкости.
В подпрограмме используются следующие подпрограммы:
1) ReadSample(Number, Channel: LongInt; var Value: Integer) – процедура чтения данных из звукового файла;
2) WriteSample(Number, Channel: LongInt; Value: Integer) – процедура записи данных в звуковой файл.
Схема подпрограммы «ReChangeVolumeOfAudio» приведена на рис. 2.21.
| Имена переменных | Тип | Описание |
| i | integer | Переменная-счетчик |
| MaxValue | Cardinal | Макс. значение ампли-туды в обрабатываемом фрагменте |
| Value | Cardinal | Текущее значение амплитуды |
| Channel | Word | Количество каналов |
| FinalVolume | Real | Значение амплитуды в начале обрабатываемого фрагмента |
Описание входных данных подпрограммы представлено в табл.2.13.
Таблица 2.13
Входные данные подпрограммы «ChangeVolumeOfAudio»
| Имена переменных | Тип | Описание |
| AudioData | TAudioData | Передаваемая исходная совокупность значений амплитуд и времен |
| Start | Cardinal | Стартовая позиция, с которой необходимо начать обработку |
| Count | Cardinal | Количество позиций, которые необходимо обработать относительно стартовой |
Выходные данные подпрограммы:
AudioData – измененная совокупность значений амплитуд и времен с примененным эффектом затухающей громкости.
В подпрограмме используются следующие подпрограммы:
1) ReadSample(Number, Channel: LongInt; var Value: Integer) – процедура чтения данных из звукового файла;
2) WriteSample(Number, Channel: LongInt; Value: Integer) – процедура записи данных в звуковой файл.
Схема подпрограммы «ChangeVolumeOfAudio» приведена на рис. 2.22.
| Имена переменных | Тип | Описание |
| i | integer | Переменная-счетчик |
| Buf | Int64 | Текущее значение амплитуды |
| AbsStart | Cardinal | Абсолютная позиция начала обработки |
| AbsCount | Cardinal | Абсолютное количество позиций для обработки |
| AbsFinish | Cardinal | Абсолютная позиция конца обработки |
Описание входных данных подпрограммы представлено в табл.2.15.
Таблица 2.15
Входные данные подпрограммы «ReverseAudio»
| Имена переменных | Тип | Описание |
| AudioData | TAudioData | Передаваемая исходная совокупность значений амплитуд и времен |
| Start | Cardinal | Стартовая позиция, с которой необходимо начать обработку |
| Count | Cardinal | Количество позиций, которые необходимо обработать относительно стартовой |
Выходные данные подпрограммы:
AudioData – измененная совокупность значений амплитуд и времен с обращенным звуковым сигналом.
В подпрограмме используются следующие подпрограммы: