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

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

Форум программистов > Delphi: Сети > проверка на существование поддомена

Автор: W1zArD 24.10.2007, 19:45

всем добрых сутков...

собственно вот и вопрос...
как мне узнать что поддомемен ( к примеру sub.site.com) существует?

заранее благодарен

Автор: dumb 24.10.2007, 21:31

Цитата(W1zArD @ 24.10.2007, 20:45

)

как мне узнать что поддомемен ( к примеру sub.site.com) существует?

спросить у DNS'а.

Автор: W1zArD 24.10.2007, 22:14

извиняюсь не понял)))

кстати как мне быть с реддиректом?

Автор: dumb 25.10.2007, 00:52

Код


uses ..., Winsocket;

function IsDomainExist(dname: String) : boolean;
var
  wsa : TWSAData;
begin
  WSAStartup ($0202, wsa);
  Result := gethostbyname(PChar(dname)) <> nil;
  WSACleanup;
end;

Цитата(W1zArD @ 24.10.2007, 23:14

)

кстати как мне быть с реддиректом?

нет, это некстати. создай новую тему и четко сформулируй вопрос.