[help] тИЦ и PR на Delphi

Тема в разделе "Другие языки", создана пользователем Apocalypse, 8 июн 2008.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. Apocalypse

    Apocalypse Take My Revolution

    Moderator
    Регистр.:
    2 июн 2007
    Сообщения:
    307
    Симпатии:
    800
    Делаю для себя прогу с массовым чеком тиц и пр, но вот столкнулся с такой проблемой, тиц легко берется в виде гифа с http://www.yandex.ru/cycounter?www.site.com

    А есть ли такой интерфейс для ПР? Подскажите пожалуйста :confused:
     
  2. Pir4tt

    Pir4tt Создатель

    Регистр.:
    13 фев 2008
    Сообщения:
    12
    Симпатии:
    32
    можно юзать как сторонние сервисы типа pr-cy.ru, так и воспользоваться сервисом тулбара гуля. Сам пользуюсь вот этой реализацией:
    http://www.sendspace.com/file/j8koeo
    модуль определяет Google PR, Тиц и AlexaRank
    Пример юзания:procedure RYACheck;
    var
    URLPosition: TFWURLPosition;
    begin
    URLPosition := TFWURLPosition.Create;
    try
    URLPosition.GetURLPosition(
    Edit1.Text, [ucAlexa, ucGoogle, ucYandex]);
    Label1.Caption := 'Tic :: ' + IntToStr(URLPosition.YandexTIC);
    Label2.Caption := 'PR :: ' + IntToStr(URLPosition.GooglePR);
    Label3.Caption := 'AlexaRank :: ' + IntToStr(URLPosition.AlexaRank);
    finally
    URLPosition.Free;
    end;
    end;
     
Статус темы:
Закрыта.