Suchmaschinen Abfrage in Delphi einbinden!

[DaddyRe]

Hey,

Ich habe schon die Suche benutzt aber ncihts passendes gefunde.

Ich wollte eine Scuhmaschine in mein Delphi Projekt einbinden, sodass dann die ergebnisse in einer memo box ausgegeben werden.
Was für Komponenten bzw. Befehle brauche ich für so ein kleines Programm?

Danke für eure Hilfe

Lg DaddyRe

[marabu]

Hallo Daniel,

die Kommunikation mit einer Suchmaschine erfolgt über das HTTP Protokoll. Du übermittelst einen URL und erhältst als Antwort ein HTML-Dokument. Wenn du das Ergebnis unverändert anzeigen möchtest, dann solltest du die Komponente TWebBrowser verwenden, welche du in D7PE zuerst noch importieren musst.

Willst du das Ergebnis nicht als HTML-Dokument darstellen, dann könntest du den Indy HTTP-Client verwenden um das Dokument abzuholen. Anschließend kannst du das HTML-Dokument analysieren und umformen.

Grüße vom marabu

[Bernhard Geyer]

Für Google gibt's auch 'ne API auf SOAP-Basis. Jedoch wirst Du mit der Personal-Version hier nicht sehr weit kommen.

[DaddyRe]

Habe jetzt die Delphi Enterprise Edition ...

Danke für eure Antworten!

Ich brauhce dies jedoch nciht für google sondern für eine Andere seite...
Soweit funktionirt auch alles nur den Quelltext auslesen und genau diese zeilen filtern will noch nicht sorecht.

@ marabu
ich kenne mich mit indi-clients nciht wirklich aus.

Lg DaddyRe

[marabu]

Du hast also das Suchergebnis bereits vom Server geholt? In welchem Format liegt es vor?

marabu

[DaddyRe]

nein hab ich noch nicht gemacht.

...wenns hilft hier die seite

http://pubftp.com/8.php3?q=test

Lg DaddyRe

[marabu]

Hallo Daniel,

im Anhang findest du ein wenig Code zum studieren. Er zeigt dir wie du mit dem Indy HTTP-Client die Seite herunter lädst (UrlDownload), wie du das empfangene HTML-Dokument durch den MS HTML-Parser in ein HTML DOM Objekt verwandeln kannst (LoadDocument), wie du außerhalb jeder Form die Windows Nachrichtenschleife in Gang halten kannst (ProcessMessages) und natürlich wie du das HTML DOM-Dokument nach Hyperlinks durchsuchen kannst.

Grüße vom marabu

[sakura]

Zitat:

Zitat von DaddyRe

Habe jetzt die Delphi Enterprise Edition ...

Und sollte die nicht legal sein, dann solltest Du die auch wieder löschen.

mfg,
...:cat:...

[DaddyRe]

Die ist legal die habe ich mir vor ein paar wochen gekauft!
(Von einem Freund...falls es dihc interessiert woher!)
Deine Antwort hat mit weiner frage eher weniger zu tun!

...
Danke @marabu

*kopfschüttel*

Lg DaddyRe

[DaddyRe]

Cool danke Marabu der code ist wirklich hilfreich.

der code funktioniert auhc mit allen anderen suchmacschinen das ist mal wirklich cool danke!!#

Da kann man doch gleich einmal ein bisschen Eindruck schinden beim Informatiklehrer. :-D

DANKE!

Lg DaddyRe

[DaddyRe]

was ist an dem code denn falsch?

Delphi-Quellcode:

begin
  search := Format(fmtSearch, [edit1.text + xformat + endung + seite]);

Mir wird kein ergebnis ausgegeben :-( was ist da falsch

Mfg DaddyRe

[Hepdepaddel]

Zitat:

Zitat von DaddyRe

*kopfschüttel*

... naja, wir konnten uns mit 16 keine 1500 EUR-SW zum beeindrucken des Informatiklehrers leisten (selbst heute habe ich nur zwei Entwickler mit Enterprise ausgerüstet) ... ist der bloße Neid :wink:

Aber wenn Du das Proggie nicht nur in der Schule nutzen willst, solltest Du Dir unbedingt auch nochmal die Lizenzbedingungen von Google ansehen!

Gruß

Mark

[marabu]

Zitat:

Zitat von DaddyRe

Mir wird kein ergebnis ausgegeben :-( was ist da falsch

Bist du sicher, dass es an der gezeigten Code-Zeile liegt? Ich kann von hier nur schlecht in deine Variablen schauen. Eventuell überprüfst du mal die Inhalte und den erzeugten String.

marabu

[DaddyRe]

Achso, nein ich meinete das mit dem beeindrucken nur wegen dem code. Nicht wegen der enterprise edition.
..kostet ja inzwishcne au weniger.

Naja is ja auch egal äähm aufjedenfall hab cih meinen code nocheinmal durchsucht und nichtsgefunden, wenn cih immernoch nichts gefunden hab mld ich mcih nocheinmal!

Danke

[DaddyRe]

soweit funktioniert jetzt alles.

WIe kann ich denn satt so einer Listbox ein Memo nehmen, in dem die einträge auch sortiert sind?

Lg DaddyRe