Aulesen aller Links aus einer Internetseite

[felro]

Ich möchte gerne alle Links aus einer Internetseite auslesen und dann einzeln auflisten lassen in editboxen hat wer ne Idee???
CU felro

[horst]

z.b. http://www.swissdelphicenter.ch/de/showcode.php?id=479

[felro]

Dass klingt ja schonmal ganz gut aber muss ich die Seite erst öffnen oder geht dass auch anders?
Und wenn ich dass Einfüge sagt Delphi immer

[Error] Unit1.pas(31): Undeclared identifier: 'Webbrowser1'
[Error] Unit1.pas(31): 'DO' expected but identifier 'OleObject' found

Was mache ich falsch?

CU felro

[NewWave]

hi,

du könntest auch die datei öffen und dann sie nach "<a herf="..."> durchsuchen und auswerten aber das es wohl eher viel arbeit.

zu der fehlermeldung

Zitat:

Code:

[Error] Unit1.pas(31): Undeclared identifier: 'Webbrowser1'

ich nehme mal an, deine komponente hat einen anderen Namen im Objektin. daher.
wenn der fehler behoben ist müste auch der ander weg gehen

mfg Wave

[ixtreme]

wenn du es schwer haben willst nimm die idhttp kompo von indy...


hol dir die datei die du durchsuchen willst und parse die links:


ungefähr so:

Code:

copy(uppercase(memo1.text),pos('<a href='),memo1.text), .... u.s.w.

Gruß

ixtreme.de

[devnull]

Muss man da noch eine UNIT einbinden ?

[ixtreme]

wobei?

[MathiasSimmack]

Zitat von felro:

Und wenn ich dass Einfüge sagt Delphi immer

[Error] Unit1.pas(31): Undeclared identifier: 'Webbrowser1'
[Error] Unit1.pas(31): 'DO' expected but identifier 'OleObject' found

Was mache ich falsch?

Hast du einen TWebBrowser namens "Webbrowser1" auf deiner Form?

@ixtreme: Es ist aber auch möglich, HTML sei Dank, einen Link so

Code:

<a
  href="blabla">Hallo
</a>

darzustellen. Da steckt ein Zeilenumbruch dazwischen, und daher dürfte "pos" wenig Erfolg haben. Der direkte Zugriff auf das HTML-Dokument (mit dem DOM-Zugriff auf XML vergleichbar) ist daher IMHO vorzuziehen.

[Remote1]

wenn du dein dokument im twebbrowser geladen hast, dann einfach

twebrowser1.oledokument.dokument.link[i]

weis es jetzt nicht mehr so genau, da müst ich erst nachschauen, aber irgend so war das