这段代码怎么在delphi(bho)中编译,有例程最好 - Delphi论坛

楼主

问题点数：0 回复次数：1

这段代码怎么在delphi(bho)中编译,有例程最好

程序代码：

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

搜索更多相关主题的帖子: 例程　 delphi　bho　编译　代码　