Ausführen von Google Suchen

[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

[TurboMagic]

Naja, es gibt auch eine HTTP Download Komponente wenn ich mich richtig erinnere.
Der könnte amn so wie dem Webbrowser die URL füttern und bekäme dann den Inhalt
der sonst im Webbrowser angezeigten Ergebnisseite. Halt als HTML...
Das müsste man dann parsen...

Grüße

TurboMagic

[peterbelow]

Hast Du Dir mal im Browser eine Ergebnisseite eine Suche angesehen, als Quelltext? Das ist nichts als ein Wust von Javascript, die Seite wird komplett dynamisch aufgebaut.

[Rolf Frei]

Das was du hier machen willst, kannst du mit ShellExecute nicht machen. Das ist in diesem Fall der falsche Ansatz. Du brauchst da einen HTTP-Client, z.B. den bei Delphi enthaltenen THTTPClient ode TNetHTTPClient. Such mal nach "http client" in der Delphi Hilfe.

Wie peterbelow erwähnt hat, wirst du die HTML-Antwort von Google so praktisch nicht nutzen können, weil da alles zur Runtime im Broswer dynamisch per Javascript nachgeladen wird. Google hat hier einen gut Job geleistet, um genau das was du machen willst, nahezu zu verunmöglichen. Google will schliesslich mit der Werbung auf der Suchseite Geld verdienen und dann wäre das ein NoGo, wenn man das einfach so umgehen/missbrauchen könnte.

[JimmyB]

Hallo allerseits,
mein bisheriger Ansatz die Google Suchen in ein Objekt auszugeben, waren denke ich zu kompliziert und vom Ansatz her nicht brauchbar.
Ich möchte nachdem die Google Suche stattgefunden hat, diese vom Inhalt überprüfen.
Zum Beispiel möchte ich sagen feststellen:
Webseite: diesewebseite.de
enthält: 27 PDF Dokumente

Diese muss ich nicht direkt in einem Objekt in meinem Programm direkt anzeigen.
Der Umweg über die Ausgabe der Google Suche in eine Datei mit anschließender Analyse, was die Suche gefunden hat, meine ich könnte sich einfacher gestalten.

Jetzt kommt es wieder:
Das Ausgeben in eine Datei bekomme ich nicht hin.
Mit >> Pfad\Dateiname, sollte es eigentlich gelingen.
Hier ein Beispiel, welche nicht funktioniert. Ich habe endlos viele Stellen getestet, die gehen alles nicht.
Leider finde ich keine Stelle, wo ich die Umleitung einbauen kann, damit Delphi die auch ausführen kann.

ShellExecute( Handle, 'OPEN', PWideChar( 'https://google.com/search?q=' + TURI.URLEncode( 'site:'+edit1.text+ ' '+ 'filetype:doc' ) ),>> c:\test\tt.txt NIL, NIL, SW_SHOWMAXIMIZED );

Vielleicht fehlt auch wieder nur irgendein Hochkomma.....?

Viele Grüße
JimmyB

[peterbelow]

Zitat von JimmyB:

Ich möchte nachdem die Google Suche stattgefunden hat, diese vom Inhalt überprüfen.
Zum Beispiel möchte ich sagen feststellen:
Webseite: diesewebseite.de
enthält: 27 PDF Dokumente

Diese muss ich nicht direkt in einem Objekt in meinem Programm direkt anzeigen.
Der Umweg über die Ausgabe der Google Suche in eine Datei mit anschließender Analyse, was die Suche gefunden hat, meine ich könnte sich einfacher gestalten.

Jetzt kommt es wieder:
Das Ausgeben in eine Datei bekomme ich nicht hin.
Mit >> Pfad\Dateiname, sollte es eigentlich gelingen.
Hier ein Beispiel, welche nicht funktioniert. Ich habe endlos viele Stellen getestet, die gehen alles nicht.
Leider finde ich keine Stelle, wo ich die Umleitung einbauen kann, damit Delphi die auch ausführen kann.

ShellExecute( Handle, 'OPEN', PWideChar( 'https://google.com/search?q=' + TURI.URLEncode( 'site:'+edit1.text+ ' '+ 'filetype:doc' ) ),>> c:\test\tt.txt NIL, NIL, SW_SHOWMAXIMIZED );

Vielleicht fehlt auch wieder nur irgendein Hochkomma.....?

Viele Grüße
JimmyB

Wieso glaubst Du das könnte funktionieren? Zum einen ist redirection eine Funktion des Kommand-Prozessors (cmd.exe), nicht von ShellExecute. Zum anderen kann man nur etwas redirecten, was das gestartete Programm auf stdout ausgibt. Das tut der Browser aber nicht, und den startet ShellExecute um deinen https request auszuführen.

Man kann zwar die erste Ergebnisseite im Browser selektieren (Strg-A), ins Clipboard kopieren (Strg-C) und von dort extrahieren (sText := Clipboard.AsText; ), aber das gibt wirklich plain text, kein HTML, d.h. auch keine Möglichkeit, Links zu identifizieren und zu verfolgen.

[JimmyB]

Hallo,

so hatte ich es fast schon vermutet. Schade und Danke für die Rückmeldung.

Viele Grüße
JimmyB