收录日期:2019/06/20 13:40:30 时间:2016/06/01 15:44:07 标签:网络通信/分布式开发
HTML代码如下
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>

<body>
<form name="form1" method="post" action="listcon.asp" class="aa1" >
  <input class=etext maxlength=50 name=warename size="50">
  <select name=Group1 size=1 class="aa1">
                  <option>请选择</option>
                  <option value="真">true</option>
                  <option value="假" selected>false</option>
                </select>
  <textarea name="pro_add" cols="50"></textarea>
  <input type="text" name="unitname" size="50">
  <input name=B1 type=submit value=确定>
</form>
</body>
</html>

里面有2个input,1个select,1个textarea,1个确定按钮。

我想当用光标点选5个中的任何1个时,能把变量或值提取出来,并且当点“确定”按钮提交时,能把提交请取提取出来。

有没有办法解决,谢谢!
放了一天了,都没有人看过,自己顶一下。
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean; 
var 
  i, j: Integer; 
  FormItem: Variant; 
begin 
  Result := False; 
  //no form on document 
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then 
  begin 
    Exit; 
  end; 
  //count forms on document 
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do 
  begin 
    FormItem := WebBrowser.OleObject.Document.forms.Item(I); 
    for j := 0 to FormItem.Length - 1 do 
    begin 
      try 
        //when the fieldname is found, try to fill out 
        if FormItem.Item(j).Name = FieldName then 
        begin 
          FormItem.Item(j).Value := Value; //這裹可取得或設置value的值
          Result := True; 
        end; 
      except 
        Exit; 
      end; 
    end; 
  end; 
end; 

喜欢上一个妞,求指教阿 Qwt画图,放大 tomcat能使用在并发量超过5000的商用系统中么? Perl与EmEditor在执行顺序上的配置问题请教 无表查询只能得到结构无法得到数据的问题 请教VPN配置方案 程序发布网站后,有一功能失效了。怎么回事 请问怎么获取网址 perl急求代码 请问这怎么输出啊。。。 困啊.. 这个叫什么图? 合并订单 利用excel的API生成图表 默认导航项如何取消 用 webBrowser 获取页面信息的问题 嵌入式设备上qt切换界面无法保证每次都能刷新出图片 tomcat无法启动! ListView空间如可处理异常 C# SqlParameter问题 新人报道--看看大家都喜欢什么体育运动 笑话一则。。。。 午休时间,提提神 2013-04-15 请教关于类数据成员初始化的问题 C++中析构函数出错,Damage:after normal block,找了好久,没有溢出啊。 【NBA】火箭 vs 湖人 押宝... 一个快递的悲催旅程 为什么添加的WCF为空 日历控件不随着滚轮跑 jquery ajax 读取xml,如何修改里面的值,求大神解决。在线等啊