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