IdDnsResolver Как пользоваться?

[JasperCRT]

IdDnsResolver! Подскажите как этим компонентом из имеющегося имени хоста получить его айпишник. Или может другими способами узнать можно?
Я нашел пример но он на С++(( Вот для справки:

#include <winsock2.h>
SOCKET sClient;
struct sockaddr_in server;
struct hostent *host = NULL;

...

// Создание сокета
sClient = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if (sClient == INVALID_SOCKET)
{
    log.message("Can't create socket");
    return 1;
}
// Заполнение структуры с адресом сервера и номером порта
server.sin_family = AF_INET;
server.sin_port = htons(nPort);
server.sin_addr.s_addr = inet_addr(szServerName);

// Если указано имя, то перевод символьного адреса сервера в IP
if (server.sin_addr.s_addr == INADDR_NONE)
{
    host = gethostbyname(szServerName);
    if (host == NULL)
    {
        log.message("Unable to resolve server");
        return 1;
    }
    CopyMemory(&server.sin_addr, host->h_addr_list[0],
        host->h_length);
}

[kangreon]

Вот тут написано. Сейчас может найду ссылку по лучше
http://forum.antichat.ru/showpost.ph...05&postcount=7

Ага.. Нашел
Создаем компонент TCP на Winsock (Часть 1)
Создаем компонент TCP на Winsock (Часть 2)

[mss]

Зашибись.

А демо-проект ($Delphi)\Demos\Indy\DNSResolver\DN S_R.dpr Борланд, наверно, для Пушкина писала и включала в штатные дистрибутивы Delphi ...