Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.10.2013, 15:30   #1
max9123
Пользователь
 
Регистрация: 06.10.2013
Сообщений: 20
По умолчанию Триал версия до какого-то числа.

Здравствуйте ,необходимо добавить в свою программу триал версию. Надо ,чтобы она читала время с этого сайта http://worldtimeengine.com/function/sync ,а потом проверяла время с тем ,которое я задал. Если полученное время больше ,то вылезит сообщение о том ,что версия устарела и т.д. Как это реализовать?

Последний раз редактировалось max9123; 07.10.2013 в 15:33.
max9123 вне форума Ответить с цитированием
Старый 07.10.2013, 16:18   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

Эта схема ломается быстро =)
Человек_Борща вне форума Ответить с цитированием
Старый 07.10.2013, 16:29   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Ну загрузите страницу с помощью какого-нибудь TIdHttp или Synapse, в чем проблема?

Цитата:
Эта схема ломается быстро =)
Может быть автор и не хочет защищаться от тех, кто умеет ломать.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 07.10.2013, 16:46   #4
max9123
Пользователь
 
Регистрация: 06.10.2013
Сообщений: 20
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
Ну загрузите страницу с помощью какого-нибудь TIdHttp или Synapse, в чем проблема?


Может быть автор и не хочет защищаться от тех, кто умеет ломать.
Я незнаю ,как получить данные с сайта. И кстати ,если программа не смогла получить доступ к сайту ,или нету интернет доступ ,то программа закроется. Если и можно ломать таким способом ,то пусть ломают. Это не очень важно.

Последний раз редактировалось max9123; 07.10.2013 в 16:49.
max9123 вне форума Ответить с цитированием
Старый 07.10.2013, 16:50   #5
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Выше написано как. Гуглите про TIdHttp или Synapse.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 07.10.2013, 18:15   #6
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,899
По умолчанию

Код:
var
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    try
      s := HTTP.Get('http://worldtimeengine.com/function/sync');
    except
    end;
  finally
    HTTP.Free;
  end;
end;

Последний раз редактировалось Shouldercannon; 07.10.2013 в 19:02.
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Триал в реестре( Исправление) саша40 Общие вопросы Delphi 11 08.11.2012 23:59
Там, где кончается триал Tihon Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 20.08.2009 16:48
Вечный триал косперского. uberchel Софт 0 11.08.2009 02:44
Триал версия. Выход из положения !? Adamant Свободное общение 20 25.03.2009 14:04
Почему лицензионная версия продукта дороже чем пиратская версия продукта? multik Свободное общение 13 13.07.2008 14:40