如何使用TWebBrowser浏览网页时替换网页中显示文字?(200分)

S

sds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-15

• #1

如何使用TWebBrowser浏览网页时替换网页中的文字?
如原网页中有"microsoft"的字,在使用TWebBrowser浏览时全部显示"微软".
请哪位能解答,谢谢!

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-15

• #2

一种是下载完以后用DOM替换

一种是用app在下载的同时就替换
http://www.euromind.com/iedelphi/app.htm

 

S

sds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-15

• #3

DOM是说明,请详细说明,谢谢!

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #4

http://tech.163.com/05/1128/11/23L3EPED0009159M.html

 

B

benhacker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #5

跟你说一下思路,先用idhttp将网页的代码get出来,然后再做替换.最后将替换好的代码再写回TWebBrowser控件.以前我做过这样的程序...速度比直接用TWebBrowser来get还快.

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #6

这个不难！三个步骤，代码示意如下：

var doc:Olevariant ;
s:string
begin
//1、得到原始内容：
doc:=Document;
Glb_s:=doc.documentElement.outerHTML;
//2、替换
...
//3、写回
doc.documentElement.outerHTML:=s;
//outerHTML只读吗？或者
doc.clear;
doc.write(s);
doc.close;
//相对地址变了吗？可以在s的头部先加上'<base href="...">'

end；
试试行不行。