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 的存在,请教各位高手,有什么解决办法。。。
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 的存在,请教各位高手,有什么解决办法。。。