При использовании сервера, не могу зафиксировать изменения CurrentTime. По документации выходит, что эта переменная показывает количество времени с момента запуска АЦП. Я считываю ее через таймер каждые 1сек, никаких изменений нет. Подскажите в чем дело.
Код:
const size=100;
var massiv:array[0..size] of Single;
mytime: Double;
decade: Integer;
.......
Procedure TForm1.Create;
begin
Srv1.Connect;
mytime:=Srv1.CurrentTime(0);
decade:=0;
end;
.......
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Srv1.CurrentTime(0)>mytime then begin
Srv1.GetData(0,decade,size,massiv[0]);
mytime:=mytime+1
Memo1.Lines.Add(Srv1.CurrentTime(0));
end;
end;
После чего окошко мемо заполняется одним и тем же числом: 2.14806118862658E-313.
Канал выбран корректно (проверено). В чем может быть дело?