MOJE PROGRAMY I TEKSTY

Programy i teksty > Programy, kody źródłowe > PR - PageRank Helper - Delphi Unit

PR - PageRank Helper - Delphi Unit

Ostatnia aktualizacja: wtorek 22 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óć
[Komentarze] | Share Podziel się

Ocena powyżej opisanego materiału znajduje się w dziale Download


Wszystkie programy i teksty na tej stronie są dostępne za darmo, jednak utrzymywanie jej kosztuje (szczególnie przy niskim kursie dolara przez wzgląd na mniejsze wpływy z reklam). Jeżeli spodobał Ci się któryś z programów lub skorzystałeś z któregoś z moich tekstów i chcesz mi wynagrodzić moją pracę to możesz przelać symboliczną złotówkę na moje konto
mBank: 47 1140 2004 0000 3202 2357 3749
Nazwa odbiorcy: Dawid Najgiebauer
Wszystkim, którzy wspierają serwis dziękuję!
Strona istnieje od 25.01.2001
Ta strona używa plików Cookie
 
archive To tylko kopia strony wykonana przez robota internetowego! Aby wyświetlić aktualną zawartość przejdź do strony.
Ładowanie...

Optymalizowane dla przeglądarki Firefox
© Copyright 2001-2017 Dawid Najgiebauer. Wszelkie prawa zastrzeżone.
Ostatnia aktualizacja podstrony: 22.09.2014 11:39
Wszystkie czasy dla strefy czasowej: Europe/Warsaw