Lost - Остаться в живых

Порекомендую еще один сериал, если кто вдруг не смотрит - Lost, ниже изложен краткий сюжет. Летит себе самолетик из Австралии в Штаты да и терпит крушение над каким-то островком, весьма солидных, надо сказать, размеров. Ну, естественно, есть выжившие :) Около 50 человек. Проблемка в том, что самолет сбился с курса да и передатчик у них почти сразу после вылета забарахлил, то есть спасателям их найти не светит.

Народ среди выживших подобрался еще тот, все сплошь "сложные личности": аферист, депресушный доктор, убийца в бегах, бывший иракский дознователь, наркоман и так далее. Ну вот они и организуются и планируют кое-как выживать, что у них получается тоже кое-как. Первый сезон посмотреть точно стоит, а там уж как захочется. Почему рекомендую только первый? А потому, как в нем мало соплей и много действия, а дальше динамика сильно меняется от серии к серии - расширяют аудиторию, дают домохозякам возможность порыдать :=)

Как на мой взгляд, нормально ведет себя там только один человек - Соер, прибрал к рукам побольше всего и во всем ищет выгоду лично для себя. Остальные по разному, кто-то сидит нихуя не делает, у кого-то депрессия, а кто-то вяло пытается шивелиться. Маленький спойлер - нигера с малым (самого малого - опционально) и дедулю-инвалида стоило бы убить сразу. Почему? Узнаете к концу третьего сезона, если досмотрите. Я как-то с первых серий так решил и оказался прав )))

P.S. Качать рекомендую все с того же lostfilm.tv - нормальное качество и классный перевод.

Определение ТИЦ в Delphi

Решил немного заняться программированием в разрезе 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 и каталог Яндекса. Думаю получится написать более-менее приличный инструмент для анализа выдачи.