WebBrowser 的问题 特急

Question

var
  Doc:IHTMLDocument2;
  HTMLInputUser: IHTMLInputElement;
  HTMLInputPassWord: IHTMLInputElement;
  HTMLsumit: IHTMLFormElement;
begin                         //http://192.168.0.4/oa/oaindex.asp   WebBrowser1.Navigate('http://127.0.0.1/oa/oaindex.asp');
   WebBrowser1.Visible:=False;
   while WebBrowser1.Busy do
     Application.ProcessMessages ;   Doc:=WebBrowser1.Document as IHTMLDocument2;
   Doc.clear;
   HTMLInputUser:=(doc.all.item('txtyhm',0) as ihtmlinputelement);//username是你ASP页里输入框的名字
   HTMLInputUser.value:='admin';   HTMLInputPassWord:=(doc.all.item('txtkl',0) as ihtmlinputelement);
   HTMLInputPassWord.value:='111';   HTMLsumit:=(doc.all.item('formDL',0) as IHTMLFormElement);
   (HTMLsumit as IHTMLFormElement).submit;end;
这是个按钮单击事件 为什么按两下就出错了？HTMLInputUser这个值在点击第二次的时候怎么是nil呢？

Answer 1

COM对象，用完了记的释放。HTMLInputUser.Release;
HTMLInputPassWord.Release;
HTMLsumit.Release;