IdDNSResolver

[greenisius]

Добрый день. Стоит задача получить MX запись домена.
Есть очень хорошая статья:

http://www.vr-online.ru/content/delp...ns-zapisi-2391

Сделал тестовый пример, опираясь на нее.

procedure TForm1.Button1Click(Sender: TObject);
var
  DNS, Domain: string;
  msg:TIdMessage;
  i: integer;
begin
  Domain := 'mail.ru';
  DNS := '8.8.8.8';
  IdDNSResolver1.QueryType := [qtMx];
  IdDNSResolver1.Resolve(Domain);

  with IdDNSResolver1.QueryResult do
  begin
  for i:=0 to Count-1 do
  if (Items[i] is TARecord) then
    Memo1.Lines.Add((Items[i] as TARecord).IPAddress)
  else if (Items[i] is TMXRecord) then
    Memo1.Lines.Add((Items[i] as TMXRecord).ExchangeServer)
  else if (Items[i] is TNSRecord) then
    Memo1.Lines.Add((Items[i] as TNSRecord).HostName)
  else if (Items[i] is TSOARecord) then
    Memo1.Lines.Add((Items[i] as TSoaRecord).Primary)
  end;

Ошибка : Socket Error # 10054. Connection reset by peer.

Что не так? Я верно понял, что DNS Google сбрасывает соединение?

[Pavia]

Добавьте таймаут в 10 секунд.

 idDNSResolver1.ReceiveTimeout:=10000;

Глупый инди не дождавшись ответа думает, что соединение разорвано.

[greenisius]

Сообщение от Pavia

Добавьте таймаут в 10 секунд.

В моей версии Indy нет такого свойства. Есть только:

  IdDNSResolver1.WaitingTime := 10000;

К сожалению, не помогло