批量html转text的问题

本帖最后由 hncdllyz 于 2012-11-16 12:26:15 编辑

解决方案 »

  1.   


    procedure TForm1.Button1Click(Sender: TObject);
    var
      V : Variant;
    begin
      WebBrowser1.Navigate('about:blank');
      while WebBrowser1.Tag=0 do Application.ProcessMessages;
      V := WebBrowser1.Document;  Memo1.Lines.LoadFromFile('C:\1.html');
      V.body.innerHTML := Memo1.Text;
      Memo3.Text := V.body.innerText;  Memo2.Lines.LoadFromFile('C:\2.html');
      V.body.innerHTML := Memo2.Text;
      Memo4.Text := V.body.innerText;  //清除WebBrowser
      V.body.innerHTML := '<html></html>';
    end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    begin
      TComponent(Sender).Tag := 1;
    end;