Проверка домена на занятость

[XoTTa6bI2]

Подскажите как это можно реализовать в Delphi?

[Alar]

whois компонент.
Пример есть в книгах, что на сайте.

[Квэнди]

Идем на вкладку Indy Clients
берем компонент TIDWhois
прописываем в его свойство host name адрес whois сервера (к примеру whois.ripe.net) И пишем <имя компонента>.whois(что проверяем) вот и все.

[XoTTa6bI2]

спасибо огромное

а домены *.ru там то нельзя проверить, есть ли другие способы?

[Квэнди]

object IdWhois1: TIdWhois
    MaxLineAction = maException
    Host = 'whois.ripn.net'
    Port = 43
    Left = 152
    Top = 200
  end


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdWhois,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdWhois1: TIdWhois;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(IdWhois1.WhoIs('rambler.ru'));
end;

end.

Все замечательно показывается

[XoTTa6bI2]

А есть универсальный хост, который и домены com, ru и т.д. определяет. + Можно ли так сделать чтоб просто узнавать есть домен или нет, то есть если есть ты выводит 1, а если нет 0

[Квэнди]

Вы понимаете что такое whois ?
Проверяйте на нескольких в этом случае, наиболее логичным будет whois.ripn.net
а выводить 0 или 1 это уже парсите ответ от сервера и на основе этого делайте вывод

[Virtson]

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(IdWhois1.WhoIs('rambler .ru'));
end;

Квэнди дал вам всю универсальность !

[Alar]

Virtson, так это только с
Host = 'whois.ripn.net'

Иногда нужно брать с других серверов, потому это не универсальность.

[Квэнди]

Самый простой вариант:
подбираем whois сервера для разных зон и в зависимости от введеного хоста (проверяем зону) выставляем тот или иной whois сервер.