Webbrowser Queltext auslesen

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

Hi, ich habe folgendes Problem , ich bin dabei eine Online ANzeige zu Programmieren, sprich einfach nur ein Webbrowser, der die Datei aufruft , nun gibt es da aber ein problem, es gibt auf der seite keine weristonline.php oder sowas , das hängt irgendwie mit allen Seiten zusammen, jetzt hab ich gehört , das ich per Dom nur eine bestimmte stelle im Quelltext anzeigen lassen kann, wie mache ich das das ich nur eine stelle <table>inhalt </table> Anzeige?

Würde mich über Hilfe freuen MFG

Lannes · Verfasst: Di 08.01.08 00:05

Hallo,

für den ersten Ansatz ein einfaches Beispiel zum Ausbauen,
jeweils zwei Button und WebBrowser auf die Form:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var f : OleVariant;
begin
  WebBrowser1.Navigate('http://de.selfhtml.org/html/tabellen/anzeige/table_tr_th_td.htm',f,f,f,f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var sTable : String;
    f : OleVariant;
begin
  sTable := WebBrowser1.OleObject.Document.all.Tags('Table').Item(0).OuterHtml;
  WebBrowser2.Navigate('about:'+sTable,f,f,f,f);
end;

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme