一贴就又完了,浪费了300分 接:“提了三次了!!!什么XXXX”“网页内容???”(50分)

  • 主题发起人 主题发起人 allen72
  • 开始时间 开始时间
A

allen72

Unregistered / Unconfirmed
GUEST, unregistred user!

网页看源码,
memo1.lines.add(ihtmldocument2(webbrowser1.document).body.outerhtml
但我用 NetCaptor6.01 (一个网上下载的浏览器)看网页时,用view中的sourcer看到
下面的内容,是什么???
怎样才能在自己的游览器中实现看下面源码的功能???
××××××××××××××××××××××
unreal的方法
Memo1.Text := WebBrowser1.OleObject.document.documentelement.innerhtml;
也不行

×××××××××××××××××××××××××××



用unreal的方法读出来的文本还是和Netcaptor的view中的source中的不同!!
你们要去看看如下网页:
https://secure.clickdough.com/servlets/cr/CRSignup.po
我用其它一些浏览器也能看到象程序代码一样的源文件,它们中有var,function
...等





.....
// (Rightclick:) This section disables right click in MSIE and Netscape
// function right(evnt) {
// if (navigator.appName.toUpperCase().match(/NETSCAPE/) != null) {
// if (evnt.which >= 2){
// alert("Thank you for using "+OEMName);
// return false;
// }
// } else {
// if (event.button >= 2) {
// alert("Thank you for using "+OEMName);
// return false
 
不会浪费分数的,等一会儿我给你修复一下,把分数还给你。
 
你这家伙发了一堆帖子都有 < ,这是HTML的语法,换成《 就没事了。
还有你去年的那些帖子,如果你还要继续讨论请定期提前你的帖子,如果不想继续讨论请结束帖子。
 
你说的那页的Script是被注释掉的,用那种办法当然不行,
Memo1.Text := WebBrowser1.OleObject.document.documentelement.innerhtml;
是得到“起作用”的Html语句

你不就是要查看源代码么,简单,如下。
大概要 uses Mshtml, ActiveX;

procedure InvokeCMD(pDisp: IDispatch; InvokeIE: Boolean; Value1, Value2: Integer; var vaIn, vaOut: OleVariant);
var
CmdTarget: IOleCommandTarget;
PtrGUID: PGUID;
const
CLSID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
begin
New(PtrGUID);
if InvokeIE then PtrGUID^ := CLSID_WebBrowser else
PtrGuid := PGUID(nil);
if pDisp <> nil then
try
if Succeeded(pDisp.QueryInterface(IOleCommandTarget, CmdTarget)) and
(CmdTarget <> nil) then
try
CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
except end;
finally
Dispose(PtrGUID);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
InvokeCmd(WebBrowser1.Document, TRUE, 2, 0, EmptyParam, EmptyParam);
end;
 
unreal: 你的方法好用的!!!!!!!谢谢。。
不过我在我的form1中另放了一个memo1,可通过一个button 随时看源码,又要怎么做?
我现在只能copy你的东西,不明白道理,可略讲一下吗??我在学习delphi,真不明白
你们怎么学的,我找了很多书都#@#!@??

wjiachun:
谢谢,我马上结束过去的贴!!
 
那就是这一句了,
Memo1.Text := WebBrowser1.OleObject.document.documentelement.innerhtml;
至于得到带注释的源文件我也不大清楚,
我试过很多种方法都不行,不过有必要非得得到被注释的部分么?
 
接受答案了.
 
后退
顶部