Fórum como dar enter no webbrowser #261485

type
  TMeuForm = class(TForm)
    // ...
    httpCliente: TIdHTTP;
    // ...
   function BuscaNoGoogle(PalavraChave: string): string

// ...

// Busca no Google pela PalavraChave.
// Retorna a página gerada pelo Google.

function TMeuForm.BuscaNoGoogle(PalavraChave: string): string
var
    Resposta: TStringStream;
begin
    Resposta := TStringStream.Create(´´);
    try
        httpCliente.Get(´http://www.google.com/search?q=´ + PalavraChave, Resposta);

        Result := Resposta.DataString;
    finally
        Resposta.Free;
    end;
end;

type
  TMeuForm = class(TForm)
    // ...
    httpCliente: TIdHTTP;
    // ...
   function BuscaNoClubeDelphi(PalavraChave: string): string

// ...

// Busca no ClubeDelphi pela PalavraChave.
// Retorna a página gerada pelo ClubeDelphi.

function TMeuForm.BuscaNoClubeDelphi(PalavraChave: string): string
var
    Argumentos: TStringList;
begin
    Argumentos := TStringList.Create;
    try
        Argumentos.Add(´search_keywords=´ + PalavraChave);
        Argumentos.Add(´search_terms=all´);
        //Argumentos.Add(´search_author=´);

        Result := httpCliente.Post(´http://delphiforum.icft.com.br/forum/search.php?mode=results´, Argumentos);
    finally
        Argumentos.Free;
    end;
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    httpCliente: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    function BuscaNoClubeDelphi(PalavraChave: string): string
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Busca no ClubeDelphi pela PalavraChave.
// Retorna a página gerada pelo ClubeDelphi.

function TForm1.BuscaNoClubeDelphi(PalavraChave: string): string;
var
  Argumentos: TStringList;
begin
  Argumentos := TStringList.Create;
  try
    Argumentos.Add(´search_keywords=´ + PalavraChave);
    Argumentos.Add(´search_terms=all´);
    //Argumentos.Add(´search_author=´);

    Result:=httpCliente.Post(´http://delphiforum.icft.com.br/forum/search.php?mode=results´, Argumentos);

  finally
    Argumentos.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(BuscaNoClubeDelphi(´Teste´));
end;

end.

procedure TForm1.Button2Click(Sender: TObject);
var 
ovElements: OleVariant;
i: Integer; 
begin 
ovElements := ie.OleObject.Document.forms.item(0).elements;
for i := 0 to ovElements.Length -1 do
begin
if (ovElements.item(i).tagName = ´INPUT´)
and (ovElements.item(i).type = ´submit´)
and (ovElements.item(i).Value = ´Google seach´) then
begin
ovElements.item(i).Click;
break;
end;
end;
end;