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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2007, 15:54   #1
Anatolij
 
Регистрация: 02.01.2007
Сообщений: 4
По умолчанию DNS - поиск адреса

Господа, кто знаком с принципами DNS ?
У меня проблемма вот в чём, мне требуется определить существует ли забанный емаил адоесс или нет. Для этого я сперва определяю ИП на маил сервер, вот так:

dns := TIdDNSResolver.Create(nil);
dns.AllowRecursiveQueries := True;
dns.Host := DNSServer;
dns.QueryRecords := [qtMX];
dns.ReceiveTimeout := 20000;
dns.Resolve(sDomain);
for i := 0 to dns.QueryResult.Count-1 do
if (dns.QueryResult[i].RecType = qtMX) then
begin
sDomain := TMXRecord(dns.QueryResult[i]).ExchangeServer;
bFound := True;
break;
end;
.....

после чего уже провожу ряд других мероприятий по определнию адресса на сервере, но это не важно.

Моя проблемма в том что я не знаю что писять в DNSServer, тоесть я нашол некоторые хосты серверов, но чеиез них я нахожу только некоторые маил сервера, например для адресса ffff@mail.ru находится маил сервер mxn.mail.ru а для рамблера там не находиться не чего, хотя на рамблере маил сервер есть точно.
Anatolij вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
абсолютные адреса kano Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 01.07.2008 20:49
Конфликт IP адреса ... Ronni10 Операционные системы общие вопросы 4 28.02.2008 14:14
Смена IP-адреса Македонский Работа с сетью в Delphi 13 06.02.2008 19:02
Подмена МАК-АДРЕСА Рустам Работа с сетью в Delphi 1 18.08.2007 12:32
2 одинаковых Ip адреса Alar Работа с сетью в Delphi 12 24.12.2006 10:21