(Resolvido) Pegar pesquisa do google

[anjofantasma]

Gostaria de jogas os links da pesquisa no memo como isso e possivel ?

http://prntscr.com/61ejwe

[Jhonas]

vejamos se entendi

voce quer usar o webbrowser para chamar a pesquisa do google

depois voce que pegar todos os links da pesquisa e jogar em um memo .... é isso ?

[anjofantasma]

isso mesmo manow isso mesmo

[Jhonas]

exemplo

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Silent;
   WebBrowser1.Navigate('http://www.google.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  htmlDoc: IHTMLDocument2;
  allLinks: IHTMLElementCollection;
  firstLink: IHTMLElement;
  url: String;
begin
  // PEGAR TODOS OS LINKS DE UMA PAGINA NO GOOGLE E JOGAR EM UM MEMO
  Memo1.Clear;
  for i := 0 to 100 do
  begin
  htmlDoc := WebBrowser1.Document as IHTMLDocument2;
  allLinks := htmlDoc.Links;
  firstLink := allLinks.Item(i,'') as IHTMLElement;
  url := firstLink.toString;

  //ShowMessage(url);
  Memo1.Lines.Append(url);
  end;
end;

end.

aproveite e veja esse link

http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm#OleObject.Document.Links

abraço

[anjofantasma]

Sim basicamente isso porem eu axei um função que faz do mesmo jeito que voce fez porem estou querendo pegar so os link dos sites desta forma vem link do google etc to procurando uma forma que pega os link da pesquisa

[Jhonas]

basta voce filtrar o conteudo da url

[anjofantasma]

isso que eu quero aprender mano ai chegamos ao ponto hehe oque eu estudo qual função pra filtrar os link ?

[Jhonas]

amigo, isso é uma coisa simples que voce deveria saber fazer

veja:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin
   WebBrowser1.Silent;
   WebBrowser1.Navigate('http://www.google.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  htmlDoc: IHTMLDocument2;
  allLinks: IHTMLElementCollection;
  firstLink: IHTMLElement;
  url, s: String;
begin
  // PEGAR TODOS OS LINKS DE UMA PAGINA NO GOOGLE E JOGAR EM UM MEMO
  Memo1.Clear;
  for i := 0 to 100 do
  begin
  htmlDoc := WebBrowser1.Document as IHTMLDocument2;
  allLinks := htmlDoc.Links;
  firstLink := allLinks.Item(i,'') as IHTMLElement;
  url := firstLink.toString;

  //ShowMessage(url);
  if pos('url=http://www',url) > 0 then
     begin
        s := copy(url,(pos('url=http://www',url)+4),length(trim(url)));
        Memo1.Lines.Append(s);
     end;
  end;
end;

end.

abraço

[anjofantasma]

manow você e froid ficou perfeito muito obrigado mesmo em agora falta nada