求助:webrowser控件的几个问题(200分)

  • 主题发起人 主题发起人 qdlover
  • 开始时间 开始时间
Q

qdlover

Unregistered / Unconfirmed
GUEST, unregistred user!
问题1:radio框怎么选中?

我用
radioname:=(doc.all.item(radioname,0) as ihtmlinputelement);
radioname.checked:=true;
选不到radio控件

问题2:怎么进行提交form
问题3:怎么修改form 的action

问题4:怎么才能让webbrowser打开了网页以后才运行下面的网页内容控制程序

谢谢大家
 
我是来学习的。
 
不明白你是想做什麼的.....delphi的webbrooser主要用來顯示, 你不要把他當form或 dbgrid用啊..一來控制難, 2來效率也不高...你如果真要這樣做就要用java了...
 
问题2,4搞定

radio始终不行
text定义成ihtmlinputelement
select定义成IHTMLSelectElement

提交可以用
form:=(doc.forms.item('searchform',0) as IHTMLFormElement);

怎么修改form的target不知道
怎么选中一个radio不知道

做什么用?在写刷票程序那
哈哈哈哈

赶快帮忙啊,我就差这两个问题就搞定了
 
搞定了

q1049:=(doc.all.item('q1049',57) as ihtmlinputelement);
 
我要删除阿

 
楼主,能不能解释一下你这句代码
q1049:=(doc.all.item('q1049',57) as ihtmlinputelement);
 
uses mshtml;

var
HtmlDoc:IHTMLDocument2;
myitem:Olevariant;
i:integer;
begin
myitem := WebBrowser1.Document;
for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'INPUT' then
begin
if Uppercase(myitem.all.item(i).type)='RADIO' then
begin
if myitem.all.item(i).value='这是RADIO的值' then myitem.all.item(i).checked:=true;
end;
end;
end;
end;
 
不就是提交数据么?
直接用IDHTTP 带参数GET ,如果服务器有限制的话就POST,
VERY EASY!
get:
idhttp.get('http://www.xxx.com/xuanpiao.asp?shenfenzhen=123456789012345&xinming=张三&selected=1');
Post:
try
paralist:=TstringList.create;
paralist.add('shenfenzhen=123456789012345');
paralist.add('xingming=张三');
paralist.add('selected=1');
idhttp.post('http://www.xxx.com/xuanpiao.asp",paralist);
finally
freeandnil(paralist);
end;
 
后退
顶部