Googlesuche

[Uncle Cracker]

Danke, habe es so hingekriegt das die Googlesuche es funktioniert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, Nil, PChar('http://www.google.de/search?q='+edit1.Text+'&ie=UTF-8&oe=UTF-8&hl=de&meta='), Pchar(''), Pchar(''), SW_NORMAL);
End;

[Alexander]

nichts zu danken

[Uncle Cracker]

Zitat:

Zitat von 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()...

Geht noch einfacher bzw. schneller zu lösen

Delphi-Quellcode:

var i, q, r, s: OLEVariant;
WebBrowser1.Navigate(URL, i, q, r, s);

[Uncle Cracker]

Mich beschäftigt die Googlesuche immer noch extrem, denn wie geht das nun wenn man mehrere Stichwörter hat. Google verbindet die
verschiedenen Stichwörter mit einem Plus (+), doch wie mach ich das mit dem Editfeld?

Außerdem habe ich eine kleine Zusammenstellung für den PChar Bereich gemacht mit einigen Sucheingaben:

Delphi-Quellcode:

Google.de: 'http://www.google.de/search?hl=de&ie=UTF8&oe=UTF8&q='+edit1.text+'&btnG=Google-Suche&meta='

Lycos.de: 'http://suche.lycos.de/cgi-bin/pursuit?matchmode=and&mtemp=main&etemp=error&query='+edit1.text+'&cat=de_spkr'

Altavista.de: 'http://de.altavista.com/q?pg=q&q='+edit1.text+'&kl=XX&what=de'

Yahoo.de: 'http://de.search.yahoo.com/search/de?p='+edit1.text

Web.de: 'http://suche.web.de/search/?&ref=hp&su='+edit1.text+'&smode=all'

Fireball.de. 'http://suche.fireball.de/fcgi/query1.fcg?action=query&pg=express&q='+edit1.text+'&what=german_web'

Ebay.de: 'http://search.ebay.de/search/search.dll?MfcISAPICommand=GetResult&ht=1&shortcut=4&SortProperty=MetaEndSort&maxRecordsPerPage=50&st=2&ebaytag1code=77&query='+edit1.text

Amazon.de: 'http://www.amazon.de/exec/obidos/external-search?index=blended&keyword='+edit1.text+'&tag=ricochetfansi-21&tag-id=ricochetfansi-21'

Download.com: 'http://download.com.com/3120-20-0.html?qt='+edit1.text

Checkdomain.com: 'http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain='+edit1.text

Verfassungsschutz: 'http://www.verfassungsschutz.de/cgi-bin/htsearch?config=&restrict=&exclude=&method=and&format=builtin-long&sort=score&words='+edit1.text

Duesseldorf.de: 'http://search.duesseldorf.de:8765/query.html?col=ddfall&ht=0&qp=&qt='+edit1.text+'&qs=&qc=&pw=100%25&ws=1&qm=0&st=1&nh=10&lk=1&rf=0&rq=0&si=0'

MP3.com: 'http://search.mp3.com/bin/search?query='+edit1.text

Alle Links funktionieren einwandfrei. Vielleicht findet jemand noch ein paar Links. Kann sie ja schreiben oder mir zukommen lassen.
Aus dieser Zusammenstellung könnte man eigentlich ein schönes Programm schreiben.

[Daniel B]

Hallo,

Delphi-Quellcode:

'http://www.google.de/search?hl=de&ie=UTF8&oe=UTF8&q=' + (Edit1.Text + '+' + Edit2.Text + '+' + Edit3.Text) + '&btnG=Google-Suche&meta='

Soweit OK?

Grüsse, Daniel :hi:

[Uncle Cracker]

Ich meinte aber alle Stichworte in einem Editfeld und dann soll automatisch Plus eingesetzt werden.

Wie geht das?

[Alexander]

dann musst du halt mit POS die entsprechenden Positionen des Leerzeichens im TExt des Edits finden, diese dann mit Copy rauskopieren und weiter mit POS suchen. Am besten dann natürlich in eine Schleife

[Uncle Cracker]

:wiejetzt: Kannst du mir das vielleicht anhand eines Codes kurz demonstrieren?

[Stanlay Hanks]

Hallo Uncle Cracker! Also auf torry.net gibts ne Komponente, die heißt Google API oder so. Gib einfach mal "Google" ein. Da gibts nur eine Komponente.

Man liest sich, Stanlay 8)

[Uncle Cracker]

Danke Stanlay Hanks, aber ich nutzte noch D4