MOJE PROGRAMY I TEKSTY

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

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óć
[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.
Korzystając z niej wyrażasz zgodę na przetwarzanie danych a zakresie podanym w Polityce Prywatności.
Helion.pl  
archive To tylko kopia strony wykonana przez robota internetowego! Aby wyświetlić aktualną zawartość przejdź do strony.

Optymalizowane dla przeglądarki Firefox
© Copyright 2001-2018 Dawid Najgiebauer. Wszelkie prawa zastrzeżone.
Ostatnia aktualizacja podstrony: 15.07.2018 16:40
Wszystkie czasy dla strefy czasowej: Europe/Warsaw