-
Передо мной стоит такая задача - нужно ограничвать срок работы программы!!! Скажем примерно на месяць!!! А потом понадобности продливать!!! Мне посоветовали что надёжнее всего сверяться с датой на какамто сервере(сайте)!!! У меня есть сайт он зарегистрирован в системе Ucoz!!! подскажите пожалуйста как это можно сделать!!!???
Знаю можно компонетом IdDayTime но не получаеться что-то! Вот пробывал так но явно чего то нехватает тока непойму чего именно!
Код:
procedure TMenu.Button2Click(Sender: TObject);
begin
IdDayTime1.Host := Edit1.Text;
IdDayTime1.Port := StrToInt(Edit2.Text);
Label2.Caption := IdDayTime1.DayTimeStr;
end;
Заранее огромное спасибо!!!
-
> явно чего то нехватает
Не хватает самую малость - собственно NTP-сервера
-
А можете навести пример работы с IdDayTime а ещё лучше с IdDayTimeServer???
-
А смысл ?
-
У меня просто нету опыта работы в делфи связоной с инетом вот и прошу навести пример как проверять дату на сервере!!! С любым компонетом!!! Те 2 я просто для прмера взял!!! Если можете любой пример пожалуйста!!! Ну вот мой начальный код - как его доработать?!
-
Его не надо дорабатывать - он вполне работоспособен при достаточных сетевых условиях.
-
Так вы же написали:
Не хватает самую малость - собственно NTP-сервера
Что это?
-
Ну как что ?
Ты чего в свойствах Host и Port указываешь ?
Координаты того самого NTP-сервера.
А он, сервер этот, есть на самом деле по указанным тобой координатам ?
-
Вот ****! Работает точно! Тока что поменял хост на другой сайт и заработало!!! А стем что мне надо и не работает!!!((
-
> стем что мне надо и не работает
Это с каким же, если не секрет ?
-
-
И с какого же перепугу хост по адресу www.baza-lider.at.ua обязан предоставлять NTP-сервис ?
-
-
Будет ли хост предоставлять NTP-сервис, если он не заявлен публично - это зависит как минимум от каприза администратора этого хоста.
-
Тоесть вы хотите сказать что мне не удастся получить дату с сайта потому что подобная возможность блокируеться самой системой Ucoz???
-
Я хочу сказать, что сайт тут вообще ни причем.
Ты же не к сайту обращаешься по HTTP, а к некоему хосту по NTP
-
Короче говоря он мне ничего не даст!?
-
Почему не даст ?
Это же ТВОЙ сайт ? Если твой, то ничто не мешает дополнить его функциональнось скриптом, который при запуске возвращает некое время.
А скрипт запускать соответствующим HTTP-запросом.
-
Так как сайт зарегестрирован в системе Ucoz то я этого сделать не смогу потому что это запрещено!
Да и дата же на сайте есть?!
-
> сайт зарегестрирован в системе Ucoz то я этого сделать не
> смогу потому что это запрещено
Что за бред ?)
Никто не вправе запретить разработчику сайта изменять его "потроха", если он это свое право никому не передал безвозвратно на каких-то условиях.
> дата же на сайте есть?
Вот тебе дался это сайт)
Какая разница, на какой сервер ходить за тек.временем ?
Чем время, скажем, на публичном time.nist.gov по-твоему хуже какой-то там "даты" на каком-то там "сайте" ?)
-
Там сайт создаёться ввиде конструктора!! Тоесть он фактичеськи их властность и они регулируют там то как єто правильно всё! Ну да ладно!
Та мне то всё равно на каком сервере! но тот что вы дали он ведь зарубежный а мне нужен свой Украинський дабы получать коректную дату! А этот хоть и руський но всьо таки!
-
-
Спасибо!
Возник другой вопрос!
А вы можете помочь мне с парсингом страницы?!
Для решения нужной мне задачи - я вот что решил сделать - человек перед запуском программы вводит логин после чего программа парсить текст
на этой странице
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?!
Заранее спасибо?!
-
> тот что вы дали он ведь зарубежный а мне нужен свой Украинський
> дабы получать коректную дату
Чем зарубежный UTC отличается от Украинского UTC, или у вас опять национальные заморочки, опять вы первые и лучшие в мире?
UTC от и в Африке UTC, а части Дата особенно.
-
Да не в национальности дело! Да и вообщето мне уже отпала надобность в этом вопросе!
-
> Да и вообщето мне уже отпала надобность в этом вопросе!
Власть сменилась ? :)
-
> Kukulkan (12.05.10 00:45) [22]
>
> Спасибо!
>
> Возник другой вопрос!
> А вы можете помочь мне с парсингом страницы?!
TWebBrowser предоставляет широкии возможности для парсинга html-текста.
-
> Kukulkan (12.05.2010 10:21:24) [24]
Даты кончились?
Есть новые 
Нет новых [134437 +29][b:0][p:0.001]