Показать сообщение отдельно
  #2  
Старый 22.08.2016, 21:04
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Тебе нужен другой компонент - TIdDNSServer на вкладке Indy Servers (или как она там называется). Это как раз имплементация сервера. А TIdDNSResolver должен использоваться внутри для резолва имен, о которых твой сервер не знает.

Общая схема такая:
1. При старте твой сервер читает статическую таблицу (это те имена, которые ТЫ хочешь резолвить локально). Это таблица 1.
2. Делаее он инициализирует динамическую таблицу имен. Это таблица 2.
3. При получении запроса на резолв, сервер сначала просматривает таблицу 1. Если нашел там имя - выдал его.
4. Если на шаге 3 ничего не найдено, то сервер смотрит на таблицу 2. Если там нашел имя, то обновляет у этой записи время последнего обращения и возвращает результат.
5. Если опять ничего не найдено, то сервер через TIdDNSResolver пытается получить результат со внешнего сервера. Если получил, то заносит его в таблицу 2. Ну и возвращает результат в любом случае.
6. Отдельный поток проверяет все записи таблицы 2. Если к записи не обращались довольно длительное время (настройка, пусть это будет 4 часа), то она из таблицы 2 удаляется. Если общий возраст записи больше другого определенного времени (настройка, пусть будет 12 часов), то запись обновляетя (заного запрашивается адрес - это нужно для поддержания актуальности).
Ответить с цитированием