DELPHI如何利用BHO更改网页内容?--DELPHI,利用,BHO,更改,网页,内容

作者：佚名来源：网上收集发布时间：2007-1-13 21:20:50

下面是左轻候的一段代码

//第一个例程
//实现内容
procedure Tform1.ShowHTML(src:string;iebrw:TEmbeddedWB;ID:integer);

var
    vv: Variant;
    HTMLDocument: IHTMLDocument2;
    tmpStr,tmpfilepath:string;0D
begin
   //直接写到浏览器里。
   vv := VarArrayCreate([0,0],varVariant);
   vv[0] := '<base href="'+LocalPath+'"/>'+ src+ tmpStr;
   try
      ieBrw.Navigate('about:blank'); //这里必须要
      HTMLDocument := iebrw.Document as IHTMLDocument2;
      HTMLDocument.write(PSafeArray(TVarData(vv).VArray));
      HTMLDocument.charset:3D 'gb2312';
      HTMLDocument.close;
   except
      statusbar1.Panels[0].Text:='写浏览器出错';
   end;
   HtmlDocument:=nil;
end;

//第二个例程
procedure WB_LoadHTML(webBrowser: TwebBrowser; HTMLCode: string);
var
   sl: TStringList;
   ms: TMemoryStream;
begin
   webBrowser.Navigate('about:blank');
   if Assigned(webBrowser.Document) then
   begin
      sl := TStringList.Create;
       try
          ms := TMemoryStream.Create;
          try
             sl.Text := HTMLCode;
             sl.SaveToStream(ms);
              ms.Seek(0, 0);
              (webBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
          finally
             ms.Free;
          end;
      finally
        sl.Free;
     end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(webBrowser1,'<html><body bgcolor="#0099FF">SwissdelphiCenter</html>');
end;