Система регистрации речи диспетчерских переговоров


	Загрузить архив:
	Файл: ref-22093.zip (1805kb [zip], Скачиваний: 117) скачать

Министерство образования РФ

Факультет К защите

Специальность Зав. кафедрой_____________

“____”_____________200 г.

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к дипломной работе на тему

Система регистрации речи диспетчерских переговоров.

Дипломник_______________________ (______________________)

Руководительработы_______________ (______________________)

Консультант по

Экономической части_______________ (_______________________)

Консультант кафедры_______________ (_______________________)

“___16___”____июня_______________2005 г.

Die Inhaltsangabe.

Das gegebeneDiplomprojektbetrachtet das Problem des Registrierungesder Rede in den Dispatcherverhandlungen. Das Programm ist mit der Nutzung der Programmiersprache - Delphi7, des ProgramminterfacesTelefonie (TAPI) entwickelt. Es wird auchdas Untersystem der Kompression des Lautesverwendet, das den Anwendungen den Satz der Servicemittel für das Umwandeln der lautlichen Formate und anderer Artender Bearbeitung der lautlichen Daten gewährt.Das System des Registrierungesder Rede funktioniert unter Leitung des Betriebssystemes Windows XP und bei Vorhandensein von dem Mechanismus BDE für die Arbeit mit den Datenbasen.

Содержание

TOC o "1-3" n 1 Введение. Технико-экономическое обоснование темы........................... 7

2 Обзор форматов преобразования звуковых данных.................................. 15

2.1 Отличия цифрового представления сигналов от аналогового................................ 15

2.2 Способы представления звука в цифровом виде.......................................................... 17

2.3 Особенности восприятия речевых данных человеком.............................................. 20

2.4 Диспетчер сжатия звука.................................................................................................... 21

2.5 Универсальные кодеки...................................................................................................... 22

2.6 Кодеки для сжатия только речи....................................................................................... 37

2.7 Рекомендации по выбору форматов................................................................................ 40

3 Программная реализация системы регистрации речи диспетчерских переговоров............................................................................................................................... 42

3.1 Общее описание программного обеспечения реализующего разработанный алгоритм 42

3.2 Программный интерфейс телефонии (TAPI).................................................................. 46

3.3 Обработка звуковых файлов в Windows........................................................................ 54

3.4 Подсистема сжатия звука в Windows............................................................................ 65

3.5 Работа с базами данных в DELPHI.................................................................................. 86

3.6 Система регистрации речи диспетчерских переговоров............................................ 95

4 Экспериментальная часть........................................................................................ 103

5 Экономическая часть................................................................................................. 105

5.1 План выполнения НИР..................................................................................................... 105

5.3 Составление сметы затрат и определение цены на НИР.......................................... 106

5.3 Оценка экономической эффективности НИР............................................................ 110

6 Безопасность и экологичность проекта........................................................ 111

6.1 Вступление......................................................................................................................... 111

6.2 Анализ опасных и вредных факторов, воздействующих на разработчика при разработке данной системы......................................................................................................................................... 112

6.2.1 Микроклимат рабочей зоны разработчика............................................................ 113

6.2.2 Освещение рабочего места...................................................................................... 114

6.2.3 Воздействие шума на разработчика. Защита от шума........................................ 115

6.2.4 Опасность повышенного уровня напряженности электромагнитного поля.....

…………………............................................................................................................................... 116

6.2.5 Электробезопасность. Статическое электричество........................................... 118

6.3 Организация рабочего места разработчика................................................................ 119

6.4 Анализ пожарной безопасности.................................................................................... 121

6.5 Расчет искусственного освещения............................................................................. 124

7 ЗаКЛЮЧЕНИЕ........................................................................................................................ 128

Список литературы............................................................................................................ 129

Приложение 1................................................................................................................................ 132

1

В связи с развитием рыночных отношений в России и необходимостью сокращения разрыва в технологическом отставании России от западных стран, актуальным становится эффективное использование новых информационных технологий. Информационный бизнес, являясь составной частью бизнеса, придает общее iRiver - пользователь может выбирать между WMA и Ogg, но вместе они быть не могут). Непонятно, почему это не делалось раньше.

· Еще один из недостатков формата OGG Vorbis - это относительная медленность упаковки и недоработанность кодеков. Впрочем, с оптимизацией программ для упаковки OGG и эти недостатки исчезнут.

2.6Кодеки для сжатия только речи

Сжатие голосовых данных неразрывно связано с вокодерными методами. Вокодер - это некий прибор (теперь он для нас является черным ящиком) или алгоритм, который осуществляет анализ и формализацию структуры голосовой информации. Затем формализованные данные можно обрабатывать обычными математическими методами - сжимать их, преобразовывать, зашифровывать, редактировать и так далее.

Вокодерные методы позволяют добиться очень высокой степени сжатия (до 100 раз), но качество звука при этом получается более чем посредственное. В коммерческих кодеках редко применяется сжатие более чем в 30 раз из соображений сохранения минимального благозвучия фонограммы. Например, кодек Voxware MetaVoice позволяет разместить 1 минуту звучания в файле размером 25 Кb, что соответствует сжатию в 37 раз. Необходимо подчеркнуть, что оцифровку голоса рекомендуется проводить только при частоте 8 KHz, разрядности 16 bit, и в монофоническом режиме. Это стандарт, многие кодеки просто не поддерживают другие параметры. Характеристики наиболее широко распространенных кодеков сведены в таблицу 2. Степень сжатия указана относительно исходного 1-минутного файла PCM 8 KHz/16 bit/mono, размер которого - 938 Kb.

Таблица 2

формат | степень сжатия, раз (приблизительно) | 1 минута, Kb

MSN 13000 Baud 10 96

MSN8000 Baud 15 61

MS GSM 6.10 10 96

DSP Group TrueSpeech 15 63

L&H CELP 4,8 25 36

L&H SBS 12 10 87

ACELP.net 5 25 37

ACELP.net 8,5 15 62

Сжатие голосовых сигналов широко применяется в IP-телефонии, которая без этого была бы невозможна. Недостаток всех перечисленных кодеков - они не обладают свойством изменения скорости потока данных в зависимости от передаваемого сигнала. А ведь разговорная речь, даже в случае монолога, содержит паузы, на время которых канал передачи можно закрывать, получая тем самым дополнительную экономию. Эффективная система передачи голоса обязательно должна обеспечивать подавление пауз. Режим переменного битрейта является родным в формате OGG Vorbis, который обеспечивает степень сжатия большую, чем MP3.

1) GSM 6.10

Этот кодек сжимает в 10 раз (приблизительно). Поддерживает только моно. Особенность кодека - у него есть панель настройки, на которой устанавливаются предельные частоты сжатия и воспроизведения. Качество звука среднее. Системные требования низкие - сжатие на 44 100 KHz в режиме реальном времени проходит уже на Pentium-100.

2) DSP Group TrueSpeech

Сжимает в 15 раз, то есть одна минута занимает 63 Kb. Особенность - поддерживает только исключительно частоту 8 KHz, моно. Мало этого, так еще этот кодек требует обязательно установленного флага "Non Realtime". Хотя, при установленном этом флаге прекрасно работает и в реальном времени. Качество звука несколько хуже, чем у GSM, но достаточное. Системные требования относительно низкие - работает в режиме реального времени, начиная с Pentium-75 или AMD-5x86-133 MHz. Можно рекомендовать такой кодек для архивирования больших объемов телефонных или диспетчерских переговоров.

3) MSN - Microsoft Network Audio codec

Название говорит само за себя. Степень сжатия - около 10 раз. Качество звука на 13 000 Baud - хорошее, а на 8 000 Baud - не очень.

4) Lermount & Haspie SBC/CELP

Фирма Lermount & Haspie известна своими системами распознавания речи, которые одно время лидировали на рынке. Кодеки SBC/CELP входят в состав программы Net Meeting, которая предназначена для общения по локальной сети. Кодеки отличаются большой степенью сжатия, однако, качество звука невысокое.

5) ACELP.net

Этот кодек о себе сообщает следующее: "ACELP.net audio encoder/decoder. For licensing please access http://www.sipro.com". Изготовленонфирмой Sipro Lab Telecom Inc, Montreal. Видимо, разработка более современная, так как он сочетает значительную степень сжатия (до 25 раз) с хорошим качеством звука. Отсутствует хрипение, характерное для L&H CELP. Системные требования высокие. Поддерживает только моно, и только частоты 8000 и 16000 KHz. В целом производит хорошее впечатление.

2.7 Рекомендации по выбору форматов

Широкой публике не известен факт, что микрофонный вход во всех стандартных звуковых картах является монофоническим. Поэтому мы наблюдаем такие нелепые вещи, как, например, совет в уважаемом журнале "Компьютер-пресс" записать голосовое поздравление с микрофона в формате MP3 56kBit/s 24 kHz, Stereo. Вот Stereo здесь совсем ни к чему, и частота неоправданно высокая - для голоса вполне хватает 8000 Hz. Выбирать частоту выше - просто бессмысленно. Выбрав более подходящий формат, мы вместо файла размером 207 Kb (30 секунд звука) получаем файл размером всего 30 Kb - экономия в 7 раз.

При записи голоса оправдано выбирать частоты: 8000 Hz, - если источник - телефон или связная аппаратура; 12000 - если это радиопрограмма на длинных, средних, коротких волнах (в общем, с амплитудной модуляцией). При радиовещании на FM/УКВ с частотной модуляцией, согласно международным стандартам, диапазон передаваемого звука - от 20 до 15000 Hz. Таким образом, очевидно, что для записи такого сигнала оправдано выбрать частоту 32000 Hz. Впрочем, на практике хорошо идет и частота 22050 Hz. Более высокие частоты - просто бесполезный расход дискового пространства.

3

Общее описание программного обеспечения реализующего разработанный алгоритм

Основной идеей дипломного проекта, является реализация алгоритма обслуживающего предоставленные технические средства и удовлетворяющего параметрам поставленной задачи. Поэтому автором было принято решение не разрабатывать целиком всё программное обеспечение, а использовать имеющиеся в наличии компоненты, которые не решают поставленной задачи без построения автором соответствующего алгоритма. Эти инструменты были автором соответственным образом изучены и частично использованы при реализации алгоритма.

Исходя из ниже перечисленных достоинств автор остановился на таком языке программирования как Delphi:

1) Для кого предназначен Delphi

В первую очередь Delphi предназначен для профессионалов-разработчиков корпоративных информационных систем. Однако Delphi предназначен не только для программистов-профессионалов. Любой программист на Pascal способен практически сразу профессионально освоить Delphi. Специалисту, ранее использовавшему другие программные продукты, придется труднее, однако самое первое работающее приложение он сможет написать в течение первого же часа работы на Delphi. И, конечно же, открытая технология Delphi является мощным гарантом того, что инвестиции, сделанные в Delphi, будут сохранены в течение многих лет.

2) Высокопроизводительный компилятор в машинный код

В отличие от большинства Паскаль-компиляторов, транслирующих в p-код, в Delphi программный текст компилируется непосредственно в машинный код, в результате чего Delphi- приложения исполняются в 10-20 раз быстрее (особенно приложения, использующие математические функции). Готовое приложение может быть изготовлено либо в виде исполняемого модуля, либо в виде динамической библиотеки, которую можно использовать в приложениях, написанных на других языках программирования.

3) Открытая компонентная архитектура

Благодаря такой архитектуре приложения, изготовленные при помощи Delphi, работают надежно и устойчиво. Delphi поддерживает использование уже существующих объектов, включая DLL, написанные на С и С++, OLE сервера, VBX, объекты, созданные при помощи Delphi. Из готовых компонент работающие приложения собираются очень быстро.

4) Библиотека визуальных компонент

Эта библиотека объектов включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE.

5) Компоненты доступа к базам данных и визуализации данных

Библиотека объектов содержит набор визуальных компонент, значительно упрощающих разработку приложений для СУБД с архитектурой клиент-сервер.Объекты инкапсулируют в себя нижний уровень - Borland Database Engine.

Предусмотрены специальные наборы компонент, отвечающих за доступ к данным, и компонент, отображающих данные. Компоненты доступа к данным позволяют осуществлять соединения с БД, производить выборку, копирование данных, и т.п.

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

Рис 3 Delphi: настраиваемая cреда разработчика

Ha cтpaницe Standard палитры компонентов сосредоточены стандартные для Windows интерфейсные элементы, без которых не обходится практически ни одна программа (рис 4).

Рис 4

B страницу Additonal помещены 18 дополнительных компонентов, с помощью которых можно разнообразить вид диалоговых окон (рис 5).

Рис 5

Страница Win32 содержит интерфейсные элементы для 32-paзpядныx

операционных систем Windows 95/98/NT/2000 (рис 6).

Рис 6

Cтpaницa BDE (рис.7) - здесь представлены компоненты, поддерживающие доступ к данным с помощью BDE - Table, Query, StoredProc и т. п. Mexaнизм BDE в равной степени успешно работает как с фaйл-cepвepными, так и с клиeнт-cepвepными БД. Кoмпoнeнты этой страницы есть во всех версиях Delphi.

Рис 7

Cтpaницa Data Controls. 15 кoмпoнeнтoвэтoй cтpaницыпpeднaзнaчeныдля визyaлизaциидaнныx, иx ввoдa и peдaктиpoвaния (рис.8).

Рис 8

Программный интерфейс телефонии (TAPI)

Microsoft Win32 прикладной программный интерфейс телефонии (TAPI) обеспечивает услуги, которые дают возможность прикладному разработчику добавить телефонную связь к приложениям, разработанным для операционных систем, которые поддерживают Microsoft ® Win32 ® API

Чтобы обеспечивать лучшую работу (выполнение) и поддержку на платформе Windows NT и на будущих выпусках платформы Windows 95, Win32 API телефонии и его поставщики услуг и компоненты поддержки полностью осуществлены как 32-разрядные компоненты в Win32. В дополнение к полному 32-разрядному выполнению, Win32 TAPI включает эти много новых особенностей:

ﾷ родная 32-разрядная поддержка. Все ядро TAPI компоненты - Win32, с полной поддержкой процессоров не Intel (выполняющийся Windows NT), симметрические многопроцессорные, многопоточные приложения, и приоритетная многозадачность.

ﾷ 32-разрядная прикладная мобильность. Существование Win32 полного TAPI и помогает приложениям TAPI, которые в настоящее время работают на Windows 95 (использующие TAPI 1.4 API) выполненный на Windows NT на Intel x86 семейство микропроцессоров без модификации или перетрансляции.

ﾷ 16-разрядная прикладная мобильность. Существование Win16 полного TAPI и помогаетприложениям TAPI, которые в настоящее время работают на Windows 95 и операционной системе Windows - 3.1 (использующие TAPI 1.3 API) выполненный на Windows NT без модификации или перетрансляции.

ﾷ поддержка уникода. Win32 приложения может выбрать существующий ANSI-код функциями TAPI или вызывать версии юникода функций, которые передают или возвращают строки (функции с суффиксом "W").

ﾷ сервисные процессы. TAPI 2.0 добавляет механизмы для того, чтобы уведомить приложения событием телефонии, притом не требуется чтобы приложение имело окно, таким образом давая возможность фоновым сервисным процессам легко использовать TAPI услуги.

ﾷNDISTAPI совместимость. Существующая поддержка в Windows NT 3.5 для минипортов глобальной сети цифровой сети комплексного обслуживания под Службой удаленного доступа сохраняется. NDIS драйверы минипорта глобальной сети поддерживаются при поставщике услуг привилегированного режима без модификации.

ﾷ поддержка системного реестра. Все параметры телефонии сохранены в системном реестре. Поставщики услуг телефонии и все сохраненные параметры могут быть модифицированы во время работы локальной сети.

ﾷ поддержка Центра Запроса. TAPI поддерживает функциональные возможности, требуемые в среде центра запроса, включая моделирование прогнозирующих портов набора номера и очередей, управления агента устройства автоматического распределения вызовов, управления состояния набора станции, и централизованной синхронизации случая.

ﾷ качество Обслуживания (QOS) Приложения могут запросить, договориться, и повторно договориться о качестве обслуживания, и получить индикацию относительно QOS на прибывающих запросах и когда QOS изменен сетью.

ﾷ расширенное совместное использование устройства. Приложения могут ограничить обработку прибывающих запросов на устройстве к отдельному адресу, поддерживать особенности типа звонящего и при использовании указать ожидаемый режим носителей прибывающих запросов. Приложения, делающие экспортные запросы могут установить конфигурацию устройства при создании запроса.

ﾷ компоненты непривилегированного режима. Полная TAPI система, включая поставщика услуг верхнего уровня DLLs, выполняется в непривилегированном режиме.

Телефония - технология, которая интегрирует компьютеры с телефонной сетью. С телефонией, люди могут использовать их компьютеры, чтобы использовать в своих интересах широкий диапазон сложных особенностей связи и услуг по телефонной линии.

Прикладной программный интерфейс телефонии (TAPI) позволяет программистам разрабатывать приложения, которые обеспечивают личную телефонию пользователям. TAPI поддерживает и речь и передачу данных, учитывает разнообразие конечных устройств, и поддерживает сложные типы подключения и методы управления запроса типа запросов конференции, режима отложенного звонка, и речевой почты.

1)Использование телефонии в приложениях

Возможности телефонии помогают людям получать большую выгоду от системы передачи данных, разрешая ей более эффективно управлять их запросами голоса и управлять их операциями передачи данных. Вы можете использовать TAPI, чтобы продемонстрировать эту эффективность любому менеджеру базы данных приложения, электронной таблице, приложению обработки текстов, посылая и получая данные через телефонную сеть.

TAPI дает вам непротиворечивый набор инструментальных средств для того, чтобы включить эти особенности в ваши приложения:

ﾷ соединяются непосредственно с телефонной сетью, а не полагаются на отдельное приложение связи

ﾷ номера телефона набираются автоматически

ﾷ передаются документы как файлы, факсы, или электронная почта

ﾷ данные доступа от поиска новостей и других информационных служб

ﾷ установка и управление запросами конференции

ﾷ получение, сохранение, и сортировка речевой почты

ﾷ идентификация вызывающей программы использования, чтобы автоматизировать обработку входящих запросов

ﾷ управление операциями удаленного компьютера

ﾷ совместная работа, используя телефонные линии

TAPI обеспечивает ваше приложение доступом к телефонной сети. Вы обеспечиваете ваших пользователей доступом к этим особенностям. Это означает, что вы выбираете и создаете интерфейс пользователя, который является совместимым с остальной частью вашего приложения. Вы выбираете интерфейс, и позволяете TAPI выполнять работу управления телефонными подключениями (связями).

2)Сетевые услуги

TAPI обеспечивает доступ к разнообразным телефонным сетевым услугам. Хотя эти услуги могут использовать различные технологии, чтобы установить запросы и передать голос и данные, TAPI делает их сервисно-определенными ипрозрачными для приложений. Это означает, что Вы можете создать приложения, которые могут использовать в своих интересах любую доступную службу без включения сервисного определенного кода в вашем приложении.

Использование TAPI для обычной телефонной сети является прямым, потому что обычная телефонная сеть сравнительно проста. Обычно используется только один тип информации (типа данных или голоса) в запросе.

3)Компоненты Телефонии

Базируемая на Windows Открытая Архитектура Услуг (WOSA) модель, Windows Телефония состоит из TAPI и TAPI32 библиотек динамической связи (которые заставляют приложение, посылать запрос Службе Телефонии на обработку), TAPISRV.EXE (который осуществляет и управляет функциями TAPI) и одним или более поставщиками услуг телефонии (драйверы). TAPI обеспечивает не зависящий от устройства интерфейс для того, чтобы выполнить задачи телефонии. Поставщики услуг - библиотеки динамической связи, которые выполняют и возможно зависящие от устройств действия нижнего уровня.

Когда приложение вызывает функцию TAPI, TAPI динамически компонуемая библиотека проверяет правильность и генеральные параметры функции и передает управление TAPISRV.EXE. TAPISRV (Служба Телефонии) обрабатывает запрос и направляет запрос соответствующему поставщику услуг. Чтобы получать запросы от TAPISRV, поставщик услуг должен осуществить интерфейс драйвера службы Телефонии (TSPI). Поставщик услуг может обеспечить различные уровни интерфейса драйвера службы: основной, дополнительный, или расширенный (продленный). Например, простой поставщик услуг мог бы обеспечить основное обслуживание (службу) телефонии, типа поддержки запросам выхода, через Hayes-совместимый модем. Заказной поставщик услуг, написанный сторонним продавцом, мог бы обеспечить полный диапазон приходящей и уходящей поддержки запроса.

Приложения используют функции TAPI, чтобы определить, какие услуги являются доступными на данном компьютере. TAPI определяет, какие поставщики услуг являются доступными, и обеспечивает информацию об их возможностях к приложениям. Этим способом, любое приложение может запросить услуги от того же самого поставщика услуг; TAPI управляет всем доступом к поставщику услуг.

Для разработки алгоритма будем использовать компоненты TAPI 2.2 для Delphi7 (рис 9):

Рис 9

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

Компоненты TAPILineService и TAPIPhoneService инкапсулируют различные функции соответствующей службы TAPI. Задачей этих сервисов является загружать TAPI.DLL и согласовывать соглашения версий.

Руководящие устройства (TAPILineDevice, TAPIPhoneDevice) - это абстракция аппаратных средств типа модема / ISDN карты или телефона.

Линии – TAPILine. Каждому руководящему устройству могут быть подчинены различные линии.

Объект TTapiCallParams помогает вам формировать необходимую структуру TAPI.

Адрес – TAPIAddress. Минимум один адрес подчинен каждой линии. TAPI отличает 2 различных адресных формата: выборный и AddressID.

Вызовы – TAPICall.Вызов представляет подключение (связь) по меньшей мере, двух адресов.

Таблица 3

Свойства компонент	Пояснение
TTapiLine.Active	Это свойство активирует и дезактивирует прибор строки телефонии
TTapiLine.MediaModes	Это - набор разрядных флажков, которые указывают режимы носителей, которые используются, когда прибор строки TAPI активизирован, устанавливая TTapiLine
TTapiLine.Privileges	Это свойство используется, чтобы управлять привилегией, которую TTapiLine элемент хочет иметь к входящему, и исходящему запросу
TTapiLine.Device	Указывается компонент типа TAPILineDevice
TTapiCallParams.BearerMode	Этот свойство указывает режим, который используется, когда создан запрос.
TTapiCallParams.AddressID	Это свойство указывает адрес, который используется, когда создан запрос
TTapiCallParams. CallParamsFlags	Это - набор разрядных флажков, который использует LINECALLPARAMFLAGS_ константы
TTapiCallParams.MediaMode	Этот свойство указывает MediaMode, который используется, когда создан запрос
TAPILineDevice. LineMapper	Разрешает TAPI определить нужное устройство самостоятельно.
TAPILineDevice.ID TAPIPhoneDevice.ID	Идентификатор устройства подключенного к линии.
TAPILineService.AppName TAPIPhoneService.AppName	Это название приложение, которое посылало или первоначально принимало запрос или ответило на запрос.
TAPICall.Info.CallerID	Это свойство содержит информацию, которая идентифицирует возникающий адрес запроса.
TAPIPhone.SpeakerHookSwitchMode	Устанавливает режим работы общей связи
TAPIPhone.SpeakerVolume	Объем звуковых данных общей связи
TAPIPhone.SpeakerGain	Коэффициент усиления общей связи
TAPIPhone.HeadSetHookSwitchMode	Устанавливает режим работы наушников
TAPIPhone.HandSetHookSwitchMode	Устанавливает режим работы микрофона
TAPIPhone.HeadSetVolume	Объем звуковых данных наушников
TAPIPhone.HeadSetGain	Коэффициент усиления наушников
TAPIPhone.HandSetVolume	Объем звуковых данных микрофона
TAPIPhone.HandSetGain	Коэффициент усиления микрофона

Таблица 4

Методы объектов	Пояснение
TAPIAddress1.OutboundCall.MakeCall	Функция размещает запрос на строке
TAPICall1.Drop TAPIAddress1.OutboundCall.Drop;	Метод понижает или разъединяет точно установленный запрос. Запрос типично перемещается в неактивный запрос, и будет через некоторое время освобожден
TAPIAddress1.InboundCall.Answer	Метод отвечает на точно установленный запрос предложения. После того, как запросу успешно ответили, состояние запросов типично переходит на связанное состояние
TAPICall1.DeallocateCall	В TAPI больше ненужный (неактивный) запрос должен быть удален, чтобы освободить внутренние ресурсы.
TAPIAddress1.InboundCall.Accept	Функция принимает точно установленный предлагаемый запрос. И показывает что приложение примет контроль вызова.

Таблица 5

События	Пояснения
TAPILineDevice.OnStateReMoved	При удалении устройства из системы
TAPILineDevice. OnStateRinging	Событие вызывается тогда, когда “ИН” (Индикатор звонка) обнаружил активный сигнал в порту
TAPICall. OnInfoCallerId	CallerID информация появилась или изменилась
TAPICall. OnReply	При ответе устройства на запрос
TAPICall. OnStateBusy	При состоянии в линии – ‘занято’
TAPICall. OnStateConnected	При состоянии соединения
TAPICall. OnStateDisconnected	При состоянии разъединения
TAPICall. OnStateIdle	События появляется если запрос находится в неактивном состоянии
TAPICall. OnStateOffering	Входящий запрос обнаружен на строке
TAPICall.OnStateProceeding	Появляется когда идет набор номера, и запрос продолжает проходить сквозь коммутатор или телефонную сеть.

Обработка звуковых файлов в Windows

Наряду с базовой подсистемой файлового ввода/вывода, представленной функциями CreateFile, ReadFile, WriteFile и т.п., в Windows существует подсистема мультимедийного (звукового, видео и им подобного) файлового ввода/вывода MMIO (Multimedia Input/Output). Подсистема была введена еще в Windows 3.x, и позволяет удобно и эффективно работать со звуковыми и видеофайлами, а также упрощает работу с файлами, размещенными в оперативной памяти (memory files).

1) Файлы типа RIFF

Подсистема может оперировать с двоичными файлами любого типа, однако она содержит стандартные средства для работы с файлами типа RIFF (Resource Interchange File Format - формат файла обмена ресурсами). Фирмы Microsoft и IBM предложили этот формат в качестве универсального средства организации и хранения данных с иерархическо-последовательной структурой в системах Windows и OS/2.

Структуру RIFF имеют файлы типа WAV (поток оцифрованного звука), IDF (описатель MIDI–инструмента), AVI (поток оцифрованного изображения и звука), ANI (описатель "оживленного" (анимированного) курсора мыши), RMI (один из видов MIDI–партитуры) и многие другие. Creative Labs использует формат RIFF в файлах типа CSP (программы для специализированного звукового процессора ASP звуковых адаптеров Sound Blaster) и SBK/SF2 (загружаемых банков инструментов для звуковых адаптеров классов Sound Blaster AWE и Live!). Универсальный формат загружаемых банков инструментов DLS (DownLoadable Sounds), принятый в качестве стандарта ассоциацией производителей MIDI–систем (MMA - MIDI Manufacturers Association), построен на основе RIFF. Фирма Aureal применяет этот формат для построения загружаемых банков инструментов для своих звуковых чипов.

2) Разделы RIFF–файлов

Файлы типа RIFF состоят из разделов (chunk - кусок). Раздел содержит набор данных определенного типа. Большая часть разделов непосредственно представляет наборы данных, однако некоторые разделы содержат внутри себя подразделы (subchunks), которые представляют собственно поток данных, его параметры, формат и т.п. Охватывающий раздел в этом случае называется главным, или родительским (parent chunk).

3) Код FOURCC

Для обозначения типов разделов, а также в некоторых других целях, используется специальный код. Тип FOURCC (Four-Character Code - четырехсимвольный код) представляет собой двойное слово (DWORD), содержащее слово из 1..4 ASCII–символов - "RIFF", "wave", "fmt" и т.п. Слова короче четырех символов дополняются справа пробелами.

Порядок символов в двоичном представлении типа FOURCC тот же, что и в файле: первый символ представляется младшим байтом, а последний - старшим. Поэтому простое присваивание символьной константы (например, 'fmt ') даст обратное расположение байтов в двойном слове. Для корректного формирования значения можно использовать макросы MAKEFOURCC и mmioFOURCC.

Для кодов главных разделов определены константы FOURCC_RIFF и FOURCC_LIST.

4) Ключи мультимедийных файлов

Как и в случае обычных файлов Windows, для доступа к мультимедийному файлу используется его ключ - числовое значение, возвращаемое функцией mmioOpen. Фактически, ключ файла представляет собой указатель системного описателя файла, расположенного в памяти подсистемы MMIO.

Ключи обычных и мультимедийных файлов несовместимы между собой, однако уже открытый обычный файл можно повторно открыть в подсистеме MMIO, передав его ключ (типа HANDLE) функции mmioOpen.

5) Информационная структура файла

Для каждого открытого файла подсистема MMIO поддерживает информационную структуру, описывающую режимы работы с файлом и его параметры. Базовая информационная структура находится внутри самой подсистемы MMIO, приложение может поддерживать собственную локальную копию типа MMIOINFO в своей собственной области памяти.

6) Буферизация файлового обмена

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

Непосредственный обмен подразумевает прямое чтение информации с диска и запись ее обратно на диск, и эффективен в том случае, когда обмен с файлом идет большими (несколько килобайт или больше) блоками данных, размеры которых кратны размеру сектора диска (обычно 512 байтов), и сами блоки начинаются также на границе сектора. При обмене мелкими (несколько десятков или сотен байтов), или некратными сектору блоками резко возрастают накладные расходы.

При буферизованном обмене между приложением и файлом находится так называемый буфер файла. При чтении из файла вначале неявно считывается полный буфер, а последующие функции чтения выбирают нужные порции данных из буфера, не обращаясь при этом к диску. При записи все работает наоборот: функции записи вначале заполняют буфер, а затем полностью записанный буфер неявно переносится в файл одной операцией записи.

Строго говоря, в MMIO даже непосредственный обмен с файлом включает простую скрытую буферизацию в самой подсистеме, так как минимальной единицей обмена данными с диском является сектор.

7) Процедуры обмена данными

Файловые функции MMIO на самом деле являются промежуточными. Весь фактический обмен с файлом выполняют так называемые процедуры обмена (I/O Procedures). Стандартные процедуры обмена обслуживают файлы на дисковых устройствах и в оперативной памяти; пользовательские процедуры могут обслуживать файлы на любом носителе, или даже полностью виртуальные файлы, не имеющие физического представления.

8) Структура звуковых файлов RIFF/WAVE

Файлы типа RIFF/WAVE служат для хранения оцифрованных звуковых потоков в различных звуковых форматах - PCM, ADPCM, a-Law, GSM, Audio MPEG и т.п. Стандартное расширение для файлов этого типа - WAV.

Минимальный состав WAVE–формы включает два подраздела: формата и данных. Раздел формата имеет код "fmt", и содержит описатель формата звуковых данных в виде расширенной структуры WAVEFORMATEX. Раздел данных состоит либо из одного подраздела "data", содержащего единый поток звуковых данных в цифровом виде, либо из подраздела-списка "wavl", содержащего последовательность из подразделов "data" и "slnt" (silent - тихий). Каждый подраздел "data" задает отдельный фрагмент звучания, подраздел "slnt" - фрагмент тишины (паузу) заданной длительности.

Для форматов, отличных от PCM, и в случае использования списка "wavl" после раздела "fmt" вставляется дополнительный раздел "fact". Первое двойное слово (DWORD) области данных раздела "fact" содержит общее количество звуковых отсчетов (samples) в файле. При помощи этого параметра можно определить время воспроизведения файла, поделив количество отсчетов на значение поля nSamplesPerSec в описателе формата, или вычислить объем, который поток займет после восстановления в PCM - умножив количество отсчетов на значение поля nBlockAlign в описателе выбранного для восстановления формата PCM.

В настоящее время область данных раздела "fact" включает только описанное поле, однако в будущем она может быть расширена добавлением дополнительных полей. Это необходимо иметь в виду, ориентируясь на размер области данных раздела, указанный в его заголовке. По размеру области данных можно узнать о наличии в разделе полей расширения.

В качестве необязательных элементов звукового файла перед разделом данных могут присутствовать разделы "cue" (список "флажков", или "закладок" внутри звукового потока - cue points), "plst" (порядок воспроизведения фрагментов - playlist), "adtl" (раздел типа "LIST", разная дополнительная информация о файле - associated data list) и т. п.

9)Структуры, используемые в MMIO

MMCKINFO - описатель раздела файла

Описывает раздел файла типа RIFF. Первые три поля структуры представляют собой заголовок раздела в том же виде, в котором он присутствует в файле; поле fccType присутствует только в заголовках главных разделов.

FOURCCckid;

DWORDcksize;

FOURCCfccType;

DWORDdwDataOffset;

DWORDdwFlags;

§ckid - код (идентификатор) раздела.

§cksize - размер области данных раздела в байтах. Поле отражает точный размер области данных; в него не входит размер заголовка и возможный дополнительный байт, автоматически дописываемый к области данных нечетного размера.

§fccType - тип главного раздела, если в поле ckid указан код "RIFF" и "LIST".

§dwDataOffset - смещение области данных раздела относительно начала файла. Значение этого поля удобно использовать в функции mmioSeek для позиционирования на начало области данных.

§dwFlags - флаги состояния раздела.

MMIOINFO - информационная структура файла

Описывает состояние открытого файла, его буфера и процедуры обмена данными.

DWORDdwFlags;

FOURCCfccIOProc;

LPMMIOPROCpIOProc;

UINTwErrorRet;

HTASKhTask;

LONGcchBuffer;

HPSTRpchBuffer;

HPSTRpchNext;

HPSTRpchEndRead;

HPSTRpchEndWrite;

LONGlBufOffset;

LONGlDiskOffset;

DWORDadwInfo[4];

DWORDdwReserved1;

DWORDdwReserved2;

HMMIOhmmio;

§dwFlags - режимы открытия/опроса и флаги состояния файла, копируемые из параметра Mode функции mmioOpen.

§fccIOProc - код установленной процедуры обмена. Если функция не является установленной - поле имеет нулевое значение. Для файлов универсальной структуры стандартная функция обмена имеет код "DOS".

§pIOProc – указатель процедуры обмена. Если приложение не использует процедуру обмена, в этом поле находится указатель стандартной процедуры обмена файловой подсистемы.

§wErrorRet – код ошибки, возвращаемый при неудачном завершении функции mmioOpen.

§hTask – ключ задачи (task), созданной для процедуры обмена.

§cchBuffer - размер буфера файла. Для файлов без буфера поле имеет нулевое значение.

§pchBuffer - указатель буфера файла. Для файлов без буфера поле имеет нулевое значение.

§pchNext - указатель текущей позиции в буфере.

§pchEndRead - ограничитель чтения в буфере.

§pchEndWrite - ограничитель записи в буфере.

§lBufOffset - зарезервированное поле для служебного использования.

§lDiskOffset - текущее смещение внутри файла. Поле управляется процедурами обмена.

§adwInfo - дополнительная информация, используемая процедурами обмена. Используется также для передачи дополнительных данных при открытии файла.

§dwReserved1, dwReserved2 - зарезервированные поля.

§hmmio - ключ открытого файла.

10) Функции MMIO

Классы функций

Средства мультимедийной файловой подсистемы включают три основных класса функций:

базовые - открытие, закрытие, чтение и запись файлов. Этот класс практически аналогичен стандартным средствам работы с файлами языка C.
управления буферизацией - создание или установка промежуточного буфера и манипуляции с ним, а также - с текущей позицией буфера.
работы с форматом RIFF - операции с файлами универсального формата RIFF.

Все функции интерфейса имеют имена с префиксом mmio. В заголовке описания каждой функции этот префикс опущен; полное имя каждой функции приведено в ее прототипе.

Перечень базовых функций :

Таблица 6

mmioStringToFOURCC	Преобразование строки ASCIZ в код FOURCC
mmioOpen	Открытие или опрос файла
mmioClose	Закрытие файла
mmioRename	Переименование файла
mmioRead	Чтение из файла
mmioWrite	Запись в файл
mmioSeek	Позиционирование по файлу

Перечень функций управления буферизацией:

Таблица 7

mmioGetInfo	Запрос информационной структуры файла
mmioSetInfo	Модификация информационной структуры файла
mmioSetBuffer	Установка буфера для файла
mmioAdvance	Продвижение по файлу
mmioFlush	Принудительная запись буфера в файл

Перечень функций работы с форматом RIFF:

Таблица 8

mmioCreateChunk	Создание раздела
mmioAscend	Выход из раздела
mmioDescend	Вход в раздел

Перечень остальных функций интерфейса:

Таблица 9

mmioSendMessage	Посылка произвольного сообщения процедуре обмена
mmioInstallIOProc	Установка процедуры обмена
IOProc	Прототип процедуры обмена

Возвращаемые значения

Для функций, возвращающих значения типа MMRESULT, а также для ряда других, определены константы кодов завершения с префиксами MMSYSERR_ и MMIOERR_.

Таблица 10

FILENOTFOUND	Файл не найден
OUTOFMEMORY	Недостаточно памяти
CANNOTOPEN	Невозможно открыть файл
CANNOTCLOSE	Невозможно закрыть файл
CANNOTREAD	Невозможно прочитать из файла
CANNOTWRITE	Невозможно записать в файл
CANNOTSEEK	Невозможно позиционировать файл
CANNOTEXPAND	Невозможно расширить файл
CHUNKNOTFOUND	Раздел не найден
UNBUFFERED	Файл открыт для непосредственного доступа
PATHNOTFOUND	Недопустимый путь (устройство и/или каталог)
ACCESSDENIED	Доступ к файлу запрещен
SHARINGVIOLATION	Нарушение условий совместного доступа
NETWORKERROR	Ошибка сетевой подсистемы
TOOMANYOPENFILES	Нет свободных описателей ключей для нового файла
INVALIDFILE	Общая ошибка, неудача по неизвестной причине

Подсистема сжатия звука в Windows

1) Драйверы, преобразователи, кодеки, фильтры

В ACM существует два вида обработки звука:

Преобразование формата - изменение способа представления звуковых данных, перекодировка их из одного представления в другое без изменения общих свойств самого звука.
Фильтрование - обработка звука в потоке (усиление/ослабление, изменение АЧХ, наложение звуковых эффектов и т.п.) без изменения формата.

Модули драйверов ACM, реализующие функции преобразования форматов, называют преобразователями формата (format convertors). Модули, реализующие функции фильтрования, называются фильтрами (filters). Один и тот же подключаемый драйвер может совмещать в себе различные функции, а также - содержать более одного преобразователя или фильтра.

Преобразование форматов, при котором меняется тип (tag) формата, обычно сопровождается изменением объема звуковых данных. Такие виды преобразования называются сжатием (compression) или восстановлением (decompression). Сжатию обычно подвергаются данные в формате PCM, а при восстановлении формат PCM обычно имеет результат операции. Преобразователи формата, реализующие сжатие/восстановление, называются кодеками (codec - coder/decoder или compressor/decompressor).

2) Аппаратная поддержка драйверов

Большинство драйверов ACM являются программными - они используют для своей работы только ресурсы центрального процессора, и не нуждаются в каких-либо дополнительных аппаратных средствах. Для успешной работы программного драйвера необходим лишь достаточно мощный центральный процессор и необходимое количество основной памяти.

При наличии в системе DSP (Digital Signal Processor - цифровой сигнальный процессор), который может обрабатывать звук практически без участия центрального процессора, для него может быть разработан драйвер ACM, выполняющий обработку звука средствами этого DSP. Сам DSP при этом может быть, как встроен в системную плату, так и находиться на одной из плат расширения. В этом случае говорят, что драйвер ACM имеет аппаратную поддержку.

Некоторые звуковые устройства поддерживают аппаратное преобразование форматов в реальном времени при вводе/выводе звука - например, они могут выдавать записываемый звук сразу в формате ADPCM, сжимая его "на ходу" при помощи встроенного DSP. Несмотря на то, что такие устройства бесполезны для полнофункционального драйвера ACM и полностью поддерживаются базовой звуковой подсистемой MME/Wave, ACM предоставляет некоторые удобства в отношении и таких устройств. ACM содержит средства поиска и выбора форматов по различным критериям, и одним из таких критериев является аппаратная поддержка формата одним из звуковых адаптеров - при вводе и/или при выводе.

Поскольку формально подсистемы MME/Wave и ACM никак не связаны между собой, для определения аппаратно поддерживаемых форматов такой звуковой адаптер должен быть снабжен упрощенным драйвером ACM, который и будет выделять поддерживаемые адаптером форматы из общего списка, а также - возвращать приложению идентификатор звукового устройства, к которому следует обратиться. А если звуковой адаптер поддерживает обработку звука независимо от его записи/воспроизведения - драйвер ACM может быть и полнофункциональным. В последнем случае ресурсы аппаратуры разделяются между подсистемами MME/Wave и ACM.

3) Синхронные и асинхронные драйверы

Как и драйверы звуковых адаптеров, драйверы ACM также могут быть синхронными и асинхронными. Практически все программные драйверы являются синхронными; драйверы с аппаратной поддержкой обычно делаются асинхронными. Для асинхронных драйверов предусмотрена очередь входных заданий и механизм уведомления приложения о завершении ранее запрошенных операций; синхронные драйверы не возвращают приложению управления до тех пор, пока не будет завершена запрошенная операция.

4) Уведомление приложений о выполнении операций

Для уведомления об изменении приоритетов и состояний драйверов заданному окну приложения посылается заданное сообщение Windows. Окно и сообщение задаются подобно установке нового драйвера - функцией acmDriverAdd. Окно, получающее такие сообщения, называется окном уведомления (notification window).

5) Типы фильтров и форматов

Основной характеристикой фильтра или формата является его тип - способ обработки данных в фильтре (эхо, усиление/ослабление) или способ представления данных в формате (PCM, ADPCM, MPEG и т.п.).

Конкретные форматы и фильтры внутри каждого типа отличаются только параметрами: частотой дискретизации, разрядностью отсчета, тонкостями кодирования - для форматов, степенью усиления/ослабления сигнала, величиной задержки - для фильтров. Основные характеристики - способ представления и вид обработки - в пределах одного типа остаются неизменными.

Каждому типу фильтров и форматов присвоен свой уникальный код (tag), который однозначно идентифицирует его в подсистеме сжатия. Коды типов имеют неизменные числовые значения и для обеспечения уникальности должны быть зарегистрированы в Microsoft. Наряду с кодами типов ACM использует также индексы (внутренние номера) типов фильтров/форматов, поддерживаемых каждым из драйверов. Индексы не имеют ничего общего с кодами и отражают лишь порядковые номера фильтров/форматов различного типа в служебных списках драйвера. При помощи индексов удобно последовательно перебирать все типы фильтров/форматов, поддерживаемые заданным драйвером.

6) Порции и буферы преобразуемых данных

Преобразование данных в ACM производится порциями. Порция потока преобразования обычно имеет размер от нескольких десятков байт до нескольких сотен килобайт, в зависимости от структуры звукового формата и динамики преобразования. За каждую операцию преобразования обрабатывается одна порция данных.

Для каждого потока преобразования создаются два буфера: входной - для порции исходных данных, и выходной - для порции данных результата. Размер преобразуемой порции не может превышать выбранного размера буфера.

7) Потоки преобразования

Как и основная звуковая подсистема MME/Wave, ACM обрабатывает звуковые данные потоками. Это означает, что приложение не может обрабатывать звуковые данные в произвольной последовательности, а только последовательно, от начала к концу потока. Такое ограничение связано с тем, что как преобразование форматов, так и фильтрование может потребовать информации о предшествовании - например, относительное кодирование амплитуд в формате ADPCM или формирование эффекта эха в фильтре Echo. Поэтому обработка звукового потока в ACM включает в себя три стадии:

Создание, или открывание потока (acmStreamOpen). При этом приложение сообщает ACM параметры потока - форматы, режимы обработки, способы уведомления - и получает от ACM ключ открытого потока.
Обработка потока (acmStreamConvert). На этом этапе приложение последовательно передает ACM буферы обмена, содержащие порции преобразуемых звуковых данных. ACM передает буферы выбранному драйверу для обработки, а после завершения обработки каждый буфер возвращается приложению. Обработка потока может происходить в реальном времени, если аппаратура компьютера успевает выполнять ее достаточно быстро.
Уничтожение, или закрывание потока (acmStreamClose). Последняя операция с потоком, после которой поток перестает существовать.

Поток преобразования ACM фактически состоит из двух звуковых потоков - исходного (source) и результирующего (destination). Данные исходного потока существуют до начала обработки и не изменяются после ее завершения; данные результирующего потока создаются в процессе обработки.

8) Ключи объектов

Как и в остальных подсистемах Windows, объекты ACM, с которыми работает приложение, идентифицируются специальными ключами, которые ACM возвращает приложению в ответ на запрос доступа к объекту. В ACM имеется три вида объектов:

идентификатор драйвера (driver id). Используется для указания установленного драйвера в ACM, например - при запросе параметров драйвера. Каких-либо специальных операций перед использованием идентификатора не требуется.
выбранный для работы драйвер (driver). Возвращается ACM при открывании драйвера, и используется для ссылок к подмножеству открытых для работы драйверов.
поток (stream). Возвращается ACM при открывании потока и используется для операций с потоком.

Каждый из объектов имеет свой тип ключа - HACMDRIVERID, HACMDRIVER, HACMSTREAM. Кроме этого, имеется универсальный тип HACMOBJ, предназначенный для использования в функциях, работающих с объектами различного типа.

9) Типы и структуры, используемые в ACM

Большинство структур имеет в своем составе поле cbStruct, в которое приложение должно занести размер области памяти, где размещена структура. Интерфейсные функции используют это поле двояким образом: когда информация из структуры является исходной - поле показывает, какой ее объем реально присутствует в указанной области памяти; когда функция заполняет поля структуры возвращаемой информацией - поле cbStruct ограничивает размер заполняемой области. В зависимости от выбранной функции и режимов ее работы существуют различные ограничения на размер области памяти: она может включать либо только часть полей описанной структуры, либо всю структуру целиком, либо иметь резервную область непосредственно за концом структуры. В последнем случае резервная область может использоваться для дополнительных данных, не вошедших в основные поля описанной структуры.

Когда ACM заполняет структуру, содержащую поле cbStruct, в него заносится реальный размер возвращенной информации. Если какие-то поля структуры являются необязательными, приложение может определить, какая часть структуры была заполнена ACM.

При обращении к ACM вместе со структурой часто передается сопровождающий набор флагов, показывающих, какие из полей структуры несут осмысленную информацию. Несмотря на то, что такие поля анализируются лишь при наличии соответствующих флагов, многие функции являются "привередливыми" и требуют, чтобы неиспользуемые входные поля имели нулевые значения. Чтобы гарантировать успешную работу функций, необходимо перед обращением к ним либо обнулить все неиспользуемые входные поля, либо обнулить всю структуру до заполнения ее полей осмысленной информацией.

Структура WAVEFORMATEX

WORD wFormatTag ;

WORD nChannels ;

DWORD nSamplesPerSec ;

DWORD nAvgBytesPerSec ;

WORD nBlockAlign ;

WORD wBitsPerSample ;

WORD cbSize ;

·wFormatTag - формат Waveform audio.

·nChannels - количество каналов. Обычно 1 (моно) или 2(стерео);

·nSamplesPerSec - частота дискретизации. Для формата PCM - в классическом смысле, т.е. количество выборок в секунду. Согласно теореме отсчетов должна вдвое превышать частоту оцифровываемого сигнала. Обычно находится в диапазоне от 8000 до 44100 выборок в секунду;

·nAvgBytesPerSec - средняя скорость передачи данных. Для PCM равна nSamplesPerSec*nBlockAlign;

·nBlockAlign - размер блока данных, для PCM равен (nChannels*wBitsPerSample)/8;

·wBitsPerSample - количество бит в одной выборке. Для PCM равно 8 или 16;

·cbSize – подсчет размерав байтах

Структура WAVEFILTER

Полностью описывает параметры фильтра.

DWORDcbStruct;

DWORDdwFilterTag;

DWORDfdwFilter;

DWORDdwReserved[5];

§cbStruct - размер области памяти, занимаемой структурой.

§dwFilterTag - код типа фильтра.

§fdwFilter - флаги параметров и режимов работы фильтра. На данный момент пока не определено флагов для этого поля.

§dwReserved - служебные поля ACM и драйвера.

Структура ACMDRIVERDETAILS

Описывает параметры и свойства драйвера ACM. Кроме cbStruct, поля структуры заполняются ACM.

DWORDcbStruct;

FOURCCfccType;

FOURCCfccComp;

WORDwMid;

WORDwPid;

DWORDvdwACM;

DWORDvdwDriver;

DWORDfdwSupport;

DWORDcFormatTags;

DWORDcFilterTags;

HICONhicon;

charszShortName[ACMDRIVERDETAILS_SHORTNAME_CHARS];

charszLongName[ACMDRIVERDETAILS_LONGNAME_CHARS];

charszCopyright[ACMDRIVERDETAILS_COPYRIGHT_CHARS];

charszLicensing[ACMDRIVERDETAILS_LICENSING_CHARS];

charszFeatures[ACMDRIVERDETAILS_FEATURES_CHARS];

§cbStruct - размер области памяти, занимаемой структурой.

§fccType - тип драйвера в формате FOURCC. Для драйверов ACM это поле имеет значение ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC (строка "audc").

§fccComp - подтип драйвера в формате FOURCC. Это поле обычно имеет значение ACMDRIVERDETAILS_FCCCOMP_UNDEFINED (нуль).

§wMid, wPid - идентификаторы производителя (Manufacturer) и продукта (Product). Константы, представляющие коды известных производителей и продуктов, определены в файле MMREG.H.

§vdwACM, vdwDriver - версии службы ACM, для которой создан драйвер, и самого драйвера.

§fdwSupport - флаги поддерживаемых драйвером возможностей и режимов. cFormatTags - количество различных типов форматов (способов представления данных), поддерживаемых драйвером.

§cFilterTags - количество различных типов фильтров (способов обработки звука), поддерживаемых драйвером.

§hicon - ключ иконки (пиктограммы) драйвера, либо NULL при отсутствии пиктограммы.

§szShortName - короткое (сокращенное) название драйвера.

§szLongName - длинное (полное) название драйвера.

§szCopyright - строка информации об авторских правах.

§szLicensing - строка информации об условиях использования драйвера.

§szFeatures - строка информации о возможностях драйвера.

Структуры ACMFILTERTAGDETAILS / ACMFORMATTAGDETAILS

Описывают параметры типа фильтров/форматов, и различаются только именами полей. Поля структур заполняются ACM, если не оговорено иначе.

Структура ACMFILTERTAGDETAILS:

DWORDcbStruct;

DWORDdwFilterTagIndex;

DWORDdwFilterTag;

DWORDcbFilterSize;

DWORDfdwSupport;

DWORDcStandardFilters;

charszFilterTag[ACMFILTERTAGDETAILS_FILTERTAG_CHARS];

Структура ACMFFORMATTAGDETAILS:

DWORDcbStruct;

DWORDdwFormatTagIndex;

DWORDdwFormatTag;

DWORDcbFormatSize;

DWORDfdwSupport;

DWORDcStandardFormats;

charszFormatTag[ACMFORMATTAGDETAILS_FORMATTAG_CHARS];

§cbStruct - размер области памяти, занимаемой структурой.

§dwFilterTagIndex / dwFormatTagIndex - индекс (внутренний номер) данного типа внутри драйвера. Кроме случаев запроса описания по индексу поле должно быть нулевым; ACM всегда возвращает в этом поле нулевое значение.

§dwFilterTag / dwFormatTag - уникальный код типа. Устанавливается приложением для тех случаев, когда запрос делается по коду типа. После успешного выполнения запроса всегда устанавливается ACM.

§cbFilterSize / cbFormatSize - размер области памяти, достаточный для размещения расширенной структуры WAVEFILTER / WAVEFORMATEX, описывающей любой из фильтров/форматов данного типа.

§fdwSupport - флаги поддерживаемых возможностей и режимов драйвера этого типа фильтров/форматов.

§cStandardFilters / cStandardFormats - количество стандартных фильтров/форматов данного типа, поддерживаемых драйвером.

§szFilterTag / szFormatTag - текстовое название типа.

Структуры ACMFILTERDETAILS / ACMFORMATDETAILS

Описывают параметры конкретного фильтра/формата, и различаются только именами полей:

Структура ACMFILTERDETAILS:

DWORDcbStruct;

DWORDdwFilterIndex;

DWORDdwFilterTag;

DWORDfdwSupport;

LPWAVEFILTERpwfltr;

DWORDcbwfltr;

charszFilter[ACMFILTERDETAILS_FILTER_CHARS];

Структура ACMFORMATDETAILS:

DWORDcbStruct;

DWORDdwFormatIndex;

DWORDdwFormatTag;

DWORDfdwSupport;

LPWAVEFORMATEXpwfx;

DWORDcbwfx;

charszFormat[ACMFORMATDETAILS_FORMAT_CHARS];

§cbStruct - размер области памяти, занимаемой структурой.

§dwFilterIndex / dwFormatIndex - индекс (внутренний номер) стандартного фильтра/формата внутри драйвера. В отличие от индексов типов, индексы стандартных фильтров/форматов однозначно определяют конкретные стандартные фильтры и форматы в пределах хотя бы одной версии драйвера. Кроме случаев запроса описания по индексу поле должно быть нулевым; ACM всегда возвращает в этом поле нулевое значение.

§dwFilterTag / dwFormatTag - код типа, которому принадлежит фильтр/формат. Устанавливается приложением для тех случаев, когда запрос делается по коду типа. После успешного выполнения запроса всегда устанавливается ACM.

§fdwSupport - флаги поддерживаемых возможностей и режимов драйвера этого типа форматов.

§pwfltr / pwfx - указатель структуры WAVEFILTER / WAVEFORMATEX, которую при запросе описания фильтра/формата ACM заполняет его параметрами.

§cbwfltr / cbwfx - размер области памяти, в которой размещена структура WAVEFILTER / WAVEFORMATEX.

§szFilter / szFormat - текстовое название стандартного фильтра/формата внутри его типа. Вместе с полем szFilterTag / szFormatTag структуры ACMFILTERTAGDETAILS / ACMFORMATTAGDETAILS образует уникальное текстовое название фильтра/формата внутри всей подсистемы ACM.

Структуры ACMFILTERCHOOSE и ACMFORMATCHOOSE

Эти две очень похожие структуры описывают наборы данных, необходимые для вывода пользователю диалога, содержащего меню всех доступных или подходящих стандартных фильтров/форматов. Используются функциями acmFilterChoose и acmFormatChoose.

Структура ACMFILTERCHOOSE:

DWORDcbStruct;

DWORDfdwStyle;

HWNDhwndOwner;

LPWAVEFILTERpwfltr;

DWORDcbwfltr;

LPCSTRpszTitle;

charszFilterTag[ACMFILTERTAGDETAILS_FILTERTAG_CHARS];

charszFilter[ACMFILTERDETAILS_FILTER_CHARS];

LPSTRpszName;

DWORDcchName;

DWORDfdwEnum;

LPWAVEFILTERpwfltrEnum;

HINSTANCEhInstance;

LPCSTRpszTemplateName;

LPARAMlCustData;

ACMFILTERCHOOSEHOOKPROCpfnHook;

Структура ACMFORMATCHOOSE:

DWORDcbStruct;

DWORDfdwStyle;

HWNDhwndOwner;

LPWAVEFORMATEXpwfx;

DWORDcbwfx;

LPCSTRpszTitle;

charszFormatTag[ACMFORMATTAGDETAILS_FORMATTAG_CHARS];

charszFormat[ACMFORMATDETAILS_FORMAT_CHARS];

LPSTRpszName;

DWORDcchName;

DWORDfdwEnum;

LPWAVEFORMATEXpwfxEnum;

HINSTANCEhInstance;

LPCSTRpszTemplateName;

LPARAMlCustData;

ACMFORMATCHOOSEHOOKPROCpfnHook;

§cbStruct - размер области памяти, занимаемой структурой.

§fdwStyle - флаги стилей построения диалога. Имена констант флагов выбора фильтра имеют префикс ACMFILTERCHOOSE_STYLEF_, имена констант флагов выбора формата - ACMFORMATCHOOSE_STYLEF_:

Таблица 11

CONTEXTHELP	В диалоге будет доступна контекстно-зависимая помощь. При запросе пользователем помощи ACM будет посылать окну-владельцу сообщения с кодами ACMHELPMSGCONTEXTMENU и ACMHELPMSGCONTEXTHELP, параметры wParam и lParam которых будут скопированы из исходных сообщений WM_CONTEXTMENU или WM_CONTEXTHELP. Коды сообщений ACM предварительно должны быть зарегистрированы в Windows посредством функции RegisterWindowMessage.
ENABLEHOOK	Разрешает использование функции перехвата сообщений Windows, заданной полем pfnHook.
ENABLETEMPLATE	Диалог будет создан из шаблона (template), описываемого полями hInstance и pszTemplateName.
ENABLETEMPLATEHANDLE	Поле hInstance содержит ключ уже загруженного в память шаблона диалога. В этом случае поле pszTemplateName игнорируется.
INITTOFILTERSTRUCTINITTOWFXSTRUCT	Начальные значения для типа и стандартного фильтра/формата в диалоге будут выбраны на основе описателя, указатель которого задан полем pwfltr / pwfx. В этом случае поле pwfltr/pwfx должно ссылаться на правильно заполненную структуру типа WAVEFILTER / WAVEFORMATEX.
SHOWHELP	Диалог будет снабжен кнопкой запроса помощи (Help), при нажатии которой окну-владельцу будет посылаться сообщение ACM с кодом ACMHELPMSGSTRING. Это сообщение необходимо предварительно зарегистрировать в Windows посредством функции RegisterWindowMessage.

§hwndOwner - ключ окна-владельца (owner window) создаваемого диалога. Может быть нулевым, если окно-владелец не требуется.

§pwfltr / pwfx - указатель области памяти для структуры типа WAVEFILTER / WAVEFORMATEX, в которую заносится описание выбранного фильтра/формата при успешном завершении выбора. Из этой же структуры берутся начальные значения полей диалога, если присутствует соответствующий флаг стиля.

§cbwfltr / cbwfx - размер области памяти для структуры описания фильтра/формата. Если указанного размера недостаточно для записи требуемой структуры - ACM возвращает код ошибки NOTPOSSIBLE, одновременно занося в это поле требуемый размер области.

§pszTitle - указатель строки заголовка диалога. Если это поле имеет нулевое значение - ACM использует заголовок по умолчанию.

§szFilterTag / szFormatTag - область для строки названия типа фильтров/форматов. При успешном завершении выбора ACM заносит в это поле название выбранного типа.

§szFilter / szFormat - область для строки названия стандартного фильтра/формата. При успешном завершении выбора ACM заносит в это поле название выбранного стандартного фильтра или формата.

§pszName - указатель строки названия пресета для фильтра/формата. Если поля pszName и cchName описывают корректную символьную строку, и флагами стилей не задана установка начальных значений, ACM пытается найти соответствующий пресет и установить по нему начальные значения списков диалога. Поиск пресетов происходит путем посимвольного сравнения строк с игнорированием регистра. После успешного завершения выбора, если поля pszName и cchName описывают буфер достаточного размера, ACM заносит в него название выбранного пресета. Если выбранный фильтр/формат не имеет пресета (Untitled) - в буфер заносится пустая строка.

§cchName - размер буфера, указываемого полем pszName, в байтах. Если pszName равно нулю, значение этого поля игнорируется.

§fdwEnum - флаги режимов перебора фильтров/форматов. Вместе с полем pwfltrEnum / pwfxEnum задают условия, которым должны удовлетворять фильтры/форматы, включаемые в списки выводимого диалога. Поскольку для построения списков ACM пользуется собственными же функциями перебора, в этом поле используются те же флаги, что и в функциях acmFilterEnum / acmFormatEnum. Если поле pwfltrEnum / pwfxEnum имеет нулевое значение, поле флагов перебора тоже должно быть нулевым.

§pwfltrEnum / pwfxEnum - указатель описателя фильтра/формата - структуры типа WAVEFILTER / WAVEFORMATEX, отдельные поля которой, либо вся структура целиком, задают условия для отбора фильтров/форматов, включаемых в списки выводимого диалога.

§hInstance - ключ области данных, содержащей шаблон для создания диалога. Имя ресурса задается полем pszTemplateName. Поле используется только при наличии в стиле диалога флагов ENABLETEMPLATE или ENABLETEMPLATEHANDLE; в противном случае значение поля должно быть нулевым.

§pszTemplateName - имя ресурса, содержащего шаблон для создания диалога. Для нумерованных ресурсов может использоваться стандартный макрос Windows MAKEINTRESOURCE. Поле используется только при наличии среди в стиле диалога флага ENABLETEMPLATE; в противном случае значение поля должно быть нулевым.

§lCustData - произвольное значение, определяемое приложением, которое будет передаваться в функцию перехвата сообщений - в параметре lParam сообщения WM_INITDIALOG.

§pfnHook - указатель функции перехвата, которая будет получать сообщения Windows, адресованные диалогу выбора.

Структура ACMSTREAMHEADER

Описывает фрагмент преобразуемого звукового потока и называется заголовком потока.

DWORDcbStruct;

DWORDfdwStatus;

DWORDdwUser;

LPBYTEpbSrc;

DWORDcbSrcLength;

DWORDcbSrcLengthUsed;

DWORDdwSrcUser;

LPBYTEpbDst;

DWORDcbDstLength;

DWORDcbDstLengthUsed;

DWORDdwDstUser;

DWORDdwReservedDriver[10];

§cbStruct - размер области памяти, занимаемой структурой.

§fdwStatus - флаги состояния буфера. Устанавливаются приложением в нуль, далее управляются ACM. Имена констант имеют префикс ACMSTREAMHEADER_STATUSF_:

Таблица 12

DONE	Преобразование завершено.
INQUEUE	Заголовок находится в очереди драйвера.
PREPARED	Заголовок подготовлен для передачи драйверу.

§dwUser - вспомогательное информационное значение, общее для обоих потоков, передаваемое обратно в приложение при уведомлении. Устанавливается приложением.

§pbSrc - указатель буфера, содержащего порцию данных исходного звукового потока. Устанавливается приложением.

§cbSrcLength - размер порции данных в буфере исходного потока (в байтах). Устанавливается приложением.

§cbSrcLengthUsed - количество байтов порции данных исходного потока, использованных в последней операции преобразования. Устанавливается драйвером.

§dwSrcUser - вспомогательное информационное значение для исходного потока, передаваемое обратно в приложение при уведомлении. Устанавливается приложением.

§pbDst - указатель буфера для порции данных результирующего звукового потока. Устанавливается приложением.

§cbDstLength - размер буфера выходного потока (в байтах). Устанавливается приложением.

§cbDstLengthUsed - размер порции данных, записанных в буфер результирующего потока последней операцией преобразования. Устанавливается драйвером.

§dwDstUser - вспомогательное информационное значение для результирующего потока, передаваемое обратно в приложение при уведомлении. Устанавливается приложением.

§dwReservedDriver - служебные поля для ACM и драйвера.

10)Функции ACM

Классы функций интерфейса ACM

ACM имеет в своем составе четыре основных класса интерфейсных функций. Принадлежность функции к определенному классу обозначается префиксом в ее имени:

Функции работы с драйверами (acmDriver). Служат для установки, удаления, настройки, опроса и перебора доступных драйверов ACM.
Функции работы с фильтрами (acmFilter). Служат для опроса, перебора и выбора доступных фильтров.
Функции работы с форматами (acmFormat). Служат для опроса, перебора и выбора доступных форматов (кодеков).
Функции работы с потоками (acmStream). Служат для создания потоков преобразования и обработки порций данных в них.

Кроме этого, ACM сам может вызывать (callback) три типа функций приложения:

Функции поддержки перебора - вызываются в процессе перебора (enumeration) драйверов, типов форматов/фильтров, или стандартных форматов/фильтров, и служат для формирования списка перебираемых объектов или остановки процесса перебора при нахождении нужного объекта.
Функции перехвата - вызываются при поступлении сообщений Windows в стандартные диалоги ACM, выводимые пользователю функциями выбора фильтра или формата, и служат для перехвата (hook) этих сообщений до обработки их средствами ACM. Позволяют изменить принятое по умолчанию поведение стандартных диалогов ACM.
Функции уведомления - вызываются после завершения запрошенной операции. Уведомление также может происходить в виде установки объекта события (event) либо посылки сообщения - задаче (thread) или окну.

Информационные функции

Таблица 13

acmGetVersion	Запрос версии ACM
acmMetrics	Запрос различных параметров ACM

Функции работы с драйверами

Таблица 14

acmDriverAdd	Установка собственного драйвера приложения или задание окна уведомления
acmDriverRemove	Удаление собственного драйвера приложения
acmDriverOpen	Открывание драйвера
acmDriverClose	Закрывание драйвера
acmDriverDetails	Запрос сведений о драйвере
acmDriverEnum	Перебор доступных драйверов
acmDriverID	Запрос идентификатора драйвера
acmDriverPriority	Установка приоритета драйвера
acmDriverMessage	Передача сообщения драйверу

Функции работы с фильтрами

Таблица 15

acmFilterTagDetails	Запрос сведений о типе фильтра
acmFilterDetails	Запрос сведений о фильтре
acmFilterTagEnum	Перебор доступных типов фильтров
acmFilterEnum	Перебор доступных стандартных фильтров
acmFilterChoose	Выбор фильтра при помощи стандартного диалога ACM

Функции работы с форматами

Таблица 16

acmFormatTagDetails	Запрос сведений о типе формата
acmFormatDetails	Запрос сведений о формате
acmFormatTagEnum	Перебор доступных типов форматов
acmFormatEnum	Перебор доступных стандартных форматов
acmFormatChoose	Выбор формата при помощи стандартного диалога ACM
acmFormatSuggest	Запрос наиболее подходящего для преобразования формата

Функции работы с потоками

Таблица 17

acmStreamOpen	Открывание потока преобразования
acmStreamClose	Закрывание потока
acmStreamSize	Запрос размеров буферов потока
acmStreamPrepareHeader	Подготовка буфера потока
acmStreamUnprepareHeader	Отмена подготовки буфера потока
acmStreamConvert	Преобразование очередной порции данных в потоке
acmStreamReset	Сброс (уничтожение) потока
acmStreamMessage	Передача сообщения драйверу потока

Функции, определяемые приложением

В отличие от стандартных функций интерфейса, все функции этой группы определяются приложением. Имена, приведенные в таблице, являются условными, реальные функции приложения могут иметь любые имена. Приложение передает эти функции ACM при помощи указателей, а ACM вызывает их в заранее оговоренных случаях.

Таблица 18

DriverProc	Основная функция драйвера
ChooseHook	Перехват сообщений диалога выбора фильтра/формата
DriverEnumCallback	Поддержка перебора драйверов
FilterTagEnumCallback	Поддержка перебора типов фильтров
FilterEnumCallback	Поддержка перебора стандартных фильтров
FormatTagEnumCallback	Поддержка перебора типов форматов
FormatEnumCallback	Поддержка перебора стандартных форматов
StreamCallback	Уведомление о завершении операции с потоком

Возвращаемые значения

Большинство функций ACM возвращает значения типа MMRESULT - универсальный код результата звуковой подсистемы Windows. В дополнение к стандартным кодам, константы для которых имеют префикс MMSYSERR_, для ACM определены константы с префиксами ACMERR_:

Таблица 19

NOTPOSSIBLE	Невозможно выполнить запрошенную операцию. Обычно эта ошибка возникает при невозможности использовать требуемое сочетание форматов, или когда объема заданного буфера недостаточно для записи всех затребованных данных.
BUSY	Запрошенный драйвер в настоящее время используется, попытка закрыть поток с незавершенной асинхронной операцией, и т.п.
UNPREPARED	Буфер преобразования не был подготовлен функцией acmStreamPrepareHeader.
CANCELED	Пользователь закрыл кнопкой Cancel диалог, выведенный функцией выбора фильтра/формата.

3.5 Работа с базами данных в DELPHI

В нашем проекте используется база данных (Paradox), поэтому рассмотрим основы баз данных. Под базой данных понимается некоторая унифицированная совокупность данных, совместно используемая персоналом/населением группы, предприятия, региона, страны, мира... Задача базы данных состоит в хранении всех представляющих интерес данных в одном или нескольких местах, причем таким способом, который заведомо исключает ненужную избыточность. В хорошо спроектированной базе данных избыточность данных исключается, и вероятность сохранения противоречивых данных минимизируется. Таким образом, создание баз данных преследует две основные цели: понизить избыточность данных и повысить их надежность.

В этом дипломном проекте используется одна из реляционных баз данных так как: во-первых, реляционные базы получили наибольшее распространение в мире; во-вторых, они наиболее “продвинуты” в научном плане; а в-третьих, ядро баз данных Borland Database Engine, на основе которого работают все последние продукты компании Borland, предназначено именно для работы с реляционными базами данных.

Жизненный цикл любого программного продукта, в том числе и системы управления базой данных, состоит (по-крупному) из стадий проектирования, реализации и эксплуатации.

Естественно, наиболее значительным фактором в жизненном цикле приложения, работающего с базой данных, является стадия проектирования. От того, насколько тщательно продумана структура базы, насколько четко определены связи между ее элементами, зависит производительность системы и ее информационная насыщенность, а значит - и время ее жизни.

Требования к базам данных

Итак, хорошо спроектированная база данных:

* Удовлетворяет всем требованиям пользователей к содержимому базы данных. Перед проектированием базы необходимо провести обширные исследования требований пользователей к функционированию базы данных.

* Гарантирует непротиворечивость и целостность данных. При проектировании таблиц нужно определить их атрибуты и некоторые правила, ограничивающие возможность ввода пользователем неверных значений. Для верификации данных перед непосредственной записью их в таблицу база данных должна осуществлять вызов правил модели данных и тем самым гарантировать сохранение целостности информации.

* Обеспечивает естественное, легкое для восприятия структурирование информации. Качественное построение базы позволяет делать запросы к базе более “прозрачными” и легкими для понимания; следовательно, снижается вероятность внесения некорректных данных и улучшается качество сопровождения базы.

Удовлетворяет требованиям пользователей к производительности базы данных. При больших объемах информации вопросы сохранения производительности начинают играть главную роль, сразу “высвечивая” все недочеты этапа проектирования.

Следующие пункты представляют основные шаги проектирования базы данных:

Определить информационные потребности базы данных.

Проанализировать объекты реального мира, которые необходимо смоделировать в базе данных. Сформировать из этих объектов сущности и характеристики этих сущностей (например, для сущности “деталь” характеристиками могут быть “название”, “цвет”, “вес” и т.п.) и сформировать их список.

Поставить в соответствие сущностям и характеристикам - таблицы и столбцы (поля) в нотации, выбранной Вами СУБД (Paradox, dBase, FoxPro, Access, Clipper, InterBase, Sybase, Informix, Oracle и т.д.).

Определить атрибуты, которые уникальным образом идентифицируют каждый объект.

Выработать правила, которые будут устанавливать, и поддерживать целостность данных.

Установить связи между объектами (таблицами и столбцами), провести нормализацию таблиц.

Спланировать вопросы надежности данных и, при необходимости, сохранения секретности информации.

Основные концепции реляционных баз данных

Прежде чем подробно рассматривать каждый из этих шагов, остановимся на основных концепциях реляционных баз данных. В реляционной теории одним из главных является понятие отношения. Математически отношение определяется следующим образом. Пусть даны n множеств D₁,D₂,...,D_n. Тогда R есть отношение над этими множествами, если R есть множество упорядоченных наборов вида1,d₂,...,d_n>, где d₁ - элемент из D₁, d₂ - элемент из D₂, ..., d_n - элемент из D_n. При этом наборы вида 1,d₂,...,d_n> называются кортежами, а множества D₁,D₂,...,D_n - доменами. Каждый кортеж состоит из элементов, выбираемых из своих доменов. Эти элементы называются атрибутами, а их значения - значениями атрибутов, рис.9-а представляет нам графическое изображение отношения с разных точек зрения.

Рис. 9-а

Легко заметить, что отношение является отражением некоторой сущности реального мира (в данном случае - сущности “деталь”) и с точки зрения обработки данных представляет собой таблицу. Кортеж представляет собой строку в таблице, или, что то же самое, запись. Атрибут же является столбцом таблицы, или - полем в записи. Домен же представляется неким обобщенным типом, который может быть источником для типов полей в записи. Таким образом, следующие тройки терминов являются эквивалентными:

* отношение, таблица

* кортеж, строка, запись

* атрибут, столбец, поле.

Реляционная база данных представляет собой совокупность отношений, содержащих всю необходимую информацию и объединенных различными связями.

Атрибут (или набор атрибутов), который может быть использован для однозначной идентификации конкретного кортежа (строки, записи), называется первичным ключом. Первичный ключ не должен иметь дополнительных атрибутов. Это значит, что если из первичного ключа исключить произвольный атрибут, оставшихся атрибутов будет недостаточно для однозначной идентификации отдельных кортежей. Для ускорения доступа по первичному ключу во всех системах управления базами данных (СУБД) имеется механизм, называемый индексированием. Грубо говоря, индекс представляет собой инвертированный древовидный список, указывающий на истинное местоположение записи для каждого первичного ключа. Естественно, в разных СУБД индексы реализованы по-разному (в локальных СУБД - как правило, в виде отдельных файлов), однако, принципы их организации одинаковы.

Возможно индексирование отношения с использованием атрибутов, отличных от первичного ключа. Данный тип индекса называется вторичным индексом и применяется в целях уменьшения времени доступа при нахождении данных в отношении, а также для сортировки. Таким образом, если само отношение не упорядочено каким-либо образом и в нем могут присутствовать строки, оставшиеся после удаления некоторых кортежей, то индекс (для локальных СУБД - индексный файл), напротив, отсортирован.

Для поддержания ссылочной целостности данных во многих СУБД имеется механизм так называемых внешних ключей. Смысл этого механизма состоит в том, что некоему атрибуту (или группе атрибутов) одного отношения назначается ссылка на первичный ключ другого отношения; тем самым закрепляются связи подчиненности между этими отношениями. При этом отношение, на первичный ключ которого ссылается внешний ключ другого отношения, называется master-отношением, или главным отношением; а отношение, от которого исходит ссылка, называется detail-отношением, или подчиненным отношением. После назначения такой ссылки СУБД имеет возможность автоматически отслеживать вопросы “ненарушения“ связей между отношениями, а именно:

* если Вы попытаетесь вставить в подчиненную таблицу запись, для внешнего ключа которой не существует соответствия в главной таблице (например, там нет еще записи с таким первичным ключом), СУБД сгенерирует ошибку;

* если Вы попытаетесь удалить из главной таблицы запись, на первичный ключ которой имеется хотя бы одна ссылка из подчиненной таблицы, СУБД также сгенерирует ошибку.

* если Вы попытаетесь изменить первичный ключ записи главной таблицы, на которую имеется хотя бы одна ссылка из подчиненной таблицы, СУБД также сгенерирует ошибку.

Сущность BDE

Мощность и гибкость Delphi при работе с базами данных основана на низкоуровневом ядре - процессоре баз данных Borland Database Engine (BDE). Егоинтерфейссприкладнымипрограммаминазывается Integrated Database Application Programming Interface (IDAPI). В принципе, сейчас не различают эти два названия (BDE и IDAPI) и считают их синонимами. BDE позволяет осуществлять доступ к данным как с использованием традиционного record-ориентированного (навигационного) подхода, так и с использованием set-ориентированного подхода, используемого в SQL-серверах баз данных.

Все инструментальные средства баз данных Borland - Paradox, dBase, Database Desktop - используют BDE. Все особенности, имеющиеся в Paradox или dBase, “наследуются” BDE, и поэтому этими же особенностями обладает и Delphi.

Алиасы

Таблицы сохраняются в базе данных. Некоторые СУБД сохраняют базу данных в виде нескольких отдельных файлов, представляющих собой таблицы (в основном, все локальные СУБД), в то время как другие состоят из одного файла, который содержит в себе все таблицы и индексы (InterBase). Например, таблицы dBase и Paradox всегда сохраняются в отдельных файлах на диске. Директорий, содержащий dBase .DBF файлы или Paradox .DB файлы, рассматривается как база данных. Другими словами, любой директорий, содержащий файлы в формате Paradox или dBase, рассматривается Delphi как единая база данных. Для переключения на другую базу данных нужно просто переключиться на другой директорий. Как уже было указано выше, InterBase сохраняет все таблицы в одном файле, имеющем расширение .GDB, поэтому этот файл и есть база данных InterBase.

Удобно не просто указывать путь доступа к таблицам базы данных, а использовать для этого некий заменитель - псевдоним, называемый алиасом. Он сохраняется в отдельном конфигурационном файле в произвольном месте на диске и позволяет исключить из программы прямое указание пути доступа к базе данных. Такой подход дает возможность располагать данные в любом месте, не перекомпилируя при этом программу. Кроме пути доступа, в алиасе указываются тип базы данных, языковый драйвер и много другой управляющей информации. Поэтому использование алиасов позволяет легко переходить от локальных баз данных к SQL-серверным базам (естественно, при выполнении требований разделения приложения на клиентскую и серверную части).

Система регистрации речи диспетчерских переговоров

Инициализация начальных параметров

Выбор интерфейса

Загрузка параметров пользователя и Установка режима ожидания

Загрузка параметров администратора

Изменение параметров системы

Просмотр базы данных

Сохранение параметров

Проигрывание выбранного файла

Работа с БД (отбор, удаление записей)

Режим поднятия трубки оператором (ручной режим)

Модем в режиме автоподнятия трубки (автоматизированный режим)

Набор номера оператором

Регистрируется состояние соединения, установка параметров и начинается запись разговора

Регистрируетсясостояние разъединенияи проверка параметров записи

Регистрация в базе данных разговора и сохранение звуковых данных на диске

Отмена регистрации вызова

Выход из программы

Рис 10

На рисунке 10 представлена приблизительная схема работы программы. Разберем ее более подробно.

При запуске программы происходит размещение формата и заголовков wav, буфера данных, и получение имени временного файла. Режим рекордера устанавливаем 'нет режима записи'. Дальше проверяем наличие конфигурационного файла ‘config.ini’. Если он отсутствует то, значит, осуществляется первый запуск программы, а значит, требуется ее настройка. Программа автоматически предлагает выбор интерфейса с правами администратора (рис 11).

Рис 11 Рис 12

В другом случае присутствует возможность выбора (рис 12). При нажатии кнопки ‘Вход ’ происходит инициализация ТAPI, в случае отсутствия устройства совместимого с установленными параметрами программа автоматически завершается. Далее в соответствии с выбранным интерфейсом пользователя или администратора происходит загрузка необходимых параметров, а также открытие базы данных.

При выборе интерфейса пользователя необходимо ввести его имя (например, Ф.И.О.). Итак, интерфейс пользователя выглядит следующим образом (рис 13):

Рис 13

Табло состояния отражает события, на которые отвечает модем или им генерируются. Кнопки ‘Взять трубку’и‘Положить трубку’ позволяет оператору выполнить в ручном режиме взятие и опускание трубки модема.

Панель набора номера необходима для исходящего звонка оператора. В окошке ‘Набираемый номер’ отражается номер, набранный с клавиатуры компьютера или с помощью мыши на экранной клавиатуре. Присутствуют также кнопки очистки номера, ‘Набрать номер’ – размещение запроса набора номера на модем, ‘Отмена’ – отмена запроса на набор номера (соединение).

Ниже указаны некоторые настройки программыимя модема формат сжатия и его настройки, а также режим ожидания вызова (ручной, авто). ‘Место на диске’ – свободное место на диске в байтах, ‘Записано’ – количество записанных звуковых данных в байтах.

При выборе интерфейса администратора (рис 14) имеется возможность конфигурирования – вкладка ‘Конфигуратор’ или работы с базой данных – вкладка ‘База переговоров’.

Рис 14

На вкладке ‘Конфигуратор’ устанавливаются следующие настройки:

· кнопка ‘Выбор кодека’ – открывается визуальная форма выбора(рис 15)

Рис 15

· config.ini

На вкладке ‘База переговоров’ обеспечивается работа с базой данных диспетчерских переговоров (рис 16).

Рис 16

На рисунке 17 кнопка 1 обеспечивает отбор записей по диапазону дат указанному в окнах ‘C:’ и ‘по:’, кнопка 2 отменяет прежде установленный отбор, и кнопка 3 удаляет текущую запись из базы данных, а также обеспечивает физическое удаление файла со звуковыми данными с жесткого диска.

Рис 17

На рисунке 18 указаны инструменты для проигрывания текущей записи.

Кнопка 1 позволяет проиграть запись или приостановить ее проигрывание.

Кнопка 2 останавливает запись и освобождает всересурсы, которые были использованы для нее. Элемент 3 отображает информацию о записи. Элемент 4 визуально показывает на каком этапе находится проигрывание записи.

Рис 18

Итак,в результате мы можем описать возможности системы кратко так:

Автоматическая запись всех телефонных разговоров
Проигрывание записанных сообщений через звуковую карту
Определение номера вызывающего абонента (для некоторых модемов) и ведение журнала звонков
Дружественный интерфейс программы позволяет сделать нужные настройки и облегчает работу пользователя.
Автоматическое или ручное (по выбору) управление модемом
Вы можете также конвертировать ваши записи в любой голосовой формат - MP3, WAV, и т.п.

4

Запускаем программу в режиме администратор и устанавливаем следующие настройки (рис 19):

Рис 19

То есть, выбираем запись звуковых данных без сжатия(PCM 8кГц, 16 бит, Моно). Далее запускаем программу в режиме пользователя и в результате минутногоразговора получаем файл размером 983130 байт.

Теперь запустим программу в режиме администратор и установим другие настройки (рис 20):

Рис 20

Здесь установим речевой кодек – GSM 6.10 8кГц, Моно (16 бит – по умолчанию). Далее запускаем программу в режиме пользователя и в результатеразговора продолжительностью около минуты получаем файл размером 85610 байт.

Итак, в результате мы имеем коэффициент сжатия 983130/85610 = 11.48, что удовлетворяет требованиям, обозначенным в задании.

5 Экономическая часть

План выполнения НИР

Одной из основных целей планирования НИР является определение общей продолжительности их проведения. План выполнения данной НИР включает в себя перечень всех основных этапов и видов работ, которые должны быть выполнены, по каждому виду работ определяется квалификационный уровень исполнителей (должность), их число, трудоемкость и длительность выполнения каждой работы.

План выполнения данной НИР представлен в таблице 20.

Таблица 20
№ п.п.	Наименование этапа	Должность исполнителей	Трудоемкость, чел.-дни	Длительность
1	Согласование и утверждение технического задания (ТЗ) на НИР	Старший научный сотрудник (СНС)	2	2
Инженер	2
2	Подбор литературы.	Инженер	4	4
3	Разработка теоретической части вводного раздела	Инженер	2	2
4	Обзор методов сжатия звуковых данных	инженер	4	4
5	Разработка алгоритма использования этих методов	инженер	6	6
6	Разработка программного продукта.	инженер	31	31
7	Экспериментальные исследования и доработка алгоритма	СНС	5	35
инженер	35
8	Оформление технического отчета	инженер	7	7
9	Сдача темы заказчику	СНС	1	2
инженер	2
	ИТОГО:			93

Составление сметы затрат и определение цены на НИР

Цена на НИР складывается из трех составляющих: прямые затраты, накладные расходы и прибыль.

Прямые затраты

Прямые затраты включают в себя заработную плату исполнителя и руководителя НИР, единый социальный налог, амортизационные отчисления.

Основная заработная плата лиц, непосредственно занятых выполнением НИР

Размер основной заработной платы исполнителей НИР (старшего научного сотрудника и инженера) приведен в таблице 2. Дневная заработная плата исполнителей (приведена там же) рассчитывается, исходя из месячной и известного числа рабочих дней в месяце (принимается равным 21).

Единый социальный налог (ЕСН)

ЕСН включают в себя отчисления в пенсионный фонд (20%), в фонд социального страхования (3.2%), в федеральный фонд обязательного медицинского страхования (0.8%), территориальный фонд обязательного медицинского страхования(2%).

Суммарный процент отчислений на социальные нужды составляет 26%.

Амортизационные отчисления.

Сроком полезного использования основного средства признается период, в течение которого объект основных средств служит для выполнения цели деятельности налогоплательщика. Срок полезного использования определяется налогоплательщиком самостоятельно на дату ввода в эксплуатацию данного объекта с учетом классификации основных средств, утверждаемой Правительством РФ (гл.25, ст.258, п.1 НК РФ).

ЭВМ отнесем к третьей амортизационной группе, со сроком полезного использования – 5 лет.

При начислении амортизации будем применять линейный метод. При использовании этого метода норма амортизации определяется по формуле (гл.25, ст.259, п.4 НК РФ):

где K– норма амортизации в процентах к первоначальной стоимости основного средства;

N – срок полезного использования основного средства, выраженный в месяцах.

Таким образом, отчисления на амортизацию ЭВМ составляют 20% от цены на ЭВМ в год. Поэтому для определения суммы амортизационных отчислений за время проведения НИР следует воспользоваться формулой

где Ц_ЭВМ– цена ЭВМ,

t_ДНЕЙ – время выполнения НИР (в днях),

260 – число рабочих дней в году.

Цена ЭВМ, используемой для написания и отладки программного продукта, составляет около 700 долларов США.

Накладные расходы.

Накладные расходы составляют 15% от прямых затрат. В них включается: заработная плата обслуживающего персонала лаборатории (в которой проводилась НИР), затраты на электроэнергию, плата за отопление и оплата услуг связи.

НР = ПЗ*15%

Сумма прямых затрат и накладных расходов носит название сметной стоимости:

СС = ПЗ +НР

Прибыль

Стандартная величина планируемой прибыли составляет в РГРТА 5% от сметной стоимости

Пр = СС*10%

Сумма сметной стоимости и прибыли даст величину затрат на выполнение данной работы (или, другими словами, цену на НИР):

Ц_НИР = СС + Пр

При определении сметы затрат и цены НИР все вычисления по упомянутым формулам велись с помощью программы Excel. В таблице 2 приведён протокол с результатами расчётов.

	Таблица 21. Протокол расчета сметы затрат и цены НИР

Оценка экономической эффективности НИР

В данном дипломном проекте была разработана система регистрации речи диспетчерских переговоров. При создании системы был решен целый ряд проблем, которые позволят владельцу системы более эффективно организовать работу. Этими проблемами являются: возможность диспетчера отчитаться за требуемый период времени (запись разговора в файл и регистрация события в базе данных), проблема экономии места на жестком диске (сжатие звуковых данных), в техническом плане – освобождение рук оператора от трубки телефона (подключение телефонной гарнитуры к модему).

Выше сказанное позволяет судить об актуальности и говорит о возможности внедрения этой системы на предприятиях представляющих собой таксопарки.

Экономический эффект может быть достигнут вследствие, снижения стоимости аппаратных средств (за счет сжатия звуковых данных), а также в результате более эффективной организации работы диспетчера.

6Безопасность и экологичность проекта.

Вступление

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

Так как основная часть дипломного проекта – разработка программы, осуществлялась с помощью ПЭВМ, которая является потребителем электроэнергии. Поэтому значение здесь имеет вопрос об экономном расходе данного вида ресурса. Но так ПЭВМ является экологически чистым оборудованием, то основное внимание в данном разделе будет уделяться безопасности разработчика программы.

Обеспечение безопасности человека в значительной степени зависит от правильной оценки опасных, вредных производственных факторов. Одинаковые по тяжести изменения в организме человека могут быть вызваны различными причинами. Это могут быть какие-либо факторы производственной среды, чрезмерная физическая и умственная нагрузка, нервно-эмоциональное напряжение, а также разное сочетание этих причин.

В данной главе решаютсявопросы безопасной жизнедеятельности на стадии разработки программного и методического обеспечения.

Зал вычислительного центра (ВЦ), в котором производилась разработка дипломного проекта, имеет следующие параметры:

размеры помещения – 6х4 м;

высота потолка – 3.00м;

количество рабочих мест с ПЭВМ – 6 (работают инженеры-программисты);

2 окна размером 2´2м;

1 дверь размером 0.9´2.1м.

Программисты работают на ПЭВМ мониторы, которых выполнены на базе ЭЛТ.

Питание электрооборудования осуществляется от трёхфазной сети переменного тока частотой 50 Гц напряжением 380/220 В с глухозаземленной нейтралью .

6.2 Анализ опасных и вредных факторов, воздействующих на разработчика при разработке данной системы.

Опасные и вредные производственные факторы по природе возникновения делятся на следующие группы:

-физические;

-химические;

-психофизиологические;

-биологические.

В помещении ВЦ на программиста могут негативно действовать следующие физические факторы согласно ГОСТ12.0.003-74*[1]:

-неблагоприятные параметры воздушной среды;

-недостаточная освещенность рабочего места;

-блескость экрана дисплея.

-превышающий допустимые нормы шум;

-повышенный уровень ионизирующего излучения;

-повышенный уровень электромагнитных полей;

-повышенный уровень статического электричества;

-мягкое рентгеновское излучение;

-ионизация воздуха;

-опасность поражения электрическим током;

К химически опасным факторам, постоянно действующим на программиста относятся следующие:

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

Биологические вредные производственные факторы в данном помещении отсутствуют.

К психофизиологическим вредным факторам, воздействующим на оператора в течение его рабочей смены можно отнести следующие:

-нервно - психические перегрузки;

-физическая перегрузка мышц;

-монотонность труда;

-малая частота регенерации изображения.

Далее более подробно рассмотрены опасные и вредные факторы, воздействующие на программиста, возникшие в связи с разработкой данной системы.

6.2.1 Микроклимат рабочей зоны разработчика.

Микроклимат производственных помещений - это климат внутренней среды этих помещений, который определяется действующими на организм человека сочетаниями температуры, влажности и скорости движения воздуха.

Работа в ВЦ согласно СанПиН 2.2.2/2.4.1340-03[2] ( с энергозатратами до 120 ккал/час) относится к 1а категории, поэтому должны соблюдаться следующие требования:

-в холодный период года: температура 22-24°С, влажность воздуха 40-60%, скорость движения воздуха 0.1м/с.

-в тёплый период года: температура 23-25°С, влажность воздуха 40-60%, скорость движения воздуха 0.1м/с.

Для создания и автоматического поддержания в лаборатории независимо от наружных условий оптимальных значений температуры, влажности, чистоты и скорости движения воздуха, в холодное время года используется водяное отопление, в теплое время года применяется кондиционирование воздуха. Кондиционер представляет собой вентиляционную установку, которая с помощью приборов автоматического регулирования поддерживает в помещении заданные параметры воздушной среды.

6.2.2Освещение рабочего места

Работа, выполняемая с использованием вычислительной техники, имеет следующие недостатки:

- вероятность появления прямой блескости;

- ухудшеннаяконтрастность между изображениеми фоном;

- отражение экрана.

-пульсация света.

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

Требования к искусственному освещению описаны в ГОСТ Р 50923-96[3]и СанПиН 2.2.2/2.4.1340-03[2] для работников вычислительных центров.

Искусственное освещение в помещениях эксплуатации ПЭВМ осуществляется системой общего равномерного освещения.

В производственных и административно-общественных помещениях, в случаях преимущественной работы с документами, разрешено применение системы комбинированного освещения (к общему освещению дополнительно устанавливаются светильники местного освещения, предназначенные для освещения зоны расположения документов).

Освещенность на поверхности стола в зоне размещения рабочего документа должна быть 300-500 лк(оптимальная-400лк), также допускается установка светильников местного освещения для подсветки документов, но с таким условием, чтобы оно не создавало бликов на поверхности экрана и не увеличивало освещенность экрана более чем на 300 лк относительно оптимальной.

В качестве источников света при искусственном освещении должны применяться преимущественно люминесцентные лампы типа ЛБ. При устройстве отраженного освещения в административно-общественных помещениях допускается применение металлогалогенных ламп мощностью до 250 Вт. Допускается применение ламп накаливания в светильниках местного освещения.

Общее освещение следует выполнять в виде сплошных или прерывистых линий светильников, расположенных сбоку от рабочих мест, параллельно линии зрения пользователя при рядном расположении ПЭВМ. При периметральном расположении компьютеров линии светильников должны располагаться локализовано над рабочим столом, ближе к его переднему краю, обращенному к оператору.

Для обеспечения нормируемых значений освещенности в помещениях использования ПЭВМ следует проводить чистку стекол оконных рам и светильников не реже двух раз в год и проводить своевременную замену перегоревших ламп.

6.2.3 Воздействие шума на разработчика. Защита от шума.

В помещениях с низким уровнем общего шума, каким является ВЦ, где работает программист, источниками шумовых помех могут стать вентиляционные установки, кондиционеры и принтеры. Длительное воздействие этих шумов отрицательно сказываются на эмоциональном состоянии персонала, от чего увеличивается число ошибок и падает производительность труда.

Согласно ГОСТР50923-96[3] и СН2.2.4/2.1.8.562-03[2]эквивалентный уровень звука не должен превышать 50 дБА, так как наше помещение расположено в жилом общественном здании.

В качестве мер по снижению шума можно предложить следующее:

-облицовка потолка и стен звукопоглощающим материалом;

- экранирование рабочего места (постановкой перегородок);

- установка в компьютерных помещениях оборудования, производящего минимальный шум;

- рациональная планировка помещения.

Защиту от шума следует выполнять в соответствии с ГОСТ12.1.029-80[5]

6.2.4 Опасность повышенного уровня напряженности электромагнитного поля.

Электромагнитные поля, характеризующиеся напряженностями электрических и магнитных полей, наиболее вредны для организма человек. Основным источником этих проблем, связанных с охраной здоровья людей, использующих в своей работе автоматизированные информационные системы на основе персональных компьютеров, являются дисплеи (мониторы), особенно дисплеи с электронно-лучевыми трубками. Они представляют собой источники наиболее вредных излучений, неблагоприятно влияющих на здоровье программиста.

Существуют два основополагающих стандарта в этой области: ГОСТР50948-96[6] и ГОСТР50949-96[7].

Ниже приведены нормы по электрическим и магнитным полям согласно СанПиН 2.2.2/2.4.1340-03[2].

-Напряжённость переменного электрического поля на расстоянии 50см вокруг дисплея:

в диапазоне частот 5Гц – 2Кгц: не более 25В/м;

в диапазоне частот2Кгц – 400Кгц: не более 2.5В/м.

-Плотность магнитного потока (магнитная индукция):

в диапазоне частот 5Гц – 2Кгц: не более 250нТл;

в диапазоне частот2Кгц – 400Кгц: не более 25нТл.

- Напряженность электростатического поляне более 15 кВ/м.

ГОСТ Р 51658-2000[14] - стандарт устанавливаеттребования к визуальным параметрам защитных фильтров, параметрам экранировки по электростатическому и переменным электрическим полям.

Поля, порождённые посторонними источниками (фоновые поля), определяются физическими особенностями этих источников и положением их по отношению к рабочему месту. Часто фоновые поля имеют общий источник – сеть электропитания, дающую существенный вклад на частоте 50Гц и её гармониках. Этот вклад во многом зависит от правильности организации электросети и контура зануления, удалённости и расположения рабочего места относительно розеток питания и других элементов сети. Особого внимания требуют случаи появления экстремальных полей посторонних источников, которые могут не только многократно превышать гигиенические требования, но и нарушать нормальную работу ПЭВМ. Исследование причин появления экстремальных полей, путей их снижения и устранения требует привлечения специализированных организаций, имеющих опыт решения таких задач и необходимую для этого аппаратуру.

6.2.5 Электробезопасность. Статическое электричество.

На рабочем месте программиста из всего оборудования металлическим является лишь корпус системного блока компьютера, но здесь используются системные блоки, отвечающие стандарту фирмы IBM, в которых кроме рабочей изоляции предусмотрен элемент для заземления и провод с зануляющей жилой для присоединения к источнику питания. Таким образом, оборудование выполнено по классу 1 ГОСТ 12.2.007.0-75*[8].

Опасное и вредное воздействие на людей электрического тока, электрической дуги и электромагнитных полей проявляется в виде профессиональных заболеваний.

Рассмотрим основные причины поражения программиста электрическим током на рабочем месте:

- Прикосновение к металлическим нетоковедущим частям (корпусу, периферии компьютера), которые могут оказаться под напряжением в результате повреждения изоляции.

- Нерегламентированное использование электрических приборов.

- Отсутствие инструктажа сотрудников по ПТЭ и ПТБ[17].

Обеспечение электробезопасности техническими способами и средствами

Так как все токоведущие части ЭВМ изолированы, то случайное прикосновение в процессе работы программиста к токоведущим частям исключено.

Для обеспечения дополнительной защиты от поражения электрическим током при прикосновении к металлическим нетоковедущим частям, которые могут оказаться под напряжением в результате повреждения изоляции, рекомендуется применять защитное зануление.

Зануление металлических частей системного блока ЭВМ обеспечено подведением зануляющей жилы к питающим розеткам. Сопротивление заземления нейтрали 4 Ом, согласно ПУЭ-03[15]для электроустановок с напряжением до 1000 В.

Организационные и технические мероприятия по обеспечению электробезопасности

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

При проведении незапланированного и планового ремонта вычислительной техники выполняются следующие действия:

- Отключение компьютера от сети

- Проверка отсутствия напряжения

После выполнения этих действий проводится ремонт неисправного оборудования. Ремонт необходимо производить в специально оборудованном помещении.

Если ремонт проводится на токоведущих частях, находящихся под напряжением, то выполнение работы проводится не менее чем двумя лицами с применением электрозащитных средств.

6.3 Организация рабочего места разработчика.

Производственная деятельность программиста, заставляет его продолжительное время находиться в сидячем положении, которое является вынужденной позой, поэтому организм постоянно испытывает недостаток в подвижности и активной физической деятельности. При выполнении работы, сидя, большую роль играет плечевой пояс. Перемещение рук в пространстве влияет не только на работу мышц плечевого пояса и спины, но и на положение позвоночника, таза и даже ног.

Чтобы исключить возникновение заболеваний необходимо иметь возможность свободной перемены поз. Необходимо соблюдать режим труда и отдыха с перерывами, заполняемыми "отвлекающими" мышечными нагрузками на те звенья опорно-двигательного аппарата, которые не включены в поддержание основной рабочей позы. (ГОСТР50923-96[3])

Антропологические характеристики человека определяют габаритные и компоновочные параметры его рабочего места, а также свободные параметры отдельных его элементов.

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

Рабочее место программиста согласно СанПиН 2.2.2/2.4.1340-03[2] должно занимать площадь не менее 6 м2 на одного человека, так как используются мониторы на базе ЭЛТ.

После проведения анализа рабочего места программиста в ВЦ было выяснено, что площадь данного рабочего места составляет 4 м2, что не соответствует приведенным требованиям. Также в результате анализа были выявлены нарушения в организации непосредственно самого рабочего места программиста. В связи с этим предлагается организовать рабочее место программиста, следующим образом. Высота над уровнем пола рабочей поверхности, за которой работает программист, должна составлять 720 мм. Желательно, чтобы рабочий стол программиста при необходимости можно было регулировать по высоте в пределах 680 - 780 мм. Оптимальные размеры поверхности стола 1600 х 1000 кв. мм. Под столом должно иметься пространство для ног с размерами по глубине 650 мм. Рабочий стол оператора должен также иметь подставку для ног, расположенную под углом 15° к поверхности стола. Длина подставки 400 мм, ширина-350 мм. Удаленность клавиатуры от края стола должна быть не более 300 мм, что обеспечит оператору удобную опору для предплечий. Расстояние между глазами оператора и экраном видеодисплея должно составлять 40 - 80 см.

Рабочий стул программиста должен быть снабжен подъемно-поворотным механизмом. Высота сиденья должна регулироваться в пределах 400 - 500 мм. Глубина сиденья должна составлять не менее 380 мм, а ширина не менее 400 мм. Высота опорной поверхности спинки не менее 300 мм, ширина - не менее 380 мм. Угол наклона спинки стула к плоскости сиденья должен изменяться в пределах 90 - 110°.

6.4 Анализ пожарной безопасности

Степень огнестойкости зданий принимается в зависимости от их назначения, категории по взрывопожарной и пожарной опасности, этажности, площади этажа в пределах пожарного отсека.

Общие требования по пожарной безопасности регламентируются ГОСТ12.1.004-91[10].

Здание, в котором находится ВЦ, по пожарной опасности строительных конструкций относится к категории К1 (малопожароопасное), поскольку здесь присутствуют горючие (книги, документы, мебель, оргтехника и т.д.) и трудносгораемые предметы (сейфы, различное оборудование и т.д.).

По конструктивным характеристикам здание можно отнести к зданиям с несущими и ограждающими конструкциями из естественных или искусственных каменных материалов, бетона или железобетона, где для перекрытий допускается использование деревянных конструкций, защищенных штукатуркой или трудногорючими листовыми, а также плитными материалами.

Следовательно, степень огнестойкости здания можно определить как третью (III). ГОСТ Р 22.7.01-99[11], СНиП 2.04.09-84[12].

Помещение ВЦ по функциональной пожарной опасности относится к классу Ф 4.3 - учреждения органов управления, проектно-конструкторские организации, информационные и редакционно-издательские организации, научно-исследовательские организации, банки, конторы, офисы;СНиП 21-01-97[13].

Для предотвращения возникновения пожара на рабочем месте необходимо соблюдение правил пожарной безопасности (ППБ 01-03[16]), кроме того, действует федеральный закон «О пожарной безопасности» № 69-ФЗ (от 21.12.1994г.).

Пожарная профилактика представляет собой комплекс организационных и технических мероприятий, направленных на обеспечение безопасности людей, на предотвращении пожара, ограничение его распространения, а также создание условий для успешного тушения пожара. Для профилактики пожара чрезвычайно важна правильная оценка пожароопасности здания, определение опасных факторов и обоснование способов и средств пожаропредупреждения и защиты ППБ 01-03[16].

Одно из условий обеспечения пожаробезопасности - ликвидация возможных источников воспламенения.

В ВЦ источниками воспламенения могут быть:

-неисправное электрооборудование, неисправности в электропроводке, электрических розетках и выключателях. Для исключения возникновения пожара по этим причинам необходимо вовремя выявлять и устранять неисправности, проводить плановый осмотр и своевременно устранять все неисправности;

-неисправные электроприборы. Необходимые меры для исключения пожара включают в себя своевременный ремонт электроприборов, качественное исправление поломок, не использование неисправных электроприборов;

-обогревание помещения электронагревательными приборами с открытыми нагревательными элементами. Открытые нагревательные поверхности могут привести к пожару, так как в помещении находятся бумажные документы и справочная литература в виде книг, пособий, а бумага легковоспламеняющийся предмет. В целях профилактики пожара предлагается не использовать открытые обогревательные приборы в помещении ВЦ.

- несоблюдение мер пожарной безопасности, и курение в помещении также может привести к пожару. Для устранения возгорания в результате курения в помещении ВЦ предлагается категорически запретить курение, а разрешить только в строго отведенном для этого месте.

В целях предотвращения пожара предлагается проводить с инженерами, работающими в ВЦ, противопожарный инструктаж, на котором ознакомить работников с правилами противопожарной безопасности, а также обучить использованию первичных средств пожаротушения.

В случае возникновения пожара необходимо отключить электропитание, вызвать по телефону пожарную команду, эвакуировать людей из помещения согласно плану эвакуации и приступить к ликвидации пожара огнетушителями. При наличии небольшого очага пламени можно воспользоваться подручными средствами с целью прекращения доступа к объекту возгорания.

Для тушения пожаров на начальных стадиях широко применяются огнетушители. По виду используемого огнетушащего вещества огнетушители подразделяются на следующие основные группы.

Пенные огнетушители, применяются для тушения горящих жидкостей, различных материалов, конструктивных элементов и оборудования, кроме электрооборудования, находящегося под напряжением.

Газовые огнетушители применяются для тушения жидких и твердых веществ, а также электроустановок, находящихся под напряжением.

К системам сигнализации предъявляются следующие технические требования: они должны иметь минимальную инерционность сработки, обеспечивать заданную достоверность информации, отсутствие ошибочной сработки; быть надежными в работе при всех условиях эксплуатации, обеспечивать автономное включение сигнала тревоги.

Основными элементами пожарной сигнализации являются:

датчики пожарной сигнализации, которые размещаются в наиболее пожаро- и взрывоопасных местах;

электронно-усилительный блок, который обеспечивает дистанционный контроль за состоянием датчиков;

исполнительный блок, с помощью которого включается первый рубеж противопожарной системы и блок сигнализации.

Датчики – наиболее важный элемент системы сигнализации, который в основном определяет возможности и характеристики системы в целом.

В качестве пожарных извещателей выбираем 10 тепловых датчиков типа ИП-103М-5АС; в качестве средств пожаротушения – один углекислотный огнетушитель ОУ-5, в силу условий, приведенных выше.

6.5Расчет искусственного освещения

Конечной целью расчёта искусственного освещения является определение типа, числа и расположения светильников, а также типа, числа и мощности ламп, необходимых для обеспечения требуемого нормативного уровня освещенности.

Расчёт освещения производился в системе MathCAD 2000. Помещение имеет следующие характеристики:

Нормативные уровни освещенности рабочего места осуществляются согласно СНиП 23-05-95[19] .

E_норм – нормированная минимальная освещенность для нашего помещения равна 300лк.

Показатель ослепленности P= 20 %

Коэффициент пульсаций освещенности K_п= 15 %

Для искусственного освещения рабочих мест с ПЭВМ следует использовать люминесцентные лампы, имеющие высокую световую отдачу (до 75 лм/Вт и более), большой срок службы (до 10000 ч), малую яркость светящейся поверхности, а также близкий к естественному спектр излучения, что обеспечивает хорошую цветопередачу. Наиболее целесообразным для применения освещения рабочих мест с ПЭВМрекомендуются люминесцентные лампы 36-65 Вт типа ЛБ (белого цвета) или лампы типа ЛТБ (тёпло-белого цвета) мощностью 20 или 40 Вт.

При питании газоразрядных ламп от сети переменного тока осветительные установки кроме нормативных условий освещенности должны также удовлетворять требованию приемлемого уровня пульсаций освещенности.

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

Выбирая систему освещения, необходимо учитывать, что более эффективной является система комбинированного освещения, но система общего освещения более гигиенична, т.к. обеспечивает большую равномерность освещенности рабочих поверхностей, поэтому остановимся на последней.

Тип светильников определяется с учётом требований к освещению данного помещения, по экономическим показателям, а также в зависимости от условий среды и требований взрыво- и пожаробезопасности. Таким образом, конструктивное исполнение светильников должно соответствовать условиям окружающей среды: влажности, запыленности, пожаро- и взрывоопасности и другим особенностям производства.

Расположение светильников оказывает существенное влияние на экономичность, качество и удобство эксплуатации системы освещения и должно обеспечивать заданные уровни освещённости на всех рабочих местах при наименьшей мощности установленных ламп. Это возможно благодаря выбору наивыгоднейшего соотношения между расстоянием между рядами светильников и высотой подвеса светильника над рабочей поверхностью.

Поскольку мощность люминесцентных ламп и их количество в светильнике известны, то расчёт числа светильников будем вести по формуле (1) .

7 Заключение

Использование данной системы возможно только в том случаи, если установлен механизм работы с базой данных – BDE, а также желательно наличие ОС WidowsXP.

Возможно, также исправление узких мест системы, если таковые обнаружатся в ходе использования данной системы или же может иметь место увеличение производительности системы в плане повышения функциональности (например, добавления возможности распечатки отчетов и т. д.)

Список литературы

1. ГОСТ 12.0.003-74 “ОПАСНЫЕ И ВРЕДНЫЕ ПРОИЗВОДСТВЕННЫЕ ФАКТОРЫ. Классификация”

2.СанПиН 2.2.2.542-03 “Гигиенические требования к персональным электронно-вычислительным машинам и организации работы”

3.ГОСТ Р 50923-96“Дисплеи. Рабочее место оператора. Общие эргономические требования и требования к производственной среде. Методы измерения.”

4.СН 2.2.4/2.1.8.562-03“Шум на рабочих местах в помещениях жилых общественных зданий и на территории жилой застройки”

5. ГОСТ 12.1.029-80“Средства и методы защиты от шума. Классификация”

6.ГОСТ Р 50948-96“Средства отображения информации индивидуального пользования. Общие эргономические требования и требования безопасности”

7.ГОСТ Р 50949-96“Средства отображения информации индивидуального пользования. Методы измерения и оценки эргономических параметров и параметров безопасности”

8.Гост 12.2.007.0-75* “ИЗДЕЛИЯ ЭЛЕКТРОТЕХНИЧЕСКИЕ.Общие требования безопасности”

9. ГОСТ 12.1.019-79 “Электробезопасность. Общие требования и номенклатура видов защиты”

10. ГОСТ 12.1.004-91 “ПОЖАРНАЯ БЕЗОПАСНОСТЬ”

11. ГОСТ Р 22.7.01-99 “Безопасность в чрезвычайных ситуациях. Единая дежурно-диспетчерская служба. Основные положения”

12. СНиП 2.04.09-84 “ПОЖАРНАЯ АВТОМАТИКА ЗДАНИЙ И СООРУЖЕНИЙ”

13. СНиП 21-01-97 “ПОЖАРНАЯ БЕЗОПАСНОСТЬ ЗДАНИЙ И ОРУЖЕНИЙ”

14. ГОСТ Р 51658-2000 "Фильтры-экраны защитные для средств отображения информации. Типы, основные параметры и методы измерений".

15. ПУЭ-03 “Правила устройства электроустановок”

16. ППБ 01-03“Правила пожарной безопасности”

17. ПТЭ и ПТБ “Правила технической эксплуатации электрических станций и сетей РФ” и “Правила техники безопасности при эксплуатации электрических станций и сетей РФ”

18. Материалы по Delphi на сайте http://www.delphikingdom.com (сеть Internet)

19. П.Дарахвелидзе, Е.Марков “Программирование в Delphi7” СПб.: БХВ-Петербург, 2004

20. С.Бобровский “Delphi7. Учебный курс” СПб.: Питер, 2004

21. В. Никамин. "Форматы цифровой звукозаписи". СПб.: Элби, 1998

22. Н. Секунов. "Обработка звука на PC". - СПб.: БХВ-Петербург, 2001

23. 8. Д. Смирнов, О. Логутенко. "Аудиосистема РС". СПб.: БХВ-Петербург, 1999

24. И. Кузнецов “Обзор возможностей системы Audio Compression Manager (ACM)”

25. Е. Музыченко. "Подсистема сжатия звука в Windows". Компьютер-Пресс, №7-2000

26. Е. Музыченко. " Обработка звуковых файлов в Windows". Компьютер-Пресс, №8-2000

27. “Acorp-EMSF2 V90V92 modem. Руководство пользователя”DdiXLabs. 2002

30. Материалы по TAPI на сайте (сеть Internet)

Приложение 1

Исходный текст программы

program SysWave;

uses

Forms,

main in 'main.pas' {SysWaves},

DataMode in 'DataMode.pas' {DataModule1: TDataModule},

About in 'About.pas' {Abouts},

VarTo in 'VarTo.pas' {VarS};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TSysWaves, SysWaves);

Application.CreateForm(TDataModule1, DataModule1);

Application.CreateForm(TAbouts, Abouts);

Application.CreateForm(TVarS, VarS);

Application.Run;

end.

Главный модуль

unitmain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ComCtrls, StdCtrls, XPMan, Buttons,IniFiles, Mask,mmSystem,

Grids, DBGrids,DataMode, ExtCtrls,About, TAPITon, TAPIAddress,MSAcm,

TAPIDevices, TAPICall, TAPILines, TAPISystem, DevConf, TAPIServices,

TAPILineSelectDialog, TAPIWave,VarTo, TAPIPhone;

type

TRecorderMode = (recModeOff, recModeRecord, recModePlay);

TSysWaves = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

MainMenu1: TMainMenu;

exit1: TMenuItem;

GroupBox2: TGroupBox;

TabSheet3: TTabSheet;

XPManifest1: TXPManifest;

SaveConf: TBitBtn;

DBGrid1: TDBGrid;

Play: TBitBtn;

Answer: TBitBtn;

DisplayMemo: TMemo;

HandsetDown: TBitBtn;

GroupBox3: TGroupBox;

Panel1: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

DialNo: TBitBtn;

CancelNo: TBitBtn;

GroupBox4: TGroupBox;

CallNo: TEdit;

About1: TMenuItem;

TAPICall1: TTAPICall;

TAPILine1: TTAPILine;

CallParams1: TCallParams;

TAPILineDevice1: TTAPILineDevice;

TAPIAddress1: TTAPIAddress;

TAPILineDeviceConfig1: TTAPILineDeviceConfig;

TAPILineService1: TTAPILineService;

Bevel1: TBevel;

Timer1: TTimer;

FormatTagLabel: TLabel;

FormatDescLabel: TLabel;

Label6: TLabel;

Label7: TLabel;

LengthDispLabel: TLabel;

LengthPosLabel: TLabel;

TrackBar1: TTrackBar;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Bevel2: TBevel;

DelTrack: TSpeedButton;

Stop: TBitBtn;

GroupBox5: TGroupBox;

Bevel3: TBevel;

GetFormatTag: TLabel;

GetFormatDesc: TLabel;

GetFormat: TBitBtn;

GroupBox6: TGroupBox;

Label3: TLabel;

MaskEdit1: TMaskEdit;

CheckBox1: TCheckBox;

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Timer2: TTimer;

FTLabel: TLabel;

FDLabel: TLabel;

ClearNo: TSpeedButton;

Label1: TLabel;

MaskEdit2: TMaskEdit;

Bevel4: TBevel;

ModemName: TLabel;

Label2: TLabel;

Label4: TLabel;

Timer3: TTimer;

DevName: TLabel;

GroupBox7: TGroupBox;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label5: TLabel;

Label12: TLabel;

Select: TSpeedButton;

NoSelect: TSpeedButton;

TAPIPhoneService1: TTAPIPhoneService;

TAPIPhoneDevice1: TTAPIPhoneDevice;

TAPIPhone1: TTAPIPhone;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

GroupBox9: TGroupBox;

HeadSetVolume: TProgressBar;

HeadSetGain: TProgressBar;

HandSetVolume: TProgressBar;

HandSetGain: TProgressBar;

HeadSetVolUpDown: TUpDown;

HeadSetGainUpDown: TUpDown;

HandSetVolUpDown: TUpDown;

HandSetGainUpDown: TUpDown;

Image1: TImage;

Image2: TImage;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

procedure SaveConfClick(Sender: TObject);

procedure PlayClick(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure About1Click(Sender: TObject);

procedure DialNoClick(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure CancelNoClick(Sender: TObject);

procedure TAPICall1StateConnected(Sender: TObject;

ConnectedMode: TLineConnectedModes; Rights: TLineCallPrivilege);

procedure TAPICall1StateDisconnected(Sender: TObject;

DisconnectedMode: TLineDisconnectMode; Rights: TLineCallPrivilege);

procedure TAPICall1StateProceeding(Sender: TObject;

Rights: TLineCallPrivilege);

procedure TAPILineDevice1StateRinging(Sender: TObject; RingModeIndex,

RingCounter: Cardinal);

procedure TAPICall1InfoCallerId(Sender: TObject);

procedure exit1Click(Sender: TObject);

procedure AnswerClick(Sender: TObject);

procedure GetFormatClick(Sender: TObject);

procedure StopClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure ClearNoClick(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure TAPILineDevice1StateReMoved(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure HandsetDownClick(Sender: TObject);

procedure SelectClick(Sender: TObject);

procedure NoSelectClick(Sender: TObject);

procedure DelTrackClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure TAPICall1Reply(Sender: TObject; AsyncFunc: TAsyncFunc;

Error: Cardinal);

procedure SpeedButton12Click(Sender: TObject);

procedure TAPICall1StateBusy(Sender: TObject; BusyMode: TLineBusyMode;

Rights: TLineCallPrivilege);

procedure HeadSetVolUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

procedure HeadSetGainUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

procedure HandSetVolUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

procedure HandSetGainUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

procedure TAPICall1StateOffering(Sender: TObject;

OfferingMode: TLineOfferingModes; Rights: TLineCallPrivilege);

procedure TAPICall1StateIdle(Sender: TObject;

Rights: TLineCallPrivilege);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

FPulse : boolean;{признак импульсного набора номера}

FAutoAnswer : boolean;{признак автоответа модема}

ConfigFile : TIniFile;{переменная инициализационного файла}

FTimeReg : integer;{Время регистрации}

FTimeCounter : integer;{счетчик времени}

VG : array[1..4] ofinteger;{массив с настройками телефонной

гарнитуры}

{******************Для работы со звуковыми данными*************************************************************}

FWaveInID : DWORD;{индификатор Wave устройства}

FWaveFormat : PWAVEFORMATEX;{указатель на структуру ТWAVEFORMATEX

(формата звуковых данных)}

FTotalWaveSize : DWORD;{ Номер записанных выборок }

FByteDataSize: DWORD;{ Накапливаемый размер записанных данных}

FDiskFreeSpace : DWORD;{Свободное пространство для временного файла }

FWaveHdr : array [0..1] ofPWAVEHDR;{ Точки доступа к wav информации

заголовка}

FWaveMem : array [0..1] ofPChar;{Точки доступа к wav буферам }

FBufIndex : Integer;{ Номер буфера который добавляется для использования}

FWaveIn : HWAVEIN;//Маркер{Дескриптор} устройства для того, чтобы

//делать запись

FWaveOut : HWAVEOUT;//Маркер{Дескриптор} устройства для проигрывания звука

FMaxFmtSize : DWORD;// наибольший размер формата, требуемый для сжатия

FFormatDesc : String;// Описание формата

FFormatTag : String;// Описание тэга формата

FDeviceOpened: Boolean;// состояние открытияустройства

FRecorderMode : TRecorderMode;//Режим рекордера

//записи/проигрывания/не активности

FWaveBufSize : DWORD;// Размер буфера

FFilename : String;// Имя файла, чтобы сохранить WAV

FMoreToPlay : Boolean; //признак наличия звуковых данных, чтобы проигрывать

FRecordedData: Boolean;// мы сделали запись данных

FTmpFileName : String;//имя временного WAV файла

FTmpFileHandle : HFILE; // Маркер{Дескриптор} к временному WAV файлу

//==============работа с временым файлом========================================

function OpenTmpFile : Integer; // Открытие временного файла для чтения.

function CreateTmpFile : integer; // Создание временного файла чтобы писать

//wav данные.

procedureDeleteTmpFile; // Удаление временного wav файла.

procedureCloseTmpFile; // Закрытие временного файла содержащего недавно

//записаные данные.

//==================работа с записью============================================

procedure StopWaveRecord;// Остановка записи.

functionStartWaveRecord : Integer;// Подготовка заголовков, добавление

//буфера, подготовка показа, и начало записи.

procedureInitWaveHeaders;// Обнуляет заголовки wav и инициализирует

//указатели данных и буферные длины

procedureCloseWaveDeviceRecord;//Закрытие временного файли устройства,

//делающего запись.

procedure UpdateLength(BytePosition : DWORD; BytePositiontotal : DWORD);//

// Обновление на экране числа записанных байт

function AddNextBuffer : integer;// Добавление буфера к очереди и

//переключение индекса буфера

procedureUpdateRecordDisplay;// обновления количества записанных байтов

//================сохранение файла==============================================

function SaveWaveFile : integer;// Сохранение wav файла

procedure WFerror(mmfp : HMMIO; const msg : String); // Закрытие wav файла,

//вывод сообщения об ошибках

function CopyDataToWaveFile(mmfp : HMMIO) : integer;// Копирование wav данных

//из временного файла в wav файл

//======================получение и установка кодеков===========================

function GetWaveFormat : integer;//функция вызывающая визуальный выбор кодека

function GetFormatTagDetails(wFormatTag : WORD) : integer; // Получение

//подробности тэга формата, и сохранение строкового описания.

//=========================инициализация========================================

function InitWaveRecorder : integer;//Размещение формата и заголовков wav,

//буфера данных, и получение временного имени файла

function AllocWaveFormatEx : Integer;//Размещение и захват структуры WAVEFORMATEX,

//основанную на максимальном размере формата согласно ACM.

function GetFormatDetails(pfmtin : PWAVEFORMATEX) : integer; // Получение

//подробности формата, и сохранение строкового описания.

function AllocWaveHeader : integer; //размещение в памяти заголовка wave

function AllocPCMBuffers : Integer;//размещение wave буфера в памяти

//========================завершение============================================

procedureDestroyWaveRecorder; // Освобождение памяти, связанной с буферами wav.

procedure FreeWaveFormatEx; // Освобождение WAVEFORMATEX буфера

procedure FreeWaveHeader;//Освобождение памяти заголовка wav.

procedure FreePCMBuffers; //Освобождение памяти wav.

//===================проигрывание звука=========================================

function ReadWaveFile : Integer;//Чтение wav файла

function CopyWaveToTempFile(mmfp : HMMIO; datasize : DWORD) : Integer;//

//Копирование данныхиз wav файла RIFF во временый файл.

function StartWavePlay : Integer;//Подготовка заголовков, добавление буферов,

//и начало проигрывания.

procedureStopWavePlay; //остановка проигрывания wav файла

procedureCloseWaveDevicePlay; // закрытие устройства проигрывания

function QueueNextBuffer : Integer;// Запись из буфера в wav устройство и

//переключение индекса буфера .

function ReadWaveBuffer : Integer;// Чтение куска wav из временного файла

//====================работа с сообщениями wave=================================

procedure MMWimData(var msg: TMessage); message MM_WIM_DATA;//вызывается

//если устройство завершило передачу данных в блок памяти, установленный

//процедурой waveInAddBuffer;

procedure MMWomDone(var msg: TMessage); message MM_WOM_DONE; // Сделать

//проигрывание очередного волнового буфера, если проигран предыдущий.

procedure MMWomClose(var msg: TMessage); message MM_WOM_CLOSE;// посылается,

//когда устройство закрывается функцией waveOutClose;

function WriteWaveBuffer(size : UINT) : integer; // Запись записаных даных

//в временый файл

{*******************************************************************************************************************************}

procedure Display(Msg : String); // выводит сообщение Msg наDisplayMemo

procedureerrormsg(msg : String); // Отобразите сообщение об ошибках.

public

{ Public declarations }

end;

const

{Тип FOURCC

Описывает коды, используемых в формате RIFF (Resource Interchange File Format -

формат файлов обмена ресурсами). }

WAVE_BUFSIZE = 32768;

FOURCC_WAVE = $45564157; { 'WAVE' }

FOURCC_FMT = $20746d66; { 'fmt ' }

FOURCC_FACT = $74636166; { 'fact' }

FOURCC_DATA = $61746164; { 'data' }

var

SysWaves: TSysWaves;

implementation

{$R *.dfm}

{*********************обработка формы SysWaves**********************************************}

//при создании формы и всей проги

procedure TSysWaves.FormShow(Sender: TObject);

var

v:variant;

begin

FRecorderMode:= recModeOff;//режим рекордера устанавливаем 'нет режима записи'

//если функция "Разместите формат и заголовки волны, буфера данных, и временное имя файла" <> 0

if InitWaveRecorder <> 0 then Application.Terminate;//то завершить программу

//проверяет наличие файла config.ini

if FileExists(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'config.ini') then begin

//создает или открывает конфигурационный файл

ConfigFile:=TIniFile.Create(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'config.ini');

//проверяет наличие в config.ini разделов WaveFormat и DeviceMode,VolGain

if (ConfigFile.SectionExists('WaveFormat')=false) and (ConfigFile.SectionExists('DeviceMode')=false) and (ConfigFile.SectionExists('VolGain')=false) then begin

//принудительно устанавливает режим администратора

VarS.RadioButton1.Checked:=false;

VarS.RadioButton2.Checked:=true;

VarS.RadioButton1.Enabled:=false;

VarS.UserName.Enabled:=false;

end;

ConfigFile.Free;

end

elsebegin

//принудительно устанавливает режим администратора

VarS.RadioButton1.Checked:=false;

VarS.RadioButton2.Checked:=true;

VarS.RadioButton1.Enabled:=false;

VarS.UserName.Enabled:=false;

end;

//выбор прав и интерфейса

VarS.ShowModal;

try

//инициализируем ТAPI (интерфейс, устройства)

TAPILineService1.Active:=True;

TAPILine1.Active:=True;

TAPIAddress1.SetStatusMessages;

TAPIPhone1.Device.ID:= TAPILine1.Device.ID;

TAPIPhoneService1.Active:=true;

TAPIPhone1.Active:=true;

except

errormsg('Ошибка определения устройства типа модем');

Application.Terminate;

end;

//при выборе интерфейса - пользователь

if VarS.Tag=1 then begin

//установка заголовка формы и ее вида

SysWaves.Caption:='SysWave - пользователь';

TabSheet2.TabVisible:=false;

TabSheet3.TabVisible:=false;

//вывод на экран формата сжатия

FormatTagLabel.Caption:= FFormatTag;

FormatDescLabel.Caption := FFormatDesc;

DisplayMemo.Clear;

LengthPosLabel.Caption:= '0';

LengthDispLabel.Caption := '0';

DevName.Caption:=TAPILineDevice1.Caps.Name;//вывод на экран устройства типа модем

//загрузка настроек из config.ini

try

ConfigFile:=TIniFile.Create(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'config.ini');

//загрузка настроек устройства типа модем

FAutoAnswer:=ConfigFile.ReadBool('DeviceMode','AutoAnswer',true);

FPulse:=ConfigFile.ReadBool('DeviceMode','Pulse',true);

TAPIAddress1.NumRings:=ConfigFile.ReadInteger('DeviceMode','NumRings',0);

FTimeReg:=ConfigFile.ReadInteger('DeviceMode','TimeReg',0);

VG[1]:=ConfigFile.ReadInteger('VolGain','HeadSetVolume',50000);

VG[2]:=ConfigFile.ReadInteger('VolGain','HeadSetGain',50000);

VG[3]:=ConfigFile.ReadInteger('VolGain','HandSetVolume',50000);

VG[4]:=ConfigFile.ReadInteger('VolGain','HandSetGain',50000);

ConfigFile.Free;

except

errormsg('Ошибка загрузки конфигурации!');

Application.Terminate;

end;

if FAutoAnswer then Label4.Caption:='Авто'

else Label4.Caption:='Ручной'

end;

//при выборе интерфейса - администратор

if VarS.Tag=2 then begin

//установка заголовка формы и ее вида

SysWaves.Caption:='SysWave - администратор';

TabSheet1.TabVisible:=false;

ModemName.Caption:=TAPILineDevice1.Caps.Name;

//вывод на экран формата сжатия

GetFormatTag.Caption:= FFormatTag;

GetFormatDesc.Caption := FFormatDesc;

TAPILineService1.Active:=false;

TAPILine1.Active:=false;

TAPIPhoneService1.Active:=false;

TAPIPhone1.Active:=false;

//загрузка настроек из config.ini

try

ConfigFile:=TIniFile.Create(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'config.ini');

RadioButton1.Checked:=ConfigFile.ReadBool('DeviceMode','AutoAnswer',true);

RadioButton2.Checked:= not RadioButton1.Checked;

CheckBox1.Checked:=ConfigFile.ReadBool('DeviceMode','Pulse',true);

MaskEdit1.Text:=ConfigFile.ReadString('DeviceMode','NumRings','0');

MaskEdit2.Text:=ConfigFile.ReadString('DeviceMode','TimeReg','0');

HeadSetVolUpDown.Position:=trunc(ConfigFile.ReadInteger('VolGain','HeadSetVolume',0)/2);

HeadSetGainUpDown.Position:=trunc(ConfigFile.ReadInteger('VolGain','HeadSetGain',0)/2);

HandSetVolUpDown.Position:=trunc(ConfigFile.ReadInteger('VolGain','HandSetVolume',0)/2);

HandSetGainUpDown.Position:=trunc(ConfigFile.ReadInteger('VolGain','HandSetGain',0)/2);

ConfigFile.Free;

except

errormsg('Ошибка загрузки конфигурации!');

Application.Terminate;

end;

//открытие базы данных

Datamodule1.WavBase.Open;

if not Datamodule1.WavBase.Active then begin

errormsg('Ошибка открытия базы данных!');

Application.Terminate;

end;

////////////////////////////////////////////////////////////////////////////

//при закрытии формы и всей проги

procedure TSysWaves.FormDestroy(Sender: TObject);

begin

//отключаем ТAPI (интерфейс, устройства)

TAPIPhoneService1.Active:=false;

TAPILineService1.Active:=false;

TAPILine1.Active:=false;

TAPIPhone1.Active:=false;

//если идет запись остановить ее

if FRecorderMode = recModeRecord then StopWaveRecord

//если идет проигрыш остановить его

else if FRecorderMode = recModePlay then StopWavePlay;

// Освобождение памяти, связанной с wav буферами.

DestroyWaveRecorder;

end;

//////////////////////////////////////////////////////////////////////////

//Вывод информациии о программе

procedure TSysWaves.About1Click(Sender: TObject);

begin

Abouts.ShowModal;

end;

////////////////////////////////////////////////////////////////////////////

//при нажатии Выход

procedure TSysWaves.exit1Click(Sender: TObject);

begin

close;

end;

{********************работа с модемом***************************************}

//при удаление устройства из системы

procedure TSysWaves.TAPILineDevice1StateReMoved(Sender: TObject);

begin

errormsg('Устройство было удалено из системы. Программа будет закрыта');

Application.Terminate;

end;

/////////////////////////////////////////////////////////////////////////////

//набор номера(запрос на соединение)

procedure TSysWaves.DialNoClick(Sender: TObject);

begin

DialNo.Enabled:=false;

CancelNo.Enabled:=true;

//проверка настройки тонального или импульсного набора номера

if FPulse then TAPIAddress1.OutboundCall.MakeCall(TAPILine1.Handle,'p'+ CallNo.Text,0)

else TAPIAddress1.OutboundCall.MakeCall(TAPILine1.Handle,'t'+ CallNo.Text,0)

end;

////////////////////////////////////////////////////////////////////////////

//отмена набора номера и соединения

procedure TSysWaves.CancelNoClick(Sender: TObject);

begin

Display('Идет отмена вызова...');

TAPICall1.Drop;//понижение статуса вызова

DialNo.Enabled:=true;

CancelNo.Enabled:=false

end;

/////////////////////////////////////////////////////////////////////////////

//при состоянии соединения модема с удаленным телефоном

procedure TSysWaves.TAPICall1StateConnected(Sender: TObject;

ConnectedMode: TLineConnectedModes; Rights: TLineCallPrivilege);

begin

Display('Соединение...');

TAPIPhone1.SpeakerHookSwitchMode:=phsmMicSpeaker;//включаем общую связь

TAPIPhone1.SpeakerVolume:=65000;

TAPIPhone1.SpeakerGain:=65000;

TAPIPhone1.HeadSetHookSwitchMode:=phsmMicSpeaker;//включаем наушники

TAPIPhone1.HandSetHookSwitchMode:=phsmMicSpeaker;//включаем микрофон

//установка громкости наушников и микрофона

TAPIPhone1.HeadSetVolume:=VG[1];

TAPIPhone1.HeadSetGain:=VG[2];

TAPIPhone1.HandSetGain:=VG[3];

TAPIPhone1.HandSetVolume:=VG[4];

//если идет запись

ifFRecorderMode <> recModeOffthen// остановить запись

StopWaveRecord

else begin

Display('Идет запись...');

//делаем записи в базе данных

Datamodule1.WavBase.Insert;

Datamodule1.WavBase.FieldByName('DateName').AsDateTime:=Date;//дата

Datamodule1.WavBase.FieldByName('TimeName').AsDateTime:=Time;//время

//имя пользователя

Datamodule1.WavBase.FieldByName('UserName').AsString:=VarS.UserName.Text;

FTimeCounter:=0;//обнуляем счетчик времени

StartWaveRecord; // начать запись

end;

/////////////////////////////////////////////////////////////////////////////

//при состоянии разъединения модема с удаленным телефоном

procedure TSysWaves.TAPICall1StateDisconnected(Sender: TObject;

DisconnectedMode: TLineDisconnectMode; Rights: TLineCallPrivilege);

begin

Display('Соединение разорвано');

//если идет запись

ifFRecorderMode <> recModeOffthen//остановить запись

StopWaveRecord;

//если время разговора >= времени регистрации

if FTimeCounter >= FTimeRegthen begin

SaveWaveFile;//сохранить файл с звуковыми данными

Datamodule1.WavBase.Post;//запись внесенных изменений в базу данных

end

else

Datamodule1.WavBase.Cancel;//отмена изменений внесенных в текущую запись

Answer.Enabled:=true;

HandsetDown.Enabled:=false;

TAPICall1.Drop;//понижение статуса запроса

end;

/////////////////////////////////////////////////////////////////////////////

//сообщение о наборе номера

procedure TSysWaves.TAPICall1StateProceeding(Sender: TObject;

Rights: TLineCallPrivilege);

begin

display('Идет набор номера ' + CallNo.Text);

end;

///////////////////////////////////////////////////////////////////////////////

//при состоянии звонка

procedure TSysWaves.TAPILineDevice1StateRinging(Sender: TObject;

RingModeIndex, RingCounter: Cardinal);

begin

display('Звонок...');

Windows.Beep(300, 500);//подача звукового сигнала через встроенный динамик

Windows.Beep(350, 500);

//если режим ответа модема - авто

if FAutoAnswer then begin

//если кол-во принятых звонков >= заданных

if RingCounter >= TAPIAddress1.NumRings then begin

Answer.Enabled:=false;

HandsetDown.Enabled:=true;

TAPIAddress1.InboundCall.Answer;//модем берет трубку

end;

end

end;

/////////////////////////////////////////////////////////////////////////

//при поступлении информации о входящем звонке

procedure TSysWaves.TAPICall1InfoCallerId(Sender: TObject);

begin

//если есть информация о входящем звонке

if TAPICall1.Info.CallerID <> '' thenbegin

display('Входящий звонок с номером' + TAPICall1.Info.CallerID);

end;

////////////////////////////////////////////////////////////////////////////

//пользователь берет трубку

procedure TSysWaves.AnswerClick(Sender: TObject);

begin

Answer.Enabled:=false;

HandsetDown.Enabled:=true;

TAPIAddress1.InboundCall.Answer;//модем берет трубку

end;

////////////////////////////////////////////////////////////////////////////

//пользователь положил трубку

procedure TSysWaves.HandsetDownClick(Sender: TObject);

begin

Answer.Enabled:=true;

HandsetDown.Enabled:=false;

TAPICall1.Drop;//понижение статуса запроса

end;

////////////////////////////////////////////////////////////////////////////////

//отчистка набираемого номера

procedure TSysWaves.ClearNoClick(Sender: TObject);

begin

CallNo.Clear;

end;

//при состоянии поступления предложения запроса

procedure TSysWaves.TAPICall1StateOffering(Sender: TObject;

OfferingMode: TLineOfferingModes; Rights: TLineCallPrivilege);

begin

TAPIAddress1.InboundCall.Accept;// приложение примет контроль вызова

end;

//если запрос находится в неактивном состоянии

procedure TSysWaves.TAPICall1StateIdle(Sender: TObject;

Rights: TLineCallPrivilege);

begin

TAPICall1.DeallocateCall;

end;

//при состоянии занято

procedure TSysWaves.TAPICall1StateBusy(Sender: TObject;

BusyMode: TLineBusyMode; Rights: TLineCallPrivilege);

begin

TAPIAddress1.OutboundCall.Drop;

end;

//ответ модема

procedure TSysWaves.TAPICall1Reply(Sender: TObject; AsyncFunc: TAsyncFunc;

Error: Cardinal);

begin

if Error <> 0 then errormsg('Ошибка.Модем не может реагировать на запрос.');

if AsyncFunc =afDrop then TAPICall1.DeallocateCall;

end;

{***********************набор номера с клавиатура на экране******************************************}

procedure TSysWaves.SpeedButton1Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '1';

end;

procedure TSysWaves.SpeedButton2Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '2';

end;

procedure TSysWaves.SpeedButton3Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '3';

end;

procedure TSysWaves.SpeedButton4Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '4';

end;

procedure TSysWaves.SpeedButton5Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '5';

end;

procedure TSysWaves.SpeedButton6Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '6';

end;

procedure TSysWaves.SpeedButton7Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '7';

end;

procedure TSysWaves.SpeedButton8Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '8';

end;

procedure TSysWaves.SpeedButton9Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '9';

end;

procedure TSysWaves.SpeedButton10Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '0';

end;

procedure TSysWaves.SpeedButton11Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '*';

end;

procedure TSysWaves.SpeedButton12Click(Sender: TObject);

begin

CallNo.Text:=CallNo.Text + '#';

end;

{******************Работа со звуком****************************************}

//=========================инициализация===================================

//Размещение формата и заголовков wav, буфера данных, и получение временного имени файла

function TSysWaves.InitWaveRecorder : integer;

var

Temp : array [0..MAX_PATH] of char;

begin

Result := -1;

// размещение в памяти структуры формата wav...

if AllocWaveFormatEx <> 0 then

Exit;

// размещение в памяти заголовка wav...

if AllocWaveHeader <> 0 then begin

Result := -3;

Exit;

end;

// размещение в памяти буфера данных wav

if AllocPCMBuffers <> 0 then begin

Result := -4;

Exit;

end;

//Генирируем имя временного файла

GetTempPath(sizeof(Temp), Temp);

SetLength(FTmpFileName, MAX_PATH);

GetTempFileName(Temp, 'wr', 0, PChar(FTmpFileName));

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////

//Размещение и захват структуры WAVEFORMATEX, основанной на максимальном размере

//формата согласно ACM.

function TSysWaves.AllocWaveFormatEx : Integer;

var

v:variant;

begin

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

if acmMetrics(nil, ACM_METRIC_MAX_SIZE_FORMAT, FMaxFmtSize) <> 0 then begin

errormsg('Ошибка получения размера максимального формата сжатия .');

Result := -1;

Exit;

end;

//выделение памяти

GetMem(FWaveFormat, FMaxFmtSize);

//если формат неопределен

if FWaveFormat = nil then begin

errormsg('Ошибка размещения в памяти WaveFormatEx структуры.');

Result := -2;

Exit;

end;

//обнуление структуры FWaveFormat

FillChar(FWaveFormat^, FMaxFmtSize, 0);

//загрузка настроек звукового формата из config.ini

try

ConfigFile:=TIniFile.Create(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'config.ini');

FWaveFormat.wFormatTag:=ConfigFile.ReadInteger('WaveFormat','FormatTag',WAVE_FORMAT_PCM);

FWaveFormat.nChannels:=ConfigFile.ReadInteger('WaveFormat','Channels',1);

v:=ConfigFile.ReadInteger('WaveFormat','SamplesPerSec',8000);

FWaveFormat.nSamplesPerSec:=v;

v:=ConfigFile.ReadInteger('WaveFormat','AvgBytesPerSec',8000);

FWaveFormat.nAvgBytesPerSec:=v;

FWaveFormat.nBlockAlign:=ConfigFile.ReadInteger('WaveFormat','BlockAlign',1 );

FWaveFormat.wBitsPerSample:=ConfigFile.ReadInteger('WaveFormat','BitsPerSample',16);

FWaveFormat.cbSize:=ConfigFile.ReadInteger('WaveFormat','Size',0);

ConfigFile.Free;

except

errormsg('Ошибка загрузки конфигурации!');

Application.Terminate;

end;

// сохранить формат и теги строки описания

GetFormatTagDetails(FWaveFormat.wFormatTag);

GetFormatDetails(FWaveFormat);

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////

// Получение подробности формата, и сохранение строкового описания.

function TSysWaves.GetFormatDetails(pfmtin : PWAVEFORMATEX) : integer;

var

acmfmtdetails : TACMFORMATDETAILS;

begin

//обнуление структуру acmfmtdetails

FillChar(acmfmtdetails, sizeof(acmfmtdetails), 0);

acmfmtdetails.cbStruct := sizeof(acmfmtdetails);

acmfmtdetails.pwfx := pfmtin;

acmfmtdetails.dwFormatTag := pfmtin.wFormatTag;

acmfmtdetails.cbwfx := sizeof(TWAVEFORMATEX) + pfmtin.cbSize;

//если запрос о сведении формата <> 0 тоFormatDetails функция потерпела неудачу

if acmFormatDetails(nil, acmfmtdetails, ACM_FORMATDETAILSF_FORMAT) <> 0 then begin

errormsg('Ошибка, FormatDetails не работает');

Result := -1;

Exit;

end;

// сохранение строки описания деталей формата...

FFormatDesc := acmfmtdetails.szFormat;

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////

// размещение в памяти заголовка wave

function TSysWaves.AllocWaveHeader : integer;

var

i : Integer;

begin

for i := Low(FWaveHdr) to High(FWaveHdr) do begin

GetMem(FWaveHdr[i], sizeof(TWAVEHDR));//выделяем память под заголовок

//если заголовок не определен

if FWaveHdr[i] = nil then begin

errormsg('Ошибка размещения в памяти заголовка wave.');

Result := -1;

Exit;

end;

Result := 0;

end;

/////////////////////////////////////////////////////////////////////////////

//размещение wave буфера в памяти

function TSysWaves.AllocPCMBuffers : Integer;

var

i : Integer;

begin

for i := Low(FWaveMem) to High(FWaveMem) do begin

GetMem(FWaveMem[i], WAVE_BUFSIZE);//выделяем память под wav буфер

//если wav буфер не определен

if FWaveMem[i] = nil then begin

errormsg('Ошибка размещения wave буфера в памяти.');

Result := -1;

Exit;

end;

FWaveHdr[i].lpData := FWaveMem[i];

end;

Result := 0;

end;

/////////////////////////////////////////////////////////////////////////////

//========================завершение============================================

//Освобождение памяти, связанной с буферами wav

procedure TSysWaves.DestroyWaveRecorder;

begin

FreeWaveFormatEx;// Освобождение памяти от структуры WAVEFORMATEX

FreePCMBuffers;//Освобождение памяти от wav буферов.

FreeWaveHeader;//Освобождение памяти заголовка wav.

DeleteTmpFile;//Удаление временного файла

end;

////////////////////////////////////////////////////////////////////////////

//Освобождение памяти от структуры WAVEFORMATEX

procedure TSysWaves.FreeWaveFormatEx;

begin

//если FWaveFormat не является неопределенной

if FWaveFormat <> nil then begin

FreeMem(FWaveFormat);

FWaveFormat := nil;

end;

////////////////////////////////////////////////////////////////////////////

//Освобождение памяти wav буферов.

procedure TSysWaves.FreePCMBuffers;

var

i : Integer;

begin

for i := Low(FWaveMem) to High(FWaveMem) do begin

if FWaveMem[i] <> nil then begin

FreeMem(FWaveMem[i]);

FWaveMem[i] := nil;

end;

/////////////////////////////////////////////////////////////////////////////

//Освобождение памяти заголовка wav.

procedure TSysWaves.FreeWaveHeader;

var

i : Integer;

begin

for i := Low(FWaveHdr) to High(FWaveHdr) do begin

if FWaveHdr[i] <> nil then begin

FreeMem(FWaveHdr[i]);

FWaveHdr[i] := nil;

end;

//==============работа с временым файлом========================================

//Создание временного файла чтобы писать wav данные.

function TSysWaves.CreateTmpFile : integer;

var

RootPathName : array [0..MAX_PATH] of char;

SectorsPerCluster : DWORD;

BytesPerSector : DWORD;

NumberOfFreeClusters: DWORD;

TotalNumberOfClusters : DWORD;

begin

FTmpFileHandle := _lcreat(PChar(FTmpFileName), 0);//получение дескриптора

//временного файла и его создание

//если произошла ошибка создания временого файла

if FTmpFileHandle = HFILE_ERROR then begin

errormsg('Ошибка создания временого файла');

Result := -1;

Exit;

end;

// получение доступного пространства на временном диске...

//если в полном имени файла есть знак ':'

if FTmpFileName[2] = ':' then

//то имя диска определяется так

RootPathName[0] := FTmpFileName[1]

else //иначе

//получение текущей дериктории

GetCurrentDirectory(sizeof(RootPathName), @RootPathName);

RootPathName[1] := ':';

RootPathName[2] := '';

RootPathName[3] := #0;

//получение свободного места на диске

GetDiskFreeSpace(@RootPathName,

SectorsPerCluster,

BytesPerSector,

NumberOfFreeClusters,

TotalNumberOfClusters);

//FDiskFreeSpace = кол-во Свободных Кластеров * секторов в кластере

FDiskFreeSpace := NumberOfFreeClusters * SectorsPerCluster;

// FDiskFreeSpace = кол-во Свободных секторов * байт в секторе

FDiskFreeSpace := FDiskFreeSpace * BytesPerSector;

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////

// Закройте временный файл содержащий недавно записаные данные.

procedure TSysWaves.CloseTmpFile;

begin

if _lclose(FTmpFileHandle) = HFILE_ERROR then

errormsg('Ошибка закрытия временного файла');

end;

//////////////////////////////////////////////////////////////////////////////

// Удалите временный файл

procedure TSysWaves.DeleteTmpFile;

begin

//если длина временного файла > 0

if Length(FTmpFileName) > 0 then

DeleteFile(FTmpFileName);//удалить файл

end;

////////////////////////////////////////////////////////////////////////////

// Откройте временный файл для чтения.

function TSysWaves.OpenTmpFile : Integer;

begin

// Открываем временный файл для чтения.

FTmpFileHandle := _lopen(PChar(FTmpFileName), OF_READ);

//если произошла ошибка открытия временного файла

if FTmpFileHandle = HFILE_ERROR then

Result := 0

else

Result := 1;

end;

//==================работа с записью============================================

// Остановка записи

procedure TSysWaves.StopWaveRecord;

var

v:variant;

begin

FRecorderMode := recModeOff;//устанавливаем режим рекордера - выключен

//Функция waveInReset останавливает операцию загрузки данных.

//Все текущие буферы отмечаются как обработанные и приложение уведомляется

//о завершении загрузки данных

if waveInReset(FWaveIn) <> 0 then

errormsg('Ошибка остановки записи');

CloseWaveDeviceRecord;//закрытие устройства записи

Timer3.Enabled := FALSE;// стоп таймер

end;

////////////////////////////////////////////////////////////////////////////

// Подготовка заголовков, добавление буфера, подготовка показа, и начало записи.

function TSysWaves.StartWaveRecord : Integer;

var

Status : MMRESULT;

Flags:DWord;

WaveInCaps:PWaveInCaps;

begin

//обнуляем номер записанных выборок, размер записаных данных и номер буфера

FTotalWaveSize := 0;

FByteDataSize := 0;

FBufIndex := 0;

//получаем номер открываемого устройства типа модем

FWaveInID :=TAPICall1.GetWaveID('wave/in');

//если номер открываемого устройства равен полученному автоматически то

if FWaveInID= Wave_Mapper then

Flags:=WAVE_FORMAT_QUERY//устанавливаем флаг , чтобыфункция запрашивала

//устройство для определения, поддерживает ли оно указанный формат, но не открывала его;

else

Flags:=WAVE_FORMAT_QUERY or WAVE_MAPPED;

Status := waveInOpen(@FWaveIn, FWaveInID, FWaveFormat,

0, 0, Flags);

if Status <> MMSYSERR_NOERROR then begin

errormsg('Ошибка открытия устройства ввода данных для записи.');

Result := -1;

Exit;

end;

if FWaveInID = Wave_Mapper then Flags:=CALLBACK_WINDOW

else

Flags:=CALLBACK_WINDOW or WAVE_MAPPED;

Status := waveInOpen(@FWaveIn, FWaveInID, FWaveFormat,

HWND(SysWaves.Handle), 0, Flags);

if Status <> MMSYSERR_NOERROR then begin

errormsg(' Ошибка открытия устройства ввода данных для записи.');

Result := -1;

Exit;

end;

//устанавливаем признак открытия устройства

FDeviceOpened := TRUE;

// Обнуляем заголовки wav и инициализируем указатели данных и буферные длины

InitWaveHeaders;

//если подготовка буферов для операции загрузки данных не успешна

if not ((waveInPrepareHeader(FWaveIn, FWaveHdr[0], sizeof(TWAVEHDR)) = 0) and

(waveInPrepareHeader(FWaveIn, FWaveHdr[1], sizeof(TWAVEHDR)) = 0))

then begin

CloseWaveDeviceRecord;//закрыть устройство

errormsg('Ошибка подготовки заголовка для записи.');

Result := -2;

Exit;

end;

// добавляем первый буфер...

if AddNextBuffer <> 0 then begin

Result := -3;

Exit;

end;

//Создаем временный файл, в который мы будем писать...

if CreateTmpFile <> 0 then begin

CloseWaveDeviceRecord;//закрыть устройство

Result := -4;

Exit;

end;

// запускаем начало записи

if waveInStart(FWaveIn) <> 0 then begin

CloseWaveDeviceRecord;//закрыть устройство

errormsg('Ошибка начала записи.');

Result := -5;

Exit;

end;

FRecorderMode := recModeRecord;//режим рекордера - запись

// установка таймера чтобы модифицировать дисплей...

Timer3.Interval := 1000;

Timer3.Enabled:= TRUE;

UpdateLength(0, FDiskFreeSpace);

//добавляем в очередь следующий буфер...

if AddNextBuffer <> 0 then begin

Result := -6;

Exit;

end;

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////////

// Обнуляем заголовки wav и инициализируем указатели данных и буферные длины

procedure TSysWaves.InitWaveHeaders;

begin

// делаем размер буфера , который выравнивает множитель блока ...

FWaveBufSize := (WAVE_BUFSIZE - WAVE_BUFSIZE mod FWaveFormat.nBlockAlign);

// обнулить заголовки wav

FillChar(FWaveHdr[0]^, sizeof(TWAVEHDR), 0);

FillChar(FWaveHdr[1]^, sizeof(TWAVEHDR), 0);

// теперь инициализируем указатели данных и буферные длины...

FWaveHdr[0].dwBufferLength := FWaveBufSize;

FWaveHdr[1].dwBufferLength := FWaveBufSize;

FWaveHdr[0].lpData := FWaveMem[0];

FWaveHdr[1].lpData := FWaveMem[1];

end;

///////////////////////////////////////////////////////////////////////////////

//Закрытие временного файла и устройства, делающего запись.

procedure TSysWaves.CloseWaveDeviceRecord;

begin

// если устройство уже закрыто, возвращаться...

if not FDeviceOpened thenExit;

//освобождение памяти занимаемой заголовком1...

if waveInUnprepareHeader(FWaveIn, FWaveHdr[0], sizeof(TWAVEHDR)) <> 0 then

errormsg('Ошибка в waveInUnprepareHeader (1)');

//освобождение памяти занимаемой заголовком2...

if waveInUnprepareHeader(FWaveIn, FWaveHdr[1], sizeof(TWAVEHDR)) <> 0 then

errormsg('Ошибка в waveInUnprepareHeader (2)');

// сохранение зарегистрированого полного размера зап. данных, и обновление дисплея

FTotalWaveSize := FByteDataSize;

UpdateLength(FTotalWaveSize, FDiskFreeSpace);

//признак записи данных

FRecordedData := TRUE;

// закрыть временый файл

CloseTmpFile;

// закрыть wav устройство

ifwaveInClose(FWaveIn) <> 0 thenerrormsg('Ошибка закрытия устройства входа');

//признак открытия устройства

FDeviceOpened := FALSE;

// обновление дисплея

Display('Запись остановлена');

end;

//////////////////////////////////////////////////////////////////////////////

//Обновление на экране числа записанных байт

procedure TSysWaves.UpdateLength(BytePosition : DWORD; BytePositiontotal : DWORD);

var

v:variant;

begin

LengthPosLabel.Caption:= IntToStr(BytePosition);//число байт

LengthDispLabel.Caption := IntToStr(BytePositiontotal);//позиция

end;

//////////////////////////////////////////////////////////////////////////////

// Добавление буфера к очереди и переключение индекса буфера

function TSysWaves.AddNextBuffer : integer;

begin

//ставит в очередь на загрузку данными буфер памяти

if waveInAddBuffer(FWaveIn, FWaveHdr[FBufIndex], sizeof(TWAVEHDR)) <> 0 then begin

StopWaveRecord;

errormsg('Ошибка добавления буфера.');

Result := -1;

Exit;

end;

// переключение индекса для следующего буфера...

FBufIndex := 1 - FBufIndex;

Result := 0;

end;

///////////////////////////////////////////////////////////////////////////

//обновления количества записанных байтов

procedure TSysWaves.UpdateRecordDisplay;

var

mmtime : TMMTIME;

begin

mmtime.wType := TIME_BYTES;

//Функция восстанавливает текущее положение{позицию} данного звуковогоустройства

waveInGetPosition(FWaveIn, @mmtime, sizeof(mmtime));

UpdateLength(mmtime.cb, FDiskFreeSpace);//Обновление на экране числа записанных байт

FTotalWaveSize:=mmtime.cb;//накапливает максимальный размер

end;

//================сохранение файла==============================================

// Сохранение wav файла

functionTSysWaves.SaveWaveFile : Integer;

var

mmfp : HMMIO;

dwTotalSamples : DWORD;

fTotalSamples : double;

mminfopar : TMMCKINFO;

mminfosub : TMMCKINFO;

GetDT : TSystemTime;

str : string;

begin

// если никакие данные не зарегистрированы ,то выход

if FTotalWaveSize = 0 then begin

errormsg('Не записаны звуковые данные чтобы сохранить их.');

Result := 0;

Exit;

end;

//получение имени файла

DateTimeToSystemTime(Now,GetDT);

with GetDT do begin

Datamodule1.WavBase.FieldByName('FileName').AsString:=IntToStr(Integer(wYear))+

IntToStr(Integer(wMonth))+IntToStr(Integer(wDay))+IntToStr(Integer(wHour))+

IntToStr(Integer(wMinute))+IntToStr(Integer(wSecond))+'.wav';

FFilename:=IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+

'WavBase'+ Datamodule1.WavBase.FieldByName('FileName').AsString;

end;

// откройте wav файл для записи...

mmfp := mmioOpen(PChar(FFilename), nil,

MMIO_CREATE or MMIO_WRITE or MMIO_ALLOCBUF);

//если произошла ошибка открытия файла, то

if mmfp = 0 then begin

errormsg('Ошибка открытия файла для записи.');

Result := -1;

Exit;

end;

Cursor := crHourGlass;

// создайте wav кусок RIFF

mminfopar.fccType := FOURCC_WAVE;

mminfopar.cksize := 0;//пусть функция определит размер

//если создание куска неудачно

if mmioCreateChunk(mmfp, @mminfopar, MMIO_CREATERIFF) <> 0 then begin

WFerror(mmfp, 'Ошибка создания RIFF wave куска.');

Result := -2;

Exit;

end;

//создайте кусок формата, и запишите wav формат...

mminfosub.ckid := FOURCC_FMT;

mminfosub.cksize := FMaxFmtSize;

//если создание куска неудачно

if mmioCreateChunk(mmfp, @mminfosub, 0) <> 0 then begin

WFerror(mmfp, 'Ошибка создания RIFF формата куска.');

Result := -3;

Exit;

end;

//если ошибка записи RIFF

if mmioWrite(mmfp, PChar(FWaveFormat), FMaxFmtSize) <> LongInt(FMaxFmtSize) then begin

WFerror(mmfp, 'Ошибка записи RIFF формата данных.');

Result := -3;

Exit;

end;

// назад из куска формата...

mmioAscend(mmfp, @mminfosub, 0);

// этот кусок только содержит полную длину в выборках...

mminfosub.ckid := FOURCC_FACT;

mminfosub.cksize := sizeof(DWORD);

//если создание куска неудачно

if mmioCreateChunk(mmfp, @mminfosub, 0) <> 0 then begin

WFerror(mmfp, 'Ошибка создания RIFF ''фактического'' куска.');

Result := -4;

Exit;

end;

fTotalSamples := FTotalWaveSize / FWaveFormat.nAvgBytesPerSec *

FWaveFormat.nSamplesPerSec;

dwTotalSamples := Trunc(fTotalSamples);

//если ошибка записи RIFF

if mmioWrite(mmfp, PChar(@dwTotalSamples), sizeof(dwTotalSamples))

<> sizeof(dwTotalSamples) then begin

WFerror(mmfp, 'Ошибка записи RIFF ''фактических'' данных.');

Result := -4;

Exit;

end;

// назад из куска факта...

mmioAscend(mmfp, @mminfosub, 0);

// теперь создайте, и запишите wav кусок данных...

mminfosub.ckid := FOURCC_DATA;

mminfosub.cksize := 0;// пусть функция определяет размер

//если создание куска неудачно

if mmioCreateChunk(mmfp, @mminfosub, 0) <> 0 then begin

WFerror(mmfp, 'Ошибка создания RIFF куска данных.');

Result := -5;

Exit;

end;

// копируйте данные из временного файла в wav файл

if CopyDataToWaveFile(mmfp) <> 0 then begin

WFerror(mmfp, 'Ошибка записи wave данных.');

Result := -5;

Exit;

end;

mmioAscend(mmfp, @mminfosub, 0);

// поднимитесь из куска RIFF...

mmioAscend(mmfp, @mminfopar, 0);

//закрыть

mmioClose(mmfp, 0);

Cursor := crDefault;

Result := 0;

end;

/////////////////////////////////////////////////////////////////////////////

// Закрытие wav файла, вывод сообщения об ошибках

procedure TSysWaves.WFerror(

mmfp : HMMIO;

const msg : String);

begin

mmioClose(mmfp, 0);

Cursor := crDefault;

errormsg(msg);

end;

///////////////////////////////////////////////////////////////////////////

// Копирование wav данныхиз временного файла в wav файл

function TSysWaves.CopyDataToWaveFile(mmfp : HMMIO) : integer;

var

pbuf : PChar;

ht : HFILE;

nbytes : integer;

begin

pbuf := FWaveMem[0]; //используйте один из волновых буферов для копирования

// откройте временный файл для чтения

ht := _lopen(PChar(FTmpFileName), OF_READ);

//если произошла ошибка открытия файла

if ht = HFILE_ERROR then begin

Result := -1;

Exit;

end;

// копируйте в RIFF/wave файл

while TRUE do begin

nbytes := _lread(ht, pbuf, WAVE_BUFSIZE);

if nbytes <= 0 then break;

mmioWrite(mmfp, pbuf, nbytes);

end;

// закройте файл чтения

_lclose(ht);

Result := 0;

end;

//======================получение и установка кодеков=====================================

//функция вызывающая визуальный выбор кодека

function TSysWaves.GetWaveFormat : integer;

var

acmopt : TACMFORMATCHOOSE;

err : MMRESULT;

ptmpfmt : PWAVEFORMATEX;

begin

//размещение структуры ptmpfmt в динамич памяти

GetMem(ptmpfmt, FMaxFmtSize);

//если структура не определена

if ptmpfmt = nil then begin

errormsg('Ошибка распределения временного буфера формата.');

Result := -1;

Exit;

end;

//Переместите байты размером FMaxFmtSize из FWaveFormat^ в ptmpfmt^

Move(FWaveFormat^, ptmpfmt^, FMaxFmtSize);

// ACM установка выбирает поля и отображает диалог...

//заполняет нулями acmopt

FillChar(acmopt, sizeof(acmopt), 0);

//заносим предварительные данные

acmopt.cbStruct := sizeof(acmopt);//размер области памяти, занимаемой структурой.

acmopt.fdwStyle := ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT;//флаги стилей

//построения диалога

acmopt.hwndOwner := Handle;//ключ окна-владельца создаваемого диалога

acmopt.pwfx := FWaveFormat;//указатель области памяти для структуры типа

//WAVEFORMATEX

acmopt.cbwfx := FMaxFmtSize;//размер области памяти для структуры описания

//формата

acmopt.pszTitle := 'Выбор кодека';

acmopt.fdwEnum := ACM_FORMATENUMF_INPUT;//флаги режимов перебора фильтров/форматов.

err := acmFormatChoose(acmopt);//выбираем кодек

//сравниваем полученную и предыдущую структуру TWAVEFORMATEX

if CompareMem(FWaveFormat, ptmpfmt, sizeof(TWAVEFORMATEX)) then

err := ACMERR_CANCELED; //пользователь закрыл диалог кнопкой Cancel

if err <> MMSYSERR_NOERROR then begin

//Переместите байты размером FMaxFmtSize из ptmpfmt^ в FWaveFormat^

Move(ptmpfmt^, FWaveFormat^, FMaxFmtSize);

FreeMem(ptmpfmt);//освобождаем память

if err = ACMERR_CANCELED then begin

Result := 0;

Exit;

end;

errormsg('Ошибка функции FormatChoose');

Result := -2;

Exit;

end;

//запомнить описание формата...его характеристики

FFormatDesc := acmopt.szFormat;

GetFormatTagDetails(acmopt.pwfx.wFormatTag);

FreeMem(ptmpfmt);//освобождаем память

Result := 0;

end;

/////////////////////////////////////////////////////////////////////////////

// Получение подробности тэга формата, и сохранение строкового описания.

function TSysWaves.GetFormatTagDetails(wFormatTag : WORD) : integer;

var

acmtagdetails : TACMFORMATTAGDETAILS;

begin

// обнулить....

FillChar(acmtagdetails, sizeof(acmtagdetails), 0);

acmtagdetails.cbStruct := sizeof(acmtagdetails);

acmtagdetails.dwFormatTag := wFormatTag;

//если запрос о сведении типа формата <> 0 то

if acmFormatTagDetails(nil, acmtagdetails,

ACM_FORMATTAGDETAILSF_FORMATTAG) <> 0 then begin

errormsg('Ошибка функции FormatTagDetails');

Result := -1;

Exit;

end;

//сохраните строку описания деталей формата...

FFormatTag := acmtagdetails.szFormatTag;

Result := 0;

end;

//===================проигрывание звука=========================================

//Чтение волнового файла

functionTSysWaves.ReadWaveFile : Integer;

var

mmfp : HMMIO;

mminfopar : TMMCKINFO;

mminfosub : TMMCKINFO;

dwTotalSamples : DWORD;

Sec,Min:variant;

begin

dwTotalSamples:=0;

//получаем имя проигрываемого файла

FFileName:= IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) +

'WavBase'+ datamodule1.WavBase.FieldByName('FileName').AsString;

// открыть wave файл для чтения...

mmfp := mmioOpen(PChar(FFileName), nil, MMIO_READ + MMIO_ALLOCBUF);

//если файл не открыт

if mmfp = 0 then begin

errormsg('Ошибка открытия файла для чтения.');

Result := -1;

Exit;

end;

Cursor := crHourGlass;

// поисккуска формата...

mminfopar.fccType := FOURCC_WAVE;

if mmioDescend(mmfp, @mminfopar, nil, MMIO_FINDRIFF) <> 0 then begin

WFerror(mmfp, 'Wave формат не найден в файле.');

Result := -2;

Exit;

end;

mminfosub.ckid := FOURCC_FMT;

if mmioDescend(mmfp, @mminfosub, @mminfopar, MMIO_FINDCHUNK) <> 0 then begin

WFerror(mmfp, 'Формат куска не найден.');

Result := -3;

Exit;

end;

//если размер wav формата > максимального размера ACM

if mminfosub.cksize > FMaxFmtSize then begin

WFerror(mmfp, 'Размер формата в файле не соответствует типам ACM.');

Result := -4;

Exit;

end;

// читайте wav формат....

if mmioRead(mmfp, PChar(FWaveFormat), mminfosub.cksize)

<> LongInt(mminfosub.cksize) then begin

WFerror(mmfp, 'Ошибка чтения куска формата.');

Result := -4;

Exit;

end;

//назад

mmioAscend(mmfp, @mminfosub, 0);

//поиск 'фактического'' куска

mminfosub.ckid := FOURCC_FACT;

if mmioDescend(mmfp, @mminfosub, @mminfopar, MMIO_FINDCHUNK) <> 0 then begin

WFerror(mmfp, 'Ошибка поиска RIFF ''фактического'' куска.');

Result := -7;

Exit;

end;

//чтение ''фактических'' данных

if mmioRead(mmfp, PChar(@dwTotalSamples), mminfosub.cksize)

<> LongInt(mminfosub.cksize) then begin

WFerror(mmfp, 'Ошибка чтения RIFF ''фактических'' данных.');

Result := -7;

Exit;

end;

//получение общего времени проигрывания файла

min:=0;

Sec:=dwTotalSamples/FWaveFormat.nSamplesPerSec ;

trackbar1.Max:= trunc(Sec);

if Sec/60 < 1 then Sec:=trunc(Sec)

else begin

Min:=trunc(Sec/60);

Sec:=trunc((Sec/60-Min)*60);

end;

Label10.Caption:=Format('%.2d:%.2d',[integer(Min),integer(Sec)]);

// назад из куска факта...

mmioAscend(mmfp, @mminfosub, 0);

// получите полный wav размер данных (mminfo.cksize)..

mminfosub.ckid := FOURCC_DATA;

if mmioDescend(mmfp, @mminfosub, @mminfopar, MMIO_FINDCHUNK) <> 0 then begin

WFerror(mmfp, 'Кусок данных не найден.');

Result := -5;

Exit;

end;

// если нет никаких данных,

if mminfosub.cksize = 0 then begin

WFerror(mmfp, 'Кусок данных не содержит никаких данных.');

Result := -6;

Exit;

end;

// теперь читайте wav данные и копируйте во временный файл...

if CopyWaveToTempFile(mmfp, mminfosub.cksize) <> 0 then begin

mminfosub.cksize := 0;

errormsg('Ошибка чтенияwave данных.');

end;

//закрытие wav файл

mmioClose(mmfp, 0);

Cursor := crDefault;

FTotalWaveSize := mminfosub.cksize;

// признак записи данных

FRecordedData := FALSE;

// сохраните формат и тег описание строки...

GetFormatTagDetails(FWaveFormat.wFormatTag);

GetFormatDetails(FWaveFormat);

FTLabel.Caption:= FFormatTag;

FDLabel.Caption := FFormatDesc;

Result := 0;

end;

/////////////////////////////////////////////////////////////////////////////

// Копируйте данные волны из файла RIFF в временый файл.

function TSysWaves.CopyWaveToTempFile(mmfp: HMMIO;datasize : DWORD) : Integer;

var

pbuf : PChar;

ntotal : DWORD;

nbytes : integer;

readsize : DWORD;

begin

pbuf := FWaveMem[0];

readsize := WAVE_BUFSIZE;

ntotal := 0;

Result := 0;

// создайте временный файл, основанный на текущем временном имени

if CreateTmpFile <> 0 then begin

Result := -1;

Exit;

end;

//введите чтение/копирование цикл

while ntotal < datasize do begin

if (ntotal + readsize) > datasize then readsize := datasize - ntotal;

nbytes := mmioRead(mmfp, pbuf, readsize);

if nbytes = 0 then begin

Result := -2;

break;

end;

if _lwrite(FTmpFileHandle, pbuf, nbytes) <> UINT(nbytes) then begin

Result := -3;

break;

end;

Inc(ntotal, nbytes);

end;

// закройте файл чтения...

CloseTmpFile;

end;

////////////////////////////////////////////////////////////////////////////

//Подготовка заголовков, добавьте буфер, и начните делать запись.

function TSysWaves.StartWavePlay : Integer;

begin

FByteDataSize := 0;

FBufIndex := 0;

// откройте устройство для регистрации(записи)...

if waveOutOpen(@FWaveOut, WAVE_MAPPER, FWaveFormat,

Handle, 0, CALLBACK_WINDOW or WAVE_ALLOWSYNC) <> 0 then begin

errormsg('Ошибка открытия устройства проигрывания.');

Result := -1;

Exit;

end;

FDeviceOpened := TRUE;

// подготовка заголовков...

InitWaveHeaders;

if (waveOutPrepareHeader(FWaveOut, FWaveHdr[0], sizeof(TWAVEHDR)) <> 0) or

(waveOutPrepareHeader(FWaveOut, FWaveHdr[1], sizeof(TWAVEHDR)) <> 0)

then begin

CloseWaveDevicePlay;

errormsg('Ошибка подготовки заголовков для проигрывания.');

Result := -2;

Exit;

end;

// откройте временный файл для чтения...

if OpenTmpFile = 0 then begin

CloseWaveDevicePlay;

errormsg('Ошибка открытия временного файла для чтения');

Result := -3;

Exit;

end;

// запишите первый буфер, чтобы запустить играть..

if QueueNextBuffer <> 0 then begin

CloseWaveDevicePlay;

Result := -4;

Exit;

end;

FRecorderMode := recModePlay;

FMoreToPlay := TRUE;

// установите таймер чтобы модифицировать дисплей....

Timer1.Interval := 1000;

Timer1.Enabled:= TRUE;

// и очередь следующий буфер..

QueueNextBuffer;

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////

// закрытие устройства проигрывания

procedure TSysWaves.CloseWaveDevicePlay;

begin

//освобождение памяти заголовков

if (waveOutUnprepareHeader(FWaveOut, FWaveHdr[0], sizeof(TWAVEHDR)) <> 0) or

(waveOutUnprepareHeader(FWaveOut, FWaveHdr[1], sizeof(TWAVEHDR)) <> 0)

then errormsg('Ошибка работы с заголовками.');

// закрыть устройство

if waveOutClose(FWaveOut) <> 0 then

errormsg('Ошибка закрытия устройства для проигрывания.');

FDeviceOpened := FALSE;

// закрыть временый файл

CloseTmpFile;

Play.Caption:='Играть';

Select.Enabled:=true;

NoSelect.Enabled:=true;

DelTrack.Enabled:=true;

TrackBar1.Position:=0;

Play.Enabled:=true;

Stop.Enabled:=false;

Label10.Caption :=Format('%.2d:%.2d',[0,0]);

Label11.Caption :=Format('%.2d:%.2d',[0,0]);

end;

////////////////////////////////////////////////////////////////////////////

// Запись из буфера в устройство проигрывания и переключение индекса буфера .

function TSysWaves.QueueNextBuffer : Integer;

begin

// заполните волновой буфер данными от файла...

if ReadWaveBuffer = 0 then begin

// сбросьте поля признака (удалите атрибут WHDR_DONE)...

FWaveHdr[FBufIndex].dwFlags := WHDR_PREPARED;

// теперь очередь буфер для вывода...

if waveOutWrite(FWaveOut, FWaveHdr[FBufIndex], sizeof(TWAVEHDR)) <> 0

then begin

StopWavePlay;

errormsg('Ошибка записи wave буфера.');

Result := -1;

Exit;

end;

// переключите для следующего буфера...

FBufIndex := 1 - FBufIndex;

end;

Result := 0;

end;

////////////////////////////////////////////////////////////////////////////

// Читайте кусок wav из временного файла

function TSysWaves.ReadWaveBuffer : Integer;

begin

// если мы не столкнулись с концом wav , читайте другой буфер

if FByteDataSize < FTotalWaveSize then begin

// читайте кусок wav из временного файла

FWaveHdr[FBufIndex].dwBufferLength :=

_lread(FTmpFileHandle, FWaveMem[FBufIndex], FWaveBufSize);

// модифицируйте общее количество байтов чтения

Inc(FByteDataSize, FWaveHdr[FBufIndex].dwBufferLength);

Result := 0;

Exit;

end;

FMoreToPlay := FALSE; // обработанный в MM_WOM_DONE сообщении

Result := 1;

end;

////////////////////////////////////////////////////////////////////////////

//стоп проигывание wav файла

procedure TSysWaves.StopWavePlay;

begin

// если устройство не является открытым, возвращаться...

if not FDeviceOpened then Exit;

// стоп игра

waveOutReset(FWaveOut);

// стоп таймер

Timer1.Enabled := FALSE;

FRecorderMode := recModeOff;

FMoreToPlay := FALSE;

// закройте устройство и освободите память заголовков

CloseWaveDevicePlay;

end;

//====================работа с сообщениями wave=================================

//вызывается если устройство завершило передачу данных в блок памяти, установленный

//процедурой waveInAddBuffer;

procedure TSysWaves.MMWimData(var msg: TMessage);

var

pwavehdrtmp : PWAVEHDR;

begin

// Сделанный буфер регистрации, выпишите это

pwavehdrtmp := PWAVEHDR(msg.lparam);

if WriteWaveBuffer(pwavehdrtmp.dwBytesRecorded) <> 0 then StopWaveRecord;

if FRecorderMode <> recModeOff thenAddNextBuffer //буфер в очередь

else

CloseWaveDeviceRecord;// стоп запись

end;

//////////////////////////////////////////////////////////////////////////////

//Сделать проигрывание очередного волнового буфера, если проигран предыдущий.

procedure TSysWaves.MMWomDone(var msg: TMessage);

begin

if FMoreToPlay thenQueueNextBuffer

else

StopWavePlay;

end;

/////////////////////////////////////////////////////////////////////////////

// посылается, когда устройство закрывается функцией waveOutClose;

procedure TSysWaves.MMWomClose(var msg: TMessage);

begin

FDeviceOpened := FALSE;

end;

////////////////////////////////////////////////////////////////////////////

// Запись записаных даных в временый файл

function TSysWaves.WriteWaveBuffer(size : UINT) : integer;

begin

Result := 0;

if size = 0 then Exit;

if _lwrite(FTmpFileHandle, FWaveMem[FBufIndex], size) <> size then begin

errormsg('Ошибка записи данных во временный файл.');

Result := -1;

Exit;

end;

Inc(FByteDataSize, size);

end;

{************************Other*******************************************************}

////////////////////////////////////////////////////////////////////////////

//вызывает окно выбора кодека

procedure TSysWaves.GetFormatClick(Sender: TObject);

begin

GetWaveFormat;//функция вызывающая визуальный выбор кодека

GetFormatTag.Caption:= FFormatTag; //формат

GetFormatDesc.Caption := FFormatDesc; //его характеристики

SaveConf.Enabled:=true;

end;

////////////////////////////////////////////////////////////////////////////

//останавливает проигрывание записи и устанавливает запись на начало

procedure TSysWaves.StopClick(Sender: TObject);

begin

StopWavePlay;

end;

//////////////////////////////////////////////////////////////////////////////

//при изменениях настроек конфигурации разблокировать кнопку сохранения

procedure TSysWaves.RadioButton1Click(Sender: TObject);

begin

SaveConf.Enabled:=true;

end;

////////////////////////////////////////////////////////////////////////////

// выводит сообщение Msg наDisplayMemo

procedure TSysWaves.Display(Msg : String);

var

i:Integer;

begin

if DisplayMemo.Lines.Count > 100 then begin //если число линий >100 то

//удаляются 50 первых линий

for I := 1 to 50 do DisplayMemo.Lines.Delete(0);

end;

DisplayMemo.Lines.Add(Msg); //DisplayMemo выводитMsg

end;

////////////////////////////////////////////////////////////////////////////

//Выводит сообщение об ошибках.

procedure TSysWaves.errormsg(msg : String);

begin

Application.MessageBox(PChar(msg), 'Error', MB_OK);

end;

///////////////////////////////////////////////////////////////////////////

//сохранение настроек

procedure TSysWaves.SaveConfClick(Sender: TObject);

var

v:variant;

begin

try

ConfigFile:=TIniFile.Create(IncludeTrailingBackslash(ExtractFilePath(Application.ExeName))+'config.ini');

//сохранение параметров кодека

ConfigFile.WriteInteger('WaveFormat','FormatTag',FWaveFormat.wFormatTag);

ConfigFile.WriteInteger('WaveFormat','Channels',FWaveFormat.nChannels);

v:=FWaveFormat.nSamplesPerSec;

ConfigFile.WriteInteger('WaveFormat','SamplesPerSec',v);

v:=FWaveFormat.nAvgBytesPerSec;

ConfigFile.WriteInteger('WaveFormat','AvgBytesPerSec',v);

ConfigFile.WriteInteger('WaveFormat','BlockAlign',FWaveFormat.nBlockAlign );

ConfigFile.WriteInteger('WaveFormat','BitsPerSample',FWaveFormat.wBitsPerSample);

ConfigFile.WriteInteger('WaveFormat','Size',FWaveFormat.cbSize);

//сохранение параметров работы с модемом

if RadioButton1.Checked then ConfigFile.WriteBool('DeviceMode','AutoAnswer',true)

else ConfigFile.WriteBool('DeviceMode','AutoAnswer',false);

if CheckBox1.Checked then ConfigFile.WriteBool('DeviceMode','Pulse',true)

else ConfigFile.WriteBool('DeviceMode','Pulse',false);

ConfigFile.WriteInteger('DeviceMode','NumRings',StrToInt(MaskEdit1.Text));

ConfigFile.WriteInteger('DeviceMode','TimeReg',StrToInt(MaskEdit2.Text));

//настройки телефонной гарнитуры

ConfigFile.WriteInteger('VolGain','HeadSetVolume',HeadSetVolume.Position);

ConfigFile.WriteInteger('VolGain','HeadSetGain',HeadSetGain.Position);

ConfigFile.WriteInteger('VolGain','HandSetVolume',HandSetVolume.Position);

ConfigFile.WriteInteger('VolGain','HandSetGain',HandSetGain.Position);

ConfigFile.Free;

SaveConf.Enabled:=false;

except

errormsg('Ошибка сохранения настройки конфигурации!');

end;

////////////////////////////////////////////////////////////////////////////

//проигрывание и пауза выбранного файла

procedure TSysWaves.PlayClick(Sender: TObject);

begin

if (Play.Caption = 'Пауза') and (FRecorderMode = recModePlay) then begin

Play.Caption:='Играть';

waveOutPause(FWaveOut);

Timer1.Enabled:=false;

exit;

end;

if (Play.Caption = 'Играть') and (FRecorderMode = recModePlay) then begin

waveOutRestart(FWaveOut);

Timer1.Enabled:=true;

Play.Caption:='Пауза';

exit;

end;

if (Play.Caption = 'Играть') and (FRecorderMode = recModeOff) then begin

//если чтение wav файла прошло успешно, то

if ReadWaveFile=0 then begin

Select.Enabled:=false;//блокирует кнопку отбора

NoSelect.Enabled:=false;//блокирует кнопку Отмены отбора

DelTrack.Enabled:=false;//блокирует кнопку удаления записи

Stop.Enabled:=true;//разблокирует кнопку останова

Play.Caption:='Пауза';// кнопку проигрывания

StartWavePlay //Подготовка заголовков, добавление буферов, и начинаем проигрывание.

end ;

end;

{******************таймеры используемые в программе********************************}

/////////////////////////////////////////////////////////////////////////////

//Таймер для обновления позиции trackbar1 и времени проигрывания

procedure TSysWaves.Timer1Timer(Sender: TObject);

var

min,sec:integer;

begin

min:=0;//обнуление кол-ва минут

trackbar1.Position:=trackbar1.Position+1;//увеличение позиции trackbar1 на 1

//обработка времени проигрывания для приемлего представления его на форме

sec:=trackbar1.Position;

if sec/60 >= 1 thenbegin

Min:=trunc(Sec/60);

Sec:=trunc((Sec/60-Min)*60);

end;

Label11.Caption :=Format('%.2d:%.2d',[Min,Sec]);

end;

/////////////////////////////////////////////////////////////////////////////

//таймер для подсчета времени с начала состояния Connected

procedure TSysWaves.Timer3Timer(Sender: TObject);

begin

inc(FTimeCounter);//увеличиваем счетчик времени на 1 секунду

if FRecorderMode = recModeRecord then UpdateRecordDisplay

end;

{****************************************************************************}

//Включить отбор записей

procedure TSysWaves.SelectClick(Sender: TObject);

begin

Datamodule1.WavBase.SetRangeStart;

Datamodule1.WavBase.FieldByName('DateName').AsDateTime:=DateTimePicker1.Date;

Datamodule1.WavBase.SetRangeEnd;

Datamodule1.WavBase.FieldByName('DateName').AsDateTime:=DateTimePicker2.Date;

Datamodule1.WavBase.ApplyRange;

end;

//отменить отбор

procedure TSysWaves.NoSelectClick(Sender: TObject);

begin

Datamodule1.WavBase.CancelRange;

end;

//удаление из базы текущей записи

procedure TSysWaves.DelTrackClick(Sender: TObject);

begin

FFileName:= IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) +'WavBase'+ datamodule1.WavBase.FieldByName('FileName').AsString;

if FileExists(FFileName) then DeleteFile(FFileName);

Datamodule1.WavBase.Delete;

end;

//При закрытии формы закрытие базы данных

procedure TSysWaves.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Datamodule1.WavBase.Close;

end;

//при изменении обьема звука наушников

procedure TSysWaves.HeadSetVolUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

begin

HeadSetVolume.Position:=2*NewValue;

SaveConf.Enabled:=true;

end;

//при изменении коэффициента усиления звука наушников

procedure TSysWaves.HeadSetGainUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

begin

HeadSetGain.Position:=2*NewValue;

SaveConf.Enabled:=true;

end;

//при изменении обьема звука микрофона

procedure TSysWaves.HandSetVolUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

begin

HandSetVolume.Position:=2*NewValue;

SaveConf.Enabled:=true;

end;

//при изменении коэффициента усиления звука микрофона

procedure TSysWaves.HandSetGainUpDownChangingEx(Sender: TObject;

var AllowChange: Boolean; NewValue: Smallint;

Direction: TUpDownDirection);

begin

HandSetGain.Position:=2*NewValue;

SaveConf.Enabled:=true;

end;

end.

Модульданных

unit DataMode;

interface

uses

SysUtils, Classes, DB, DBTables,bde;

type

TDataModule1 = class(TDataModule)

WavBase: TTable;

DataSource1: TDataSource;

WavBaseID: TAutoIncField;

WavBaseDateName: TDateField;

WavBaseTimeName: TTimeField;

WavBaseUserName: TStringField;

WavBaseFileName: TStringField;

procedure WavBaseAfterCancel(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

{$R *.dfm}

//сброс кэша на диск с помощью механизма BDE

procedure TDataModule1.WavBaseAfterCancel(DataSet: TDataSet);

begin

Check(dbiSaveChanges(WavBase.Handle));

end;

end.

Модуль со справочной информацией

unit About;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TAbouts = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Label2: TLabel;

OKButton: TButton;

ProgramIcon: TImage;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Abouts: TAbouts;

implementation

{$R *.dfm}

//При нажатии кнопки 'Ок'

procedure TAbouts.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

Модульвыбораинтерфейса

unit VarTo;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TVarS = class(TForm)

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

UserName: TEdit;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

VarS: TVarS;

implementation

{$R *.dfm}

//При нажатии кнопки 'Выход'

procedure TVarS.BitBtn2Click(Sender: TObject);

begin

Application.Terminate;

end;

//При нажатии кнопки 'Вход'

procedure TVarS.BitBtn1Click(Sender: TObject);

begin

if RadioButton1.Checked then VarS.Tag:=1;

if RadioButton2.Checked then VarS.Tag:=2;

close;

end;

//При выборе интерфейса - администратор

procedure TVarS.RadioButton2Click(Sender: TObject);

begin

UserName.Enabled:=false;

end;

//При выборе интерфейса - пользователь

procedure TVarS.RadioButton1Click(Sender: TObject);

begin

UserName.Enabled:=true;

end;

end.