发帖之前看过相关帖子，但情况比较特殊，仍然不能解决，请达人指教，先谢谢了。 我想用WebBrowser向该表单填入数据并提交，以下html源代码中<>用{}表示 {form action="messanger.asp?action=send" method=post name=Dvform "Dvbbs_CopyData('message');"} ............. {input type=text name="touser" value="" size=50} ............. {input type=text name="title" size=70 maxlength=80 value="" } ............. {INPUT TYPE="hidden" id="message" name="message" value=""} {iframe class="Dvbbs_Reply" ID="Dvbbs_Composition" MARGINHEIGHT="5" MARGINWIDTH="5" width="100%" height="100%" }{/iframe} ............. {INPUT TYPE="hidden" NAME="sms_act" value="" } {input type=Submit value="发送" name=Submit "this.form.sms_act.value='Sms_Issend'"} {input type=Submit value="保存" name=Submit "this.form.sms_act.value='Sms_Issave'"} var Doc,WForm:OleVariant; begin Doc:=WebBrowser1.OleObject.Document; WForm:=Doc.Forms.Item('Dvform'); WForm.Item('touser',0).value:='username'; WForm.Item('title',0).value:='my_title'; 但该Form在Submit时调用Dvbbs_CopyData()函数将iframe中的内容复制到message item中 Message 和 sms_act 均为hidden类型,且有两个submit item,请问该如何编写程式？ 發表人 - gray110 於 2004/10/09 23:28:49

没有人懂吗？ 自己顶一下

Message 和 sms_act為hidden類型，跟一般非hidden的欄位填值方法一致沒差別。 而要找到Submit按鈕，你可以用下方FindInputByValue函數來找到該按鈕，再執行 它的click即可。    

var
  Doc,WForm:OleVariant;
  oInput: HTMLInputElement;
begin
  Doc:=WebBrowser1.OleObject.Document;
  WForm:=Doc.Forms.Item('Dvform');
  WForm.Item('touser',0).value:='username';
  WForm.Item('title',0).value:='my_title';
  WForm.Item('Message',0).value:='Message';
  WForm.Item('sms_act',0).value:='sms_act';
  oInput:= FindInputByValue('Submit','保存');
  oInput.click;

==========================================

function FindInputByValue(sType: String; sValue: WideString): HTMLInputElement;
//尋找指定Value的Input
var
  oInput: HTMLInputElement;
  oItem: OleVariant;
  N1: Integer;
begin
  Result:= nil;
  for N1:= 0 to Self.All.length-1 do
  begin
    oItem:= Self.All.item(N1,0);
    if SameText(oItem.tagName,'INPUT') then
    begin
      oInput:= Self.All.item(N1,0) as HTMLInputElement;
      if SameText(oInput.type_,sType) and SameText(oInput.value,sValue) then
      begin
        Result:= oInput;
        exit;
      end;
    end;
  end;
end; 

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.