TVR


:


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);