DELPHI调用网页中javascript函数的问题，急，

Question

网页代码步份:
                      <TD align=left width="100%"><INPUT type=hidden 
                        name=operate> <INPUT class=dataTableContent onclick=checkAll() type=button value="反 選" name=Submit323> 
<INPUT onClick="return confirmDelete()" type=submit value="刪 除" name=event_submit_do_delete> 
<INPUT onClick="return confirmUpShelf()" type=submit value="上 架" name=event_submit_do_up_shelf> 
<INPUT onClick="javascript: gotoApplyPostage(null, null);" type=button value=設置運費> 
<INPUT onClick="javascript: gotoApplyBonus();" type=button value=設置促銷> 
<INPUT onClick=": gotoApplyCharity();" type=button value=愛心捐贈>
<label>
<input type="submit" name="Submit" value="提交">这个是淘宝上架宝贝的代码，我用WebBrowser1.OleObject.Document.parentWindow.execScript('checkAll()', 'javascript');可以调用checkAll()这个函数据，但是WebBrowser1.OleObject.Document.parentWindow.execScript('confirmUpShelf()', 'javascript');却调用不了confirmUpShelf()。换成return confirmUpShelf()也不性，本来我想用
doc:=webbrowser1.document as ihtmldocument2;
form:=(doc.all.item('event_submit_do_up_shelf',0) as ihtmlformelement);
form.submit;但是却说接口不支持，郁闷了，希望知道的哥哥们指点下，谢谢顺便说下.泉洲电信搞了一个免费提神ADSL速度到4M的活动，闷，下个东西还是N慢.刚好400K，我以前2M的时候。也有230-240.  BS电信

Answer 1

你可以自己插入js代码,然后你的js代码调用这个.试试吧

Answer 2

 hys_427 大哥，能说详细点不

Answer 3

参照下列代码
uses 
  ...,comobj; procedure TForm1.Button1Click(Sender: TObject); 
var 
  m_Script: Variant; 
begin 
  try 
    m_Script := CreateOleObject('ScriptControl'); 
    m_Script.Language := 'JavaScript'; 
    showmessage( m_Script.Eval('13471425498×14484') ); 
  except 
    showmessage( 'error' ); 
  end; 
end;