In Google suchen

[Ultimator]

Ich glaube es passt immernoch am Besten hierhin: Ich möchte in meinem selbstgeschriebenen Browser so etwas wie doe Google Toolbar verwenden, also dass ich in ein Edit-Feld den Suchbegriff eingebe, auf einen Button drücke und sich daraufhin im TWebBrowser die Seite mit den Suchergebnissen von Google öffnet. Ist sowas mit Delphi möglich? Und wenn ja, wie?

Ich hoffe ihr versteht was ich meine und könnt mir helfen.

MfG, Ultimator+

[Matze]

Delphi-Quellcode:

ShellExecute(0, 'open', PChar('http://www.google.de/search?q=' + Edit12.Text + '&ie=UTF-8&oe=UTF-8&hl=de&btnG=Google-Suche&meta='), nil, nil, SW_SHOWNORMAL);

Edit: Achja

Delphi-Quellcode:

uses ShellApi

nicht vergessen ;)

[Phoenix]

Ja, ist es. und wie?

Nunja, geh mal auf die Google.Suchseite und schau Dir den Quellext an. Dort steht, wie die URL einer Google-Abfrage zusammengebaut wird. ;-)

Du erzeugst also einfach anhand der Eingabe die URL und zeigst Diese im Browser an.

[---Bernhard---]

Hi!

Mach es doch einfach so:

Code:

Browser1.Navigate('http://www.google.de/search?q=' + edit1.text);

Bernhard :hi:

[Ultimator]

Also auf einen vorhandenen WebBrowser folgendermaßen anzuwenden, oder?

Delphi-Quellcode:

Webbrowser1.Navigate('http://www.google.de/search?hl=de&ie=UTF-8&oe=UTF-8&q='+Edit2.Text+'+&meta=');

Verstehe ich das richtig?

[edit]Wieder mal zu langsam...[/edit]

[fkerber]

Hi!

Irgendwo stand da mal (ich glaube von Christian Seehase), dass man einen andere User-Agent angeben muss, weil das sonst nicht geht.

Ciao fkerber

[Ultimator]

Nö, bei mir geht alles wunderbar. Ich wills ja nicht in ner Listbox anzeigen lassen, sondern nur den WebBrowser1 hinnavigieren lassen.

[Alexander]

Man kann auch über SOAP mit Google kommunizieren. Also den Google-Webservice nutzen.
Ich denke hier sind einige Beispiele, sonst steht glaube ich auch auf delphi-source etwas über Webservices und SOAP.

[mirage228]

Zitat:

Zitat von fkerber

Hi!

Irgendwo stand da mal (ich glaube von Christian Seehase), dass man einen andere User-Agent angeben muss, weil das sonst nicht geht.

Ciao fkerber

Ich glaube das bezog sich auf die Indy's und nicht auf den TWebBrowser und ich mein' sakura hätte es gesagt *g*

mfG
mirage228

[citybreaker]

Auf http://www.delphi-source.de gibt es glaube ich ein Tutorial darüber
wie man das ganze mit einem Service macht.