Links auslesen

bundaberg · Hält's aus hier Beiträge: 4

Hi, kann mir jemand sagen wie ich aus einem Memo, in welches ich den Quellcode einer HTMLdatei eingelesen habe, alle URL auslesen kann (also alles nach dem: href=" und bis zum ")) und dann in eine ListBox übertragen kann? Programmiere mit Delphi 2006
vielen dank schon mal

Moderiert von Narses: Topic aus Windows API verschoben am Mo 14.01.2008 um 18:51

Sebastian R. · Beiträge: 72 Erhaltene Danke: 1

Ich würd mal sagen, das Memo Zeile für Zeile durchlaufen lassen und jede Zeile per pos() nach "href=" absuchen. Wenn das dann in der Zeile vorkommt, einfach mit Copy() den String/Link rauskopieren.

bundaberg · Hält's aus hier Beiträge: 4

ok, stimmt, danke das würde gehen, aber jetzt bin ich zufällig noch auf diese seite gestossen:

www.cryer.co.uk/bria...bject.Document.Links

auf der dieser Quellcode steht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  htmlDoc: IHTMLDocument2;
  allLinks: IHTMLElementCollection;
  firstLink: IHTMLElement;
  url: String;
begin
  htmlDoc := WebBrowser.Document as IHTMLDocument2;
  allLinks := htmlDoc.Links;
  firstLink := allLinks.Item(0,'') as IHTMLElement;
  url := firstLink.toString;

aber bei mir meldet er einen Fehler wenn der die Variablen durchgeht.. Was muss ich noch dazu schreiben?
mfg,
bundaberg

Moderiert von matze: Delphi-Tags hinzugefügt

MrSaint · Verfasst: So 15.10.06 10:32

Diese Lösung häte ich auch vorgeschlagen. Da läßt du den Internet Explorer die Arbeit machen. Hat den Vorteil, dass der u.U. auch was korrigiert, falls was falsch geschrieben ist oder so. Dir fehlt wahrscheinlich noch die unit MSHTML.

MrSaint

_________________
"people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems

bundaberg · Hält's aus hier Beiträge: 4

super, danke! das wars.. da eröffnen sich ja einem ganz neue möglichkeiten :-)

vielen dank für die hilfe,
mfg
bundaberg

zero_cool1986 · Beiträge: 95 MS DOS ;) D6

hmmm finde die Unit nicht...

Lannes · Verfasst: Mo 14.01.08 22:46

Hallo,

da gibt es weitere Infos: www.delphi-forum.de/...amp;highlight=mshtml

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme