Ich denke du suchst sowas hier:
Du brauchst nur nen Twebbrowser und ne Listbox... Allerdings wird die Seite trotzdem erstmal angezeigt...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.webbrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var buffer : string;
run : integer;
begin
try
for run := 0 to form1.webbrowser1.OleObject.Document.links.Length - 1 do
begin
buffer := form1.browser.OleObject.Document.Links.Item(run);
if pos('IRGENDEIN-SUCHTEXT', buffer) <> 0 then listbox1.Items.Add(buffer);
end;
end; |
Die zweite Variante wäre, nach HTML-Parser Komponenten zu suchen - davon gibt es diverse die alle mehr oder weniger brauchbar sind...
Dort mußt du dann die Seite erstmal herunterladen, als HTML-Datei abspeichern und dann mit dem Parser durchforsten. Die meisten geben dir dann TAGS LINKS und TEXTE in getrennten Listen aus.
Die Variante mit dem Webbrowser ist aber definitiv einfacher....
Moderiert von 
Tino: Code- durch Delphi-Tags ersetzt.
FRAMES WEBBROWSER