PR - PageRank Helper - Delphi Unit

Ostatnia aktualizacja: poniedziałek 21 lipca 2008r.

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!

Download

Wróć