Google arama yapıp sonuçları webbrowserde gösterme

[delphiibo]

İyi çalışmalar arkadaşlar. Button tıklandı mı edite girilen kelimeyi googleden arayıp sonuçları webbrowsere nasıl ekleyebilirim. Sonuçlar eklenecek. Yeni bir sayfa olarak gelmiyecek. Çünkü webbworsere Reklam koyacam. Onun altında googleden sonuçlar gelecek. Tek sayfa olarak.
Şimdiden yardım edenlere çok teşekkürler.

[delphiibo]

Bilen yok mu arkadaşlar?

[mkysoft]

Bilen var ancak senin sorduğun kadar kolay cevap veremiyoruz. Senin amacın google'ın tepesindeki reklamdan kurtulmak sanırım. Bunun için IdHttp ile google sayfasını çağırsın. Daha sonra gelen sayfayı parse ederek, sana lazım olan arama sonuçları kısmını alırsın. Google için yazılmış hazır companentler vardı. DIGoogleReader ve DIHtmlParser isminde iki companent vardı. Ücretsiz miydi ücretli miydi hatırlamıyorum. Kısacası sana lazım olan konu HTML Parse. Bu şekilde arama yaparsan daha kolay bulursun.

[recepuncu]

WebBrowser içinde görmek istiyorsan, aşağıdaki şekilde bir dene..

Kod: Tümünü seç

// HTTPEncode için USES HTTPApp
Procedure WebPost( WebBrowser:TWebBrowser; Isim, Sifre : String );
var
  strData  : string;
  PostData : OleVariant;
  Headers  : OleVariant;
  i        : Integer;
begin
  //URL := Format('http://www.istanbulbarosu.org.tr/Login.asp?Username=%s&Password=%s&LType=1', [Name,
  strData :=  'Username=' + HTTPEncode(Isim)  + '&'
            + 'Password=' + HTTPEncode(Sifre) + '&'
            + 'LType=1';
  PostData := VarArrayCreate([0, Length(strData) - 1], varByte);
  for i := 1 to Length(strData) do
    PostData[i-1] := Ord(strData[i]);
  Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;
  WebBrowser.Navigate('http://www.istanbulbarosu.org.tr/Login.asp', EmptyParam, EmptyParam, PostData, Headers);
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebPost( WebBrowser1, Edit1.Text, Edit2.Text );
end;

mrmarman arkadaşımız gayet güzel yazmış.
Kaynak: viewtopic.php?f=2&t=19205