PR - PageRank Helper - Delphi Unit
Ostatnia aktualizacja:
Plik PAS przeznaczony dla Delphi 7 lub nowszych, dzięki któremu łatwo będzie można odczytać PageRank (PR) dla strony.
Plik udostępnia dwie funkcje:
function GetPRURL(url: String; const DataCenter: String='www.google.com'): String;
Podając adres strony (wraz z http!) jako pierwszy parametr, funkcja zwróci adres URL, którego wywołanie da w odpowiedzi wartość PageRank dla strony. W drugim parametrze można określić adres DataCenter, który ma być odpytany. Znane serwery zwracające wartość PageRank:
- www.google.com
- www.google.pl
- 216.239.51.104
- 66.249.93.104
- 72.14.209.104
- 66.102.1.184
- 216.239.59.99
function DeparsePR(const S: String): ShortInt;
Funkcja ta pozwala na odczytanie wartości PageRank z odpowiedzi zwróconej przez serwer po wywołaniu zapytania stworzonego przez poprzednią funkcję. W przypadku błędnego zapytania bądź braku wartości PR, funkcja zwraca wartość -1.
Aby użyć wspomnianych funkcji w programie, należy dołączyć plik PR.pas do projektu (Menu Project / Add to project...). Następnie w plikach, w których zajdzie potrzeba pobierania Page Rank, należy dodać ten plik w sekcji uses.
Odpytanie serwera leży w kwestii programisty aplikacji - wspomniany plik wyłącznie generuje potrzebne dane, aby takie zapytanie wykonać. Do realizacji tego najprościej użyć komponentu IdHTTP z palety Indy Clients.
Przykładowe użycie przedstawiono poniżej. W aplikacji należy umieścić komponent TIdHTTP o nazwie IdHTTP.
uses PR;
function GetPR(URL: String): ShortInt;
var
S: String;
begin
try
S:=IdHTTP.Get(GetPRURL(URL)); //odpytuje serwer przy użyciu wygenerowanego adresu
Result:=DeparsePR(S); //odczytuje wartość PR z ciągu zwróconego przez serwer
except
Result:=-2; //w przypadku błędu z połączeniem - zwraca wartość -2;
end;
end; Plik można pobrać i używać we własnych aplikacjach zupełnie za darmo!
Komentarze (…)