Ausführen von Google Suchen

[JimmyB]

Hallo allerseits,
ich möchte dazu Google Suchen aus einem Delphi Programm starten.
Ich finde leider den Einstieg nicht, wie ich das umsetzen kann.
Für Tipps bin ich sehr dankbar.
Viele Grüße
JB

[juergen]

Du kannst das mit ShellExecute() aufrufen. In etwa so (Beispiel nutzt den Übersetzer):

ShellExecute( Handle, 'OPEN', PWideChar( 'https://translate.google.com/#auto/de/' + TURI.URLEncode( <dein Suchbegriff> ) ), NIL, NIL, SW_SHOWMAXIMIZED );

Edit: Für TURI.URLEncode musst du unter uses System.Net.URLClient hinzufügen.

[JimmyB]

Hallo Jürgen,
besten Dank für die Rückmeldung. Ich habe mit der Befehlszeile, die Du mir geliefert hast, rumprobiert und funktioniert wirklich gut.

Was ich aber suche, ist die Möglichkeit eine Suche aus Delphi zu machen, die mir z.B. die Parameter:
filetype:"bestimmter Dateityp"
intitle:"bestimmter Text"
inurl:"bestimmter Text"
und so weiter.

Ich habe in Deiner Befehlszeile
ShellExecute( Handle, 'OPEN', PWideChar( 'https://translate.google.com/#auto/de/' + TURI.URLEncode('hallo') ), NIL, NIL, SW_SHOWMAXIMIZED );

anstelle von "'https://translate.google.com/#auto/de/" eine Suchkommando "google.com/search" eingetragen:

ShellExecute( Handle, 'OPEN', PWideChar( 'google.com/search' + TURI.URLEncode( 'Suchbegriff' ) ), NIL, NIL, SW_SHOWMAXIMIZED );

Leider funktioniert das überhaupt nicht. Der Browser wird nichtmal mehr aufgerufen.

Beste Grüße
JimmyB

[juergen]

Versuch mal ein https:// am Anfang anzufügen.

[JimmyB]

Hallo Jürgen,

das war gut, der Browser startet jetzt
Jetzt müsste er noch suchen und damit ein Ergebnis produzieren.

ShellExecute( Handle, 'OPEN', PWideChar( 'https://google.com/search' + TURI.URLEncode( 'USA' ) ), NIL, NIL, SW_SHOWMAXIMIZED );
ShellExecute( Handle, 'OPEN', PWideChar( 'https://google.com/search' + TURI.URLEncode( 'intitle:USA' ) ), NIL, NIL, SW_SHOWMAXIMIZED );
Die Google Suche sagt dann: 404. That’s an error.
The requested URL /searchintitle%3AUSA was not found on this server. That’s all we know.

Ich denke ich bin nah dran, kriege aber keine Kombination hin, die funktioniert.

vg JimmyB

[TurboMagic]

Vielleicht ist das, was du als URL übergibst ja syntaktisch falsch?

Gebe ich USA als SUchbegriff in Google ein, wird eine URL aufgerufen die so startet:
https://www.google.de/search?q=USA
(der Rest dürfte egal sein)

Siehst du den Unterschied zu deiner URL?
search?q=USA

Grüße
TurboMagic

[JimmyB]

Hallo,

das hat geholfen:
ShellExecute( Handle, 'OPEN', PWideChar( 'https://google.com/search?q=' + TURI.URLEncode( 'USA' ) ), NIL, NIL, SW_SHOWMAXIMIZED );

Jetzt wird der Browser aufgerufen
Die Google Suche produziert Ergebnisse, in diesem Fall zum Begriff USA.

Klasse und vielen Dank. Jetzt komme ich weiter!

Viele Grüße
JimmyB

[JimmyB]

Nochmal Danke für die klasse Infos, die sehr gut geholfen haben.

Ich habe versucht die Ergebnisse aus den Suchen, in einem Objekt (nur jeweils die Überschriften) darzustellen.
Bisher habe ich noch kein Objekt gefunden, was die Daten anzeigen könnte.
Wäre die Umsetzung überhaupt möglich?
Viele Grüße
JimmyB

[juergen]

Zum Anzeigen wäre ein TWebBrowser geeignet. => Verwendung TWebBrowser

Wenn du die Informationen aus der Webseite (Suchergebisse) extrahieren willst, kannst du z.B. die HTML-Seite in eine TStringList laden und dort anhand deiner Merkmale alles raussuchen und die Ergebnisse in ein TMemo speichern.

[JimmyB]

Hallo Jürgen,

diese Objekte hatte ich schon ausprobiert, aber da saß der Fehler doch vor der Tastatur.
Was ich vorhabe ist Teile aus den Suchen zu extrahieren. Von daher wäre der Weg über TStringList zu gehen der richtige.

Ich gucke es mir an und danke für die Richtungsweisung!


Viele Grüße
JimmyB