ПРИМЕРЫ КОМАНД:

procedure TForm1.Button1Click(Sender: TObject);

begin

TVR.COMMAND(REC) ;  //-- Включает запись

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

TVR.COMMAND(STOP);  //-- Выключает запись

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

TVR.COMMAND(HIDETVR) ;  //-- Скрыть программу TVR (работает в фоновом режиме)

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

TVR.COMMAND(SHOWTVR) ;  //-- Показать программу TVR (обычный режим)

end;

              ПРИМЕР РЕГУЛИРОВКИ ГРОМКОСТИ:

    procedure LEVEL(mixer,number,level : integer);

 

             Управляет микшером где:

   mixer - 0 : микшер воспроизведения и аудиоконтроля

           1 : микшер контроля записи ;

   number - номер регулятора от -1 до самого последнего ;

   level  - уровень громкости от 0 до 65535 ;   

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

 TVR.LEVEL(0,-1,TrackBar1.Position); //-- Регулирует громкость (MIN = 0, MAX = 65535)

end;

             ПРИМЕР СЧИТЫВАНИЯ КОНТРОЛЬНЫХ ПАРАМЕТРОВ:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

CheckBox1.Checked := TVR.RecYes;  //-- Галочка если включена запись

CheckBox2.Checked := TVR.PlayYes; //-- Галочка если включено воспроизведение

Label1.Caption := TVR.FilePlay;   //-- Выводит имя открытого файла воспроизведения

Label2.Caption := TVR.FileRec;    //-- Выводит имя последнего записанного файла

Label3.Caption := TVR.FileOpenInfo; //-- Выводит информацию об воспр. файле

Label4.Caption := TVR.FileListInfo; //-- Выводит сколько файлов в списке воспр.

Label5.Caption := TVR.InfoDateRec;  //-- Выводит дату последней записи

Label6.Caption := TVR.FullTimeRec;  //-- Выводит продолжительность записанного файла

Edit1.Text := IntToStr(TVR.ControlCommand); //-- Выводит принятую команду управления

Edit2.Text := IntToStr(TVR.ControlLevel);  //-- Выводит принятый уровень позиции регул.

end;

                           ПРОВЕРКА:

1.    Откомпилируйте созданное приложение (F9);

Начало  Назад  Вперед