Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > не работает DNS запрос

Автор: Friackazoid 29.7.2006, 18:06

Делаю DNS запрос на сервер вот таким образом

Код


with IdDNSResolver do
   begin
   QueryResult.Clear;
   QueryRecords := [qtMB];
   Host := edtDNS.text;
   ReceiveTimeout := StrToInt(edtTimeOut.text);
   // Extract the domain part from recipient email address
   LDomainPart := copy(edtRecipient.text,pos('@',edtRecipient.text)+1,length(edtRecipient.text));
   // the domain name to resolve
   try
   Resolve(LDomainPart);
   if QueryResult.Count > 0 then
     begin
       for i := 0 to QueryResult.Count - 1 do
         begin
         mmoMessageText.Lines.Strings[i]:=QueryResult.Items[i].Name;
         LMXRecord := TMXRecord(QueryResult.Items[i]);
         fMailServers.Append(PadZero(IntToStr(LMXRecord.Preference)) + '=' + LMXRecord.ExchangeServer);
         end;

но он всегда вылетает по TimeOut, хотя он выставлен на 100000. Подскажыте в чем может быть ошибка

Автор: Girder 30.7.2006, 10:31

Возьми из ентого примера готовое... см. GetMailServers
http://forum.vingrad.ru/index.php?showtopic=49623&view=findpost&p=391520
Или от сюда(будет работать и на Indy10)... также называеться GetMailServers:
http://forum.vingrad.ru/index.php?showtopic=49623&view=findpost&p=397151

Автор: Friackazoid 30.7.2006, 11:17

Да пробовала я уже эти примеры, все равно одно и тоже доходит до строчки

Код


Resolve(LDomainPart);

и все, а потом по TimeOut выдает exeption

Автор: Friackazoid 30.7.2006, 15:57

Girder,

На mail.ru yandex.ru
А с localhost (Denver [email protected]) вообще ерунда выдает, что коннект был reset by peer smile

Автор: Girder 31.7.2006, 11:07

У меня все работает... может у тебя не проходят енти запросы.

вот пример.

Добавлено @ 11:08
вклепай в ентот пример вывод расширеных ошибок... если он у тебя ни чего не выдаст в Memo

Автор: Friackazoid 31.7.2006, 23:27

Я поппробовала запустить пример от Borlanda, но он официально выдал мне сообщение, что письма отсылать не может. Почему такое может быть? smile