100分求 http://mail01.mail.com/templates/common/us/username_frame.htm 页面提交源码 ( 积分:

  • 主题发起人 主题发起人 yong_yu
  • 开始时间 开始时间
Y

yong_yu

Unregistered / Unconfirmed
GUEST, unregistred user!
100分求 http://mail01.mail.com/templates/common/us/username_frame.htm 页面提交源码 ( 积分: 100 )<br />在 http://mail01.mail.com/templates/common/us/username_frame.htm 页面我用

procedure websubmit(WB: TWebBrowser; FieldName: string);
var
I: Integer;
FormNr, ItemNr : integer;
TheForm : Variant;
o : Olevariant;

begin
//判断是否存在form对象
if WB.OleObject.Document.All.Tags('FORM').Length = 0 then
begin
ShowMessage('Error: no FORM found on page');
Exit;
end;
end;
竟然检测不到 form 的存在,请教各位高手,有什么解决办法。。。
 
在 http://mail01.mail.com/templates/common/us/username_frame.htm 页面我用

procedure websubmit(WB: TWebBrowser; FieldName: string);
var
I: Integer;
FormNr, ItemNr : integer;
TheForm : Variant;
o : Olevariant;

begin
//判断是否存在form对象
if WB.OleObject.Document.All.Tags('FORM').Length = 0 then
begin
ShowMessage('Error: no FORM found on page');
Exit;
end;
end;
竟然检测不到 form 的存在,请教各位高手,有什么解决办法。。。
 
哎,都没有人回啊,

自己顶一把!!!!![:(][:(][:(][:(][:(]
 
哎,没人回啊,结了
 
如果用JS,应该这样: document.frames[&quot;main&quot;].document.forms['xxx']....
仅供参考,希望对你有启发.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
758
import
I
I
回复
0
查看
962
import
I
S
回复
0
查看
937
SUNSTONE的Delphi笔记
S
后退
顶部