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

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

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

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

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



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

 

  1. Материалы по Delphi на сайте

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

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

 

  1. “Acorp-EMSF2 V90\V92 modem. Руководство пользователя” DdiX Labs. 2002

 

  1. “Telephony Application Programming Interface (TAPI) Programmers Reference” 1995-1996 Microsoft Corporation. All rights reserved

 

  1. “MSDN Library - October 2004” Microsoft Corporation. All rights reserved

 

 

  1. Материалы по TAPI на сайте

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение 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.

 

 

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

 

unit main;

 

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 DelTrackCl

s