Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не работает DNS запрос, INDY 
:(
    Опции темы
Friackazoid
Дата 29.7.2006, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 148
Регистрация: 23.2.2006

Репутация: нет
Всего: 3
Делаю 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. Подскажыте в чем может быть ошибка
 
--------------------
Даже если тебя съели, то все равно есть два выхода.42Team блог
PM MAIL WWW ICQ GTalk   Вверх
Girder
Дата 30.7.2006, 10:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

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


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Friackazoid
Дата 30.7.2006, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 148
Регистрация: 23.2.2006

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

Код

Resolve(LDomainPart);


и все, а потом по TimeOut выдает exeption 
--------------------
Даже если тебя съели, то все равно есть два выхода.42Team блог
PM MAIL WWW ICQ GTalk   Вверх
Friackazoid
Дата 30.7.2006, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 148
Регистрация: 23.2.2006

Репутация: нет
Всего: 3
Girder, 

На mail.ru yandex.ru 
А с localhost (Denver [email protected]) вообще ерунда выдает, что коннект был reset by peer smile  
--------------------
Даже если тебя съели, то все равно есть два выхода.42Team блог
PM MAIL WWW ICQ GTalk   Вверх
Girder
Дата 31.7.2006, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 4
Всего: 155
У меня все работает... может у тебя не проходят енти запросы.

вот пример.

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

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  Girder.zip 11,10 Kb


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Friackazoid
Дата 31.7.2006, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 148
Регистрация: 23.2.2006

Репутация: нет
Всего: 3
Я поппробовала запустить пример от Borlanda, но он официально выдал мне сообщение, что письма отсылать не может. Почему такое может быть? smile  
--------------------
Даже если тебя съели, то все равно есть два выхода.42Team блог
PM MAIL WWW ICQ GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0449 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.