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

[Apocalypse]

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

[Isis]

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

[desTiny]

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

[perets]

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

[Isis]

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

[BlackSun]

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

[Apocalypse]

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

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

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

[BlackSun]

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

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

[Apocalypse]

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

[Pir4tt]

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

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

[Apocalypse]

Юзаю такую штуку:
В папку с проектом кинешь это
_http://www.sendspace.com/file/vkkclt
В юзесе добавишь FWURLPosition
Там где хочешь вставь процедуру
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.p as'

[Pir4tt]

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

[BlackSun]

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