Googlesuche

[Uncle Cracker]

Wie kann man eigentlich eine Googlesuche programmieren.

Damit meine ich, dass man zum Beispiel in ein Editfeld, ein oder mehrer Suchwörter eingibt und dann sich automatisch der Internetexplorer öffnet und die Suchergebnisse anzeigt.

Ist das auch mit anderen Suchseiten möglich?

[Mirilin]

*kramt nach link*

*kramt*

*findet*

Klick

Gruss Mirilin


oder andere Idee: 'http://www.google.ch/search?q=test+suche&ie=ISO-8859-1&hl=de&btnG=Google+Suche' könntest ja den URL selber zusammen basteln...

[Uncle Cracker]

@Mirilin Danke ging sehr schnell

Aber weiß jemand ob das auch für andere Suchmaschinen geht (Lycos, Altavista, Yahoo)?

[Mirilin]

@Uncle Cracker

AltaVista : "http://de.altavista.com/web/results?q=testsuche&kgs=1&kls=1&avkw=xytx"
Yahoo : "http://de.rd.yahoo.com/hps/*http://de.search.yahoo.com/search/de?p=testsuche&y=y"

Sollte doch gehen, hier mit dem Stichwort TestSuche, kannst ja eben mal schauen, wie dass so damit geht (den URL selber zusammenzubasteln), oder schauen, ob es bei diesen Suchmaschinen auch so etwas gibt wie bei Google.

[Alexander]

du musst dir eigentlich nur die URL ankucken, wenn du allerdings pech hast, werden die Daten nicht per URL übertragen, ist aber meistens so.

[Uncle Cracker]

Danke, aber wie kann ich das am besten in einem Editfeld machen, also Stichworte eingeben und dann automatisch auf die Seite gelangen?

[Alexander]

Wo ist das Problem?

Delphi-Quellcode:

Uses ShellAPI; 
//Einfach Browser auf Seite öfnnen:
ShellExecute(0, 'open', 'http://www.google.de/search?q='+edit1.Text+'&ie=UTF-8&oe=UTF-8&hl=de&meta=' , nil, nil, SW_SHOW);

so sollte es gehen.

[Uncle Cracker]

Und das geht eben bei mir nicht. es kommt immer die Meldung:
Inkompatible Typen: 'String' und 'PChar'

Kann das daran liegen, das ich noch Delphi 4 Standard nutzte, da gab es ja mal ein Problem mit dem laden der Seite in TWebBrowser.

[Alexander]

mhm ok. dann wandle es mal mit PChar() in ein PChar um

[Mirilin]

zum Problem mit TWebBrowser in D4 :

Delphi-Quellcode:

var NullVar: OleVariant;
NullVar := Null;
Navigate(URL, NullVar, NullVar, NullVar, NullVar);

(So hat mir AHuser aus www.delphi-groups.de geholfen)

PChar()...