Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.08.2014, 18:20
Аватар для Kpyc
Kpyc Kpyc вне форума
Новичок
 
Регистрация: 05.05.2011
Сообщения: 75
Версия Delphi: Turbo Delphi
Репутация: 11
По умолчанию Turbo Delphi Активация через сайт

Как реализуется? Нашел много примеров для Delphi 7+ с использованием Indy, но ничего не могу найти для Turbo Delphi. Куда копать? Желательно без использования сторонних библиотек. На крайний случай WinApi.
Ответить с цитированием
  #2  
Старый 19.08.2014, 19:26
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Что имеется в виду под активацией?
Если "покупка", "регистрация" приложения и т.п., то как раз лучше найти хорошее стороннее решение, потому что без опыта сделать что-то, что будет ломаться дольше, чем за 10 минут, не выйдет. Так что тут самопал проходит только на "побаловаться".
А так, вкратце - подключение к серверу, отправка введенного ключа, на сервере - проверка по базе, возврат ответа и в приложении либо продолжение работы, либо выход. Но такая функция, сделанная "в лоб", выпиливается за 5-10 минут с полным сохранением функционала программы.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Kpyc (19.08.2014)
  #3  
Старый 19.08.2014, 19:41
Аватар для Kpyc
Kpyc Kpyc вне форума
Новичок
 
Регистрация: 05.05.2011
Сообщения: 75
Версия Delphi: Turbo Delphi
Репутация: 11
По умолчанию

Порядок действий понятен, интересует именно реализация. Не готовый код конечно, просто в каком направлении искать и, если можно, простые примеры.
Ответить с цитированием
  #4  
Старый 19.08.2014, 19:42
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

socket, connect, send, recv, if () then halt;
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Kpyc (19.08.2014)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:57.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025