Google PageRank средствами Дельфи

Подскажите пожалуйста как в Дельфи можно узнать ПР страницы??? ТИЦ легко узнается через интерфейс Яндекса, а вот с ПР проблема =(

 

PR также узнается легко через интерфейс гугла...
Ищи в разделе "Php, perl" класс для этого

 

http://www.pr-cy.ru/analiz.php?url=ya.ru

 

думаю лучше у изеза выдергивать пр там точнее

 

Угу, http://www.x3k.ru

 

http://rapidshare.com/files/120952062/german_future_film_no_porno_xD.rar
php, тут те и тиц, и пр, и вебальта, etc

 

ммм...а исходничек? =)

мне от пхп толку мало =( мне б на дельфи

 

6й и остальные для кого написаны? сорец для получения тиц и пр в 6м посте, пишешь скрипт, который будет выводить только то, что нужно, кидаешь на хост, в проге конектишся к хосту, отправляешь на скрипт домен для чека, получаешь все, что нужно

 

ясно, будем копать тогда в скрипте =) просто его надо на хост вешать, а если хост упадет =(

 

Юзаю такую штуку:
В папку с проектом кинешь это
_http://www.sendspace.com/file/vkkclt
В юзесе добавишь FWURLPosition
Там где хочешь вставь процедуру

Code:

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;

чекает, соответственно пр,тиц и алексу Чек пр проходит как бы через тулбар гугласа

 

закинул в папку с программой, а затем еще и по адресу ниже, но при компиляции пишет
[Fatal Error] File not found: 'c:\program files\borland\delphi6\Projects\Bpl\FWURLPosition.pas'

 

ступил, бывает
_http://www.sendspace.com/file/j8koeo
тудаже

 

В папку /Lib/ у Delphi закинь