Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Проверка даты на сервере!!!   Найти похожие ветки 

 
Kukulkan   (2010-05-11 21:11) [0]

Передо мной стоит такая задача - нужно ограничвать срок работы программы!!! Скажем примерно на месяць!!! А потом понадобности продливать!!! Мне посоветовали что надёжнее всего сверяться с датой на какамто сервере(сайте)!!! У меня есть сайт он зарегистрирован в системе Ucoz!!! подскажите пожалуйста как это можно сделать!!!???

Знаю можно компонетом IdDayTime но не получаеться что-то! Вот пробывал так но явно чего то нехватает тока непойму чего именно!

Код:

procedure TMenu.Button2Click(Sender: TObject);
begin
 IdDayTime1.Host := Edit1.Text;
 IdDayTime1.Port := StrToInt(Edit2.Text);
 Label2.Caption  := IdDayTime1.DayTimeStr;
end;

Заранее огромное спасибо!!!



 
Сергей М. ©   (2010-05-11 21:24) [1]

> явно чего то нехватает

Не хватает самую малость - собственно NTP-сервера


 
Kukulkan   (2010-05-11 21:31) [2]

А можете навести пример работы с IdDayTime а ещё лучше с IdDayTimeServer???


 
Сергей М. ©   (2010-05-11 21:35) [3]

А смысл ?


 
Kukulkan   (2010-05-11 21:38) [4]

У меня просто нету опыта работы в делфи связоной с инетом вот и прошу навести пример как проверять дату на сервере!!! С любым компонетом!!! Те 2 я просто для прмера взял!!! Если можете любой пример пожалуйста!!! Ну вот мой начальный код - как его доработать?!


 
Сергей М. ©   (2010-05-11 21:46) [5]

Его не надо дорабатывать - он вполне работоспособен при достаточных сетевых условиях.


 
Kukulkan   (2010-05-11 21:51) [6]

Так вы же написали:

Не хватает самую малость - собственно NTP-сервера

Что это?


 
Сергей М. ©   (2010-05-11 21:55) [7]

Ну как что ?
Ты чего в свойствах Host и Port указываешь ?
Координаты того самого NTP-сервера.
А он, сервер этот, есть на самом деле по указанным тобой координатам ?


 
Kukulkan   (2010-05-11 22:13) [8]

Вот ****! Работает точно! Тока что поменял хост на другой сайт и заработало!!! А стем что мне надо и не работает!!!((


 
Сергей М. ©   (2010-05-11 22:16) [9]

> стем что мне надо и не работает

Это с каким же, если не секрет ?


 
Kukulkan   (2010-05-11 22:27) [10]

Вот сайт зарегистрирован в системе Ucoz

http://www.baza-lider.at.ua/


 
Сергей М. ©   (2010-05-11 22:31) [11]

И с какого же перепугу хост по адресу www.baza-lider.at.ua обязан предоставлять NTP-сервис ?


 
Kukulkan   (2010-05-11 22:34) [12]

А почему бы и нет?! Почему же http://www.programmersforum.ru дал мне дату?! Объесните пожалуйста!!!??? Буду очень признателен!!!


 
Сергей М. ©   (2010-05-11 22:48) [13]

Будет ли хост предоставлять NTP-сервис, если он не заявлен публично  - это зависит как минимум от каприза администратора этого хоста.


 
Kukulkan   (2010-05-11 22:57) [14]

Тоесть вы хотите сказать что мне не удастся получить дату с сайта потому что подобная возможность блокируеться самой системой Ucoz???


 
Сергей М. ©   (2010-05-11 23:05) [15]

Я хочу сказать, что сайт тут вообще ни причем.
Ты же не к сайту обращаешься по HTTP, а к некоему хосту по NTP


 
Kukulkan   (2010-05-11 23:13) [16]

Короче говоря он мне ничего не даст!?


 
Сергей М. ©   (2010-05-11 23:18) [17]

Почему не даст ?
Это же ТВОЙ сайт ? Если твой, то ничто не мешает дополнить его функциональнось скриптом, который при запуске возвращает некое время.
А скрипт запускать соответствующим HTTP-запросом.


 
Kukulkan   (2010-05-11 23:22) [18]

Так как сайт зарегестрирован в системе Ucoz то я этого сделать не смогу потому что это запрещено!
Да и дата же на сайте есть?!


 
Сергей М. ©   (2010-05-11 23:32) [19]


> сайт зарегестрирован в системе Ucoz то я этого сделать не
> смогу потому что это запрещено


Что за бред ?)
Никто не вправе запретить разработчику сайта изменять его "потроха", если он это свое право никому не передал безвозвратно на каких-то условиях.

> дата же на сайте есть?

Вот тебе дался это сайт)
Какая разница, на какой сервер ходить за тек.временем ?
Чем время, скажем, на публичном time.nist.gov по-твоему хуже какой-то там "даты" на каком-то там "сайте" ?)


 
Kukulkan   (2010-05-11 23:47) [20]

Там сайт создаёться ввиде конструктора!! Тоесть он фактичеськи их властность и они регулируют там то как єто правильно всё! Ну да ладно!

Та мне то всё равно на каком сервере! но тот что вы дали он ведь зарубежный а мне нужен свой Украинський дабы получать коректную дату! А этот хоть и руський но всьо таки!


 
Сергей М. ©   (2010-05-12 00:05) [21]

> он ведь зарубежный а мне нужен свой Украинський дабы получать коректную дату

http://planetolog.ru/timezone-country.php?country=UA


 
Kukulkan   (2010-05-12 00:45) [22]

Спасибо!

Возник другой вопрос!
А вы можете помочь мне с парсингом страницы?!
Для решения нужной мне задачи - я вот что решил сделать -  человек перед запуском программы вводит логин после чего программа парсить текст
на этой странице
http://www.baza-lider.at.ua/index/

Здесь она должна определить к какой группе относиться данный логин!!!
Но проблема в том что у мене не получаеться получить нужные мне данные!!

Вот мой код


var
s:TStringStream;e:string;i:integer;
begin

s:=TStringStream.Create("");
IdHTTP1.ProxyParams.ProxyPort:=8080;
IdHTTP1.Get("http://flsoft.ru/index/8-31",s);
e:=s.DataString;
i:=pos("<div id="block2" class="udtb"><div class="udtlb">Группа:</div> Пользователи</div>",e);
delete(e,1,i);
i:=pos(">",e);
delete(e,1,i);
i:=pos("</div>",e);
delete(e,i,length(e)-i);
caption:=e;
memo1.Text := e;
s.Free;



побывал и этот и том сайте что я выше указал получаю огрмною стрчку кода!!! я просто откуда нужно начинать парсить!! и что делают функции pos і caption?!

Заранее спасибо?!


 
Anatoly Podgoretsky ©   (2010-05-12 09:38) [23]


>  тот что вы дали он ведь зарубежный а мне нужен свой Украинський
> дабы получать коректную дату

Чем зарубежный UTC отличается от Украинского UTC, или у вас опять национальные заморочки, опять вы первые и лучшие в мире?
UTC от и в Африке UTC, а части Дата особенно.


 
Kukulkan   (2010-05-12 10:21) [24]

Да не в национальности дело! Да и вообщето мне уже отпала надобность в этом вопросе!


 
Jeer ©   (2010-05-12 11:16) [25]


> Да и вообщето мне уже отпала надобность в этом вопросе!


Власть сменилась ? :)


 
Плохиш ©   (2010-05-12 11:23) [26]


> Kukulkan   (12.05.10 00:45) [22]
>
> Спасибо!
>
> Возник другой вопрос!
> А вы можете помочь мне с парсингом страницы?!

TWebBrowser предоставляет широкии возможности для парсинга html-текста.


 
Anatoly Podgoretsky ©   (2010-05-12 11:55) [27]

> Kukulkan  (12.05.2010 10:21:24)  [24]

Даты кончились?



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.207 c
15-1270645124
Andrey O.
2010-04-07 16:58
2010.08.27
Небольшая рекламация для пользователей Firefox


10-1167226388
Priest
2006-12-27 16:33
2010.08.27
Собственная реализация IDispatch


2-1267108150
Alex___
2010-02-25 17:29
2010.08.27
Как работать с бестиповой переменной?, func(VAR BUF;...)


2-1270329778
Б
2010-04-04 01:22
2010.08.27
String -> WideChar


2-1273184472
concord
2010-05-07 02:21
2010.08.27
Фильтрация данных