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

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



готовка заголовков, добавление буферов,

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

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

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

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

procedure errormsg(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

0thenApplication.Terminate;//"> 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

else begin

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

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('

s