How to check google pr in delphi?

Hello guys!
Please help me!

How can i get the pr rank of a website in delphi?
I need to do this without google make a ip ban.

Please help, if everyone know a solution, help.
thanks
helyonprime96Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
jimyXConnect With a Mentor Commented:
You can use TWebBrowser to load the page and parse the text from there:
uses MSHTML;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Doc : IHTMLDocument2;
  Str:string;
begin
  if not Assigned(WebBrowser1.Document) then Exit; // also you can show a message here to indicate that the page has not yet completed loading
  Doc := (WebBrowser1.Document AS IHTMLDocument2);
  if Pos('points: ', Doc.Body.innerText) > 0 then
    begin
      Str := Doc.Body.innerText;
      delete(str,1,Pos('points: ',str)+length('points: ')-1);
      Label1.caption := copy(str,1,pos(' ',str)-1);
    end;
end;

Open in new window


You can go through this PAQ:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_26801816.html
0
 
jimyXCommented:
If you have the page text loaded to a Memo then you can parse the text from the Memo as follows:
procedure TForm1.Button1Click(Sender: TObject);
var
  Str:string;
begin
  Str := memo1.Text;
  if Pos('points: ', Str) > 0 then
    begin
      delete(str,1,Pos('points: ',str)+length('points: ')-1);
      Showmessage(copy(str,1,pos(' ',str)-1));
    end;
end;

Open in new window

0
 
jimyXCommented:
Do you require more help here?
0
What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

 
helyonprime96Author Commented:
no
0
 
jimyXCommented:
Did my comment answer your question?
0
 
helyonprime96Author Commented:
partialy, but thanks
0
 
helyonprime96Author Commented:
thanks, man
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.