delphi中webbrowser，如何给动网的文本域填内容？？在线等

<iframe class="Dvbbs_Reply" id="Dvbbs_Composition" marginheight="5" marginwidth="5" width="99%" height="227" onblur="CheckCount('Body','total');"></iframe>这样的<script language="Javascript" type="text/javascript">
var Dvbbs_bIsIE5=document.all;
var Dvbbs_Mode = 3;
if (Dvbbs_bIsIE5)
{var IframeID=frames["Dvbbs_Composition"];}
else
{
var IframeID=document.getElementById("Dvbbs_Composition").contentWindow;
}
function Gopreview()
{
document.preview.theBody.value=IframeID.document.body.innerHTML; 
var popupWin = window.open('', 'preview_page', 'scrollbars=yes,width=750,height=450');
document.preview.submit()
}
Dvbbs_InitDocument('Body','gb2312');
</script>===================
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
BODY{FONT-SIZE: 10.5pt;COLOR: #000000;FONT-FAMILY:  Arial,宋体;
scrollbar-face-color: #DEE3E7;scrollbar-highlight-color: #FFFFFF;scrollbar-shadow-color: #DEE3E7;scrollbar-3dlight-color: #D1D7DC;scrollbar-arrow-color:  #006699;scrollbar-track-color: #EFEFEF;scrollbar-darkshadow-color: #98AAB1;}
font{line-height : normal ;}
.quote{margin:5px 20px;border:1px solid #CCCCCC;padding:5px; background:#F3F3F3 }
.HtmlCode{margin:5px 20px;border:1px solid #CCCCCC;padding:5px; background:#FDFDDF }
</style></head>
<script language="javascript">
function enableDesignMode() {
//document.designMode = "on"
}
//onLoad="setTimeout('enableDesignMode()', 20);"
function ctlent(eventobject)
{
if(event.ctrlKey && window.event.keyCode==13)
{
parent.document.Dvform.submit();
}
}
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onkeydown="ctlent();" title="Ctrl+Enter直接提交贴子" >
</body>
</html>如何才能填进去啊，，汗在线等

解决方案 »

  1.   

    我的想法，，通过下面的方式来实现，但是找不到，，，doc1.all.item(ADOQuery3.fieldbyname('bt01').asstring,0) 
    =======================
    doc1:=webbrowser1.document as ihtmldocument2;
    bt01:=(doc1.all.item(ADOQuery3.fieldbyname('bt01').asstring,0) as ihtmlinputelement);
    bt01.value:=ADOQuery3.fieldbyname('bt01_1').asstring;
    ==================
    在表单提交时调用了
    function Dvbbs_CopyData(hiddenid)
    {
    ischeck=true
    if(Dvbbs_bTextMode!=1){
    cont=IframeID.document.body.innerText;
    IframeID.document.body.innerHTML=cont;
    IframeID.focus()
    }
    document.Dvform.Submit.disabled=true;
    document.Dvform.Submit2.disabled=true;
     
    document.getElementById(hiddenid).value = OSWEBXHTML.GetXHTML(IframeID.document.body);
    //d.body.innerHTML=document.getElementById(hiddenid).value;
    }
      

  2.   

    用WebBrowser控件做数据提交,但是由于使用htmledit,即使我对这个htmledit写入了内容,但是由于这个htmledit的iframe必须用onbur触发一下才能把数据传入hidden的文本筐中.   
        
      如何才能达到这样的效果呢?请赐教啊!!   
        
      使用WebBrowser1.Document.All("txtTitle").Value赋值是不行的,提示错误:对象不支持这个属性或方法（错误   438）   
        
      我该怎么办?谢谢!!!