![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проверка даты на сервере!!! [D7, WinXP]
Kukulkan © (2010-05-11 21:11:00)Передо мной стоит такая задача - нужно ограничвать срок работы программы!!! Скажем примерно на месяць!!! А потом понадобности продливать!!! Мне посоветовали что надёжнее всего сверяться с датой на какамто сервере(сайте)!!! У меня есть сайт он зарегистрирован в системе Ucoz!!! подскажите пожалуйста как это можно сделать!!!???
Знаю можно компонетом IdDayTime но не получаеться что-то! Вот пробывал так но явно чего то нехватает тока непойму чего именно!
Код:
procedure TMenu.Button2Click(Sender: TObject);
begin
IdDayTime1.Host := Edit1.Text;
IdDayTime1.Port := StrToInt(Edit2.Text);
Label2.Caption := IdDayTime1.DayTimeStr;
end;
Заранее огромное спасибо!!!
Anatoly Podgoretsky (2010-05-12 11:55:00) [1]> Kukulkan (12.05.2010 10:21:24) [24]
Даты кончились?
Плохиш (2010-05-12 11:23:00) [2]
> Kukulkan (12.05.10 00:45) [22]
>
> Спасибо!
>
> Возник другой вопрос!
> А вы можете помочь мне с парсингом страницы?!
TWebBrowser предоставляет широкии возможности для парсинга html-текста.
Jeer (2010-05-12 11:16:00) [3]
> Да и вообщето мне уже отпала надобность в этом вопросе!
Власть сменилась ? :)
Kukulkan (2010-05-12 10:21:00) [4]Да не в национальности дело! Да и вообщето мне уже отпала надобность в этом вопросе!
Anatoly Podgoretsky (2010-05-12 09:38:00) [5]
> тот что вы дали он ведь зарубежный а мне нужен свой Украинський
> дабы получать коректную дату
Чем зарубежный UTC отличается от Украинского UTC, или у вас опять национальные заморочки, опять вы первые и лучшие в мире?
UTC от и в Африке UTC, а части Дата особенно.
Kukulkan (2010-05-12 00:45:00) [6]Спасибо!
Возник другой вопрос!
А вы можете помочь мне с парсингом страницы?!
Для решения нужной мне задачи - я вот что решил сделать - человек перед запуском программы вводит логин после чего программа парсить текст
на этой странице
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?!
Заранее спасибо?!
Сергей М. (2010-05-12 00:05:00) [7]> он ведь зарубежный а мне нужен свой Украинський дабы получать коректную дату
http://planetolog.ru/timezone-country.php?country=UA
Kukulkan (2010-05-11 23:47:00) [8]Там сайт создаёться ввиде конструктора!! Тоесть он фактичеськи их властность и они регулируют там то как єто правильно всё! Ну да ладно!
Та мне то всё равно на каком сервере! но тот что вы дали он ведь зарубежный а мне нужен свой Украинський дабы получать коректную дату! А этот хоть и руський но всьо таки!
Сергей М. (2010-05-11 23:32:00) [9]
> сайт зарегестрирован в системе Ucoz то я этого сделать не
> смогу потому что это запрещено
Что за бред ?)
Никто не вправе запретить разработчикусайта изменять его "потроха", если он это свое право никому не передал безвозвратно на каких-то условиях.
> дата же на сайте есть?
Вот тебе дался это сайт)
Какая разница, на какой сервер ходить за тек.временем ?
Чем время, скажем, на публичном time.nist.gov по-твоему хуже какой-то там "даты" на каком-то там "сайте" ?)
Kukulkan (2010-05-11 23:22:00) [10]Так как сайт зарегестрирован в системе Ucoz то я этого сделать не смогу потому что это запрещено!
Да и дата же на сайте есть?!
Сергей М. (2010-05-11 23:18:00) [11]Почему не даст ?
Это же ТВОЙ сайт ? Если твой, то ничто не мешает дополнить его функциональнось скриптом, который при запуске возвращает некое время.
А скрипт запускать соответствующим HTTP-запросом.
Kukulkan (2010-05-11 23:13:00) [12]Короче говоря он мне ничего не даст!?
Сергей М. (2010-05-11 23:05:00) [13]Я хочу сказать, что сайт тут вообще ни причем.
Ты же не к сайту обращаешься по HTTP, а к некоему хосту по NTP
Kukulkan (2010-05-11 22:57:00) [14]Тоесть вы хотите сказать что мне не удастся получить дату с сайта потому что подобная возможность блокируеться самой системой Ucoz???
Сергей М. (2010-05-11 22:48:00) [15]Будет ли хост предоставлять NTP-сервис, если он не заявлен публично - это зависит как минимум от каприза администратора этого хоста.
Kukulkan (2010-05-11 22:34:00) [16]А почему бы и нет?! Почему же http://www.programmersforum.ruдал мне дату?! Объесните пожалуйста!!!??? Буду очень признателен!!!
Сергей М. (2010-05-11 22:31:00) [17]И с какого же перепугу хост по адресу www.baza-lider.at.ua обязан предоставлять NTP-сервис ?
Kukulkan (2010-05-11 22:27:00) [18]Вот сайт зарегистрирован в системе Ucoz
http://www.baza-lider.at.ua/
Сергей М. (2010-05-11 22:16:00) [19]> стем что мне надо и не работает
Это с каким же, если не секрет ?
Kukulkan (2010-05-11 22:13:00) [20]Вот ****! Работает точно! Тока что поменял хост на другой сайт и заработало!!! А стем что мне надо и не работает!!!((