Решил немного заняться программированием в разрезе SEO. Поскольку интерфейсов для этого нужно прилично был выбран собственно Delphi. Ну вот делюсь одной приятной функцией =) Она поможет определить ТИЦ сайта. Для этого нам понадобится всего один стандартный компонент из палитры Internet - XMLDocument. Запрашивать ТИЦ будем точно таким же способом, как это делает Яндекс-Бар: запросим XML и извлечем из него нужную нам строку.
function GetTIC(sDomain: String): String;
begin
XMLDocument.LoadFromFile('http://bar-navig.yandex.ru/u?ver=2&show=32&url=' + sDomain);
XMLDocument.Active := True;
Result := VarToStr(XMLDocument.DocumentElement.ChildNodes['tcy'].Attributes['value']);
if Result = '' then Result := '0';
end;
Действительно просто ))) В ближайших сообщениях напишу про whois и каталог Яндекса. Думаю получится написать более-менее приличный инструмент для анализа выдачи.
