Свершилось, я слепил таймер. :)
Что значит слово, упавшее на благодатную почву. Ваши слова про "…все дело в формате TDateTime…" застряли в голове. И вот неожиданно в голове всплыл вопрос к самому себе: "ну и замечательно, что все дело в формате, а стоит ли с ним бороться?". И, воспользовавшись принципом айкидо, поставил себе на службу работу этого формата, получилось вот что:
{
if(AsFirstRun) WriteValue("time4",DateTimeToStr(Now()));
string data, dd;
int poz;
data=DateTimeToStr(Now()-StrToDateTime(ReadValue("time4")));
poz=Pos(" ",data);
dd=Copy(data,0,poz);
if (dd == "30.12.1899 ") data=" "+Copy(data,poz,8);
else if (dd == "31.12.1899 ") data="1 день "+Copy(data,poz,8);
else if (dd == "01.01.1900 ") data="2 дня "+Copy(data,poz,8);
else if (dd == "02.01.1900 ") data="3 дня "+Copy(data,poz,8);
else if (dd == "03.01.1900 ") data="4 дня "+Copy(data,poz,8);
WriteValue("time4v",data);
}
Для запуска этого скрипта необходимо иметь:
1) канал time4, тип "строковый"
2) канал time4v, тип "строковый", со скриптом, приведенным выше
3) форма с двумя элементами "панель", прикрепленные к указанным каналам
4) можно добавить элемент "строковый задатчик", прикрепленный к каналу time4 (для задания начального значения таймера в формате "01.04.2014 10:10:35").
{
TDateTime Dt, Dt1, D;
String Str;
// первая дата
Dt = now;
// вторая дата (для пример + 3 дня)
Dt1 = Dt + 3;
// получим кол - во дней и время
D = Dt1 - Dt;
//отформатируем результат - целая часть это у нас дни, ну а время остается как и было
Str = IntToStr(Trunc(D)) + " дн. " + TimeToStr(D);
}
Спасибо огромное.
Нашел указанные вами файлы Passport.
Взял эти файлы из архива от 28.03.2014.
И вуаля - появились мои временные канальчики и общее число каналов стало 146 вместо 144.
1) Да-да, именно так: 3 дня 21:15:00. Просто отображаем эту информацию на мнемосхеме.
Но!
Тут есть и побочные эффекты в виде зависания системы, пропадания электроэнергии, поломки компьютера и др. То есть, по какой-то причине система SIMP Light будет перезапущена. А производственная установка продолжает работает и "шоу маст гоу". Т.е. хотелось бы, чтобы запущенный таймер продолжил работать и после перезапуска системы, невзирая на такое "выпадение из реальности". Ну, на это пока не обращайте внимание, это просто информация для размышления. Пока просто хочется видеть на экране надпись: "процесс продолжается 3 дня 21 час 15 минут 00 секунд"
2) А как можно сделать бекап без информационных баз? Насколько помню, при выборе "сделать копию" никаких вопросов не задается, а сразу стартует процесс создания резервной копии. И как должен происходить процесс восстановления из бекакпа без информационных баз? Не "обнулит" ли в этом случает система базу данных?
3) "Не осталось копии файлов конфигурации на момент когда каналы "выпали"?" Дак, вот сейчас пытался найти где же хранится список каналов. И ничего не нашел. Полагал, что этим занимается каталог InternalTag, но там в файле InTaglist всего тридцать строк с какими-то цифрами, а каналов у нас полторы сотни. Или речь идет о файлах .dll в каталоге размещения программы. При старте Конфигуратора каналов вижу, что он загружает информацию из файла конфигурации, а где это файл - не знаю.
Если Вы знакомы с программированием то можете использовать для работы с текстовыми файлами класс TStringList.
var List: TStringList; Str: string; begin // создали List := TStringList.Create; try // загрузили (файл должен существовать) List.LoadFromFile('C:\test.txt'); // добавить List.Add('line1'); // получить/переписать значение если надо Str := List[0]; // сохранить List.SavetoFile('C:\test.txt'); finally List.Free; end; end.