Скачать: CL | DM;

Как из TWebBrowser получить содержимое загруженного html   Найти похожие ветки 

← →
SkyWalker ©   (2003-07-10 15:54) [0]

см. сабж

---

← →
Palladin ©   (2003-07-10 15:59) [1]

см. форум

---

← →
eK   (2003-07-14 22:40) [2]

Так может быть?

Процедура:

Doc: IHTMLDocument2;
ElementCollection: IHTMLElementCollection;
HtmlElement: IHTMLElement;
I: Integer;
AnchorString: string;
begin
lstbxLinks.Clear;
// We will process the document at this time. Trying to do
// so earlier won"t work because it hasn"t fully loaded.
Doc := FInternetExplorer.Document as IHTMLDocument2;
if Doc = nil then
raise Exception.Create("Couldn""t convert the " +
"FInternetExplorer.Document to an IHTMLDocument2");
// First, grab all the elements on the web page
ElementCollection := Doc.all;
for I := 0 to ElementCollection.length - 1 do
begin
// Get the current element
HtmlElement := ElementCollection.item(I, "") as IHTMLElement;
// Next, check to see if it is a link (tagName will be A).
// You could easily find other tags (such as TABLE, FONT, etc.)
if HTMLElement.tagName = "A" then
begin
// Now grab the innerText for this particular link. The innerText is
// all text that is inside of the particular tag. For example,
// this would give us "Go To Borland" from the HTML:
// <a href=" http://www.borland.com"> Go To Borland</a>.
// If you want " Go To Borland" use innerHTML.
AnchorString := HtmlElement.innerText;
if AnchorString = "" then
AnchorString := "(Empty Name)";
// We know that the element is an IHTMLAnchorElement since the tagName
// is "A".
AnchorString := AnchorString + " - " +
(HtmlElement as IHTMLAnchorElement).href;
( AnchorString) Так может быть?

Процедура:

Doc: IHTMLDocument2;
ElementCollection: IHTMLElementCollection;
HtmlElement: IHTMLElement;
I: Integer;
AnchorString: string;
begin
lstbxLinks.Clear;
// We will process the document at this time. Trying to do
// so earlier won"t work because it hasn"t fully loaded.
Doc := FInternetExplorer.Document as IHTMLDocument2;
if Doc = nil then
raise Exception.Create("Couldn""t convert the " +
"FInternetExplorer.Document to an IHTMLDocument2");
// First, grab all the elements on the web page
ElementCollection := Doc.all;
for I := 0 to ElementCollection.length - 1 do
begin
// Get the current element
HtmlElement := ElementCollection.item(I, "") as IHTMLElement;
// Next, check to see if it is a link (tagName will be A).
// You could easily find other tags (such as TABLE, FONT, etc.)
if HTMLElement.tagName = "A" then
begin
// Now grab the innerText for this particular link. The innerText is
// all text that is inside of the particular tag. For example,
// this would give us "Go To Borland" from the HTML:
// <a href=" http://www.borland.com"> Go To Borland</a>.
// If you want " Go To Borland" use innerHTML.
AnchorString := HtmlElement.innerText;
if AnchorString = "" then
AnchorString := "(Empty Name)";
// We know that the element is an IHTMLAnchorElement since the tagName
// is "A".
AnchorString := AnchorString + " - " +
(HtmlElement as IHTMLAnchorElement).href;
lstbxLinks.Items.Add(AnchorString);
end;
end;

И еще - надо импортировать бибилотеку Project>Import...>Microsoft HTML <что-то там> 4.0

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c