How should I take the number of positions ????
Posted: Thu Dec 02, 2021 2:03 am
Want to make a recording time timer, the "positions" how to take?
How should I take the number of positions ????
// Timer
procedure TMainForm.TimerTimer(Sender: TObject);
var
position: int64;
Hour, Min, Sec, MSec: Word;
const
MiliSecInOneDay = 86400000;
begin
if RVCamRecorder1.Active then
begin
position:=??????; // How should I take the number of positions ????
DecodeTime(position div 10000 / MiliSecInOneDay, Hour, Min, Sec, MSec);
StatusBar.SimpleText := Format('%d:%d:%d:%d', [Hour, Min, Sec, MSec]);
end;
end;
How should I take the number of positions ????
// Timer
procedure TMainForm.TimerTimer(Sender: TObject);
var
position: int64;
Hour, Min, Sec, MSec: Word;
const
MiliSecInOneDay = 86400000;
begin
if RVCamRecorder1.Active then
begin
position:=??????; // How should I take the number of positions ????
DecodeTime(position div 10000 / MiliSecInOneDay, Hour, Min, Sec, MSec);
StatusBar.SimpleText := Format('%d:%d:%d:%d', [Hour, Min, Sec, MSec]);
end;
end;