Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Google PageRank средствами Дельфи (https://forum.antichat.xyz/showthread.php?t=73068)

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

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

desTiny 08.06.2008 15:07
http://www.pr-cy.ru/analiz.php?url=ya.ru

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

Isis 08.06.2008 15:22
Угу, http://www.x3k.ru

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

Apocalypse 08.06.2008 17:30
Цитата:
Сообщение от Isis
Угу, http://www.x3k.ru
ммм...а исходничек? =)

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

BlackSun 08.06.2008 18:37
Цитата:
Сообщение от Apocalypse
ммм...а исходничек? =)

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

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

Pir4tt 08.06.2008 22:04
Юзаю такую штуку:
В папку с проектом кинешь это
_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;
чекает, соответственно пр,тиц и алексу Чек пр проходит как бы через тулбар гугласа


Время: 10:41
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице