Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
ВнизСистемное время Найти похожие ветки
← →
DimaK (2003-11-14 14:55) [0]Нужна помощь. Необходимо синхронизировать системное время с временем терминала. На мой запрос терминал выдает свое время, (к примеру 14:12:00), а как мне установить это время на компе?
есть функция
function SetPCSystemTime(tDati: TDateTime): Boolean;
var
tSetDati: TDateTime;
vDatiBias: Variant;
tTZI: TTimeZoneInformation;
tST: TSystemTime;
begin
GetTimeZoneInformation(tTZI);
vDatiBias := tTZI.Bias / 1440;
tSetDati := tDati + vDatiBias;
with tST do
begin
wYear := StrToInt(FormatDateTime("yyyy", tSetDati));
wMonth := StrToInt(FormatDateTime("mm", tSetDati));
wDay := StrToInt(FormatDateTime("dd", tSetDati));
wHour := StrToInt(FormatDateTime("hh", tSetDati));
wMinute := StrToInt(FormatDateTime("nn", tSetDati));
wSecond := StrToInt(FormatDateTime("ss", tSetDati));
wMilliseconds := 0;
end;
SetPCSystemTime:= SetSystemTime(tST);
end;
только что-то не пойму как ее использовать.
Если кто знает - помогите ПЛИЗ!
← →
TUser (2003-11-14 16:29) [1]http://delphiworld.narod.ru/base/tnmdaytime.html
← →
DimaK (2003-11-14 17:04) [2]Это все хорошо, но у меня в качестве терминала коммутатор, данные выдаются в RichEdit, оттуда я их считываю в переменную (командой copy) и получаю точное время, которое и надо установить на компе.
P.S. вроде в Delphi 7 компонента по указанной ссылке нет (или у меня кривая версия).
Честно говоря не хочется использовать компоненты, лучше ручками.
Может кто еще знает как изменить время?
← →
DimaK (2003-11-15 20:36) [3]неужели никто не знает как изменить системное время? :(
← →
DimaK (2003-11-15 23:10) [4]Спасибо :( разобрался.
Кому интересно:
procedure TForm1.Button1Click(Sender: TObject);
var st: TSystemTime;
begin
GetSystemTime(st);
st.wHour:=StrToInt(Edit1.Text)-3; // Часы
st.wMinute:=StrToInt(Edit2.Text); // Минуты
st.wSecond:=StrToInt(Edit3.Text); // Секунды
st.wMilliseconds:=0;
SetSystemTime(st);
end;
← →
Alone (2003-11-17 11:45) [5]> st.wHour:=StrToInt(Edit1.Text)-3; // Часы
А когда на летнее время перейдем, нужно будет 4-ре часа отнимать:)
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c