ПРИМЕРЫ КОМАНД:
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);
2. Запустите программу TVR (не ниже 2.1) ;
3. На панели «Программный контроль» (Ctr+Alt+S) включите программное управление ;
4. Посылайте свою команду ;
5. Журнал команд TVR выдаст информацию о принятой команде и исполнит ёё ;
УСЛОВИЯ ИСПОЛЬЗОВАНИЯ:
Данный модуль управления предоставляет возможность разработчикам практически мгновенно
разрабатывать приложения (ПО) для записи и воспроизведения звука в формате МР3 используя
функции программы TVR. При этом доступна команда HIDETVR , скрывая саму программу TVR
(без окна, только в памяти компьютера) наподобие DLL.
Автор не стал ограничивать эту возможность. Однако, Вы не можете использовать данное
собственное ПО в коммерческих целях, не согласовав с автором проекта TVR.
Используя «движок» TVR и невидимый (HIDETVR) режим работы, с помощью Вашего ПО, просьба не
забывать об авторских правах проекта TVR.
СОВМЕСТИМОСТЬ ВЕРСИЙ
-------- Новое для версии TVR 3.0 --------
PAUSE : integer = 50 ; //-- Включить / Отключить Паузу (приостан. запись)
procedure FormatMP3(kbs,frequency,mode: string); //-- Устанавливает формат МР3 файла
function SrcYes : boolean ; //-- Возвращает True если включ. внешнее програмн. управлен.
function PauseYes : boolean ; //-- Возвращает True если включ. пауза
function ExecuteCom : string ; //-- Возвращ. информ. о выполненной команде(как в логе TVR)
function ControlRec : string ; //-- Возвращ. информ. о процессе записи в реальном времени
function ControlSent : integer ; //-- Возвращает общее кол-во принятых команд
****
-------- Новое для версии TVR 3.1 --------
function Started : boolean ; //-- Возвращает True если программа TVR запущена
function ControlPlay : string ; //-- Возвращ. информ. о процессе воспроизведен.
function User : string ; //-- Возвращает имя пользователя (профиль) запустившего TVR
****
ICQ 237520890
http://pccontrol.bib.com.ua
http://valery-us4leh.narod.ru
zima31@kharkov.ukrtel.net
zima31@kharkov.com
Валерий Ковтун US4LEH (SATKUR)
EsharSoft 2005