採用About協議的方法在裝載一些特殊的腳本(Java script?)時會出錯， 我抓了一下螢幕，可以看到一些圖片無法正常顯示出來。不知道KTop 的離線閱讀包程式裏邊是怎麼做的？如有什麼解決的方法(不用第三方 元件)，還望各位前輩指點小弟一二，謝謝！    原先的實現過程如下：    

    uses ActiveX;    procedure TextToWebBrowser(AText: string; AWebBrowser: TWebBrowser);
var
  AStream: TMemoryStream;
  Aurl: OleVariant;
begin
  AStream := TMemoryStream.Create;
  try
    AStream.WriteBuffer(Pointer(AText)^, Length(AText));
    AStream.Seek(0, 0);
    with AWebBrowser do
    begin
      if LocationURL = '' then
      begin
        Aurl := 'about:blank';
        Navigate2(Aurl);
      end;
      (Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
    end;
  finally
    AStream.Free;
  end;
end;    TextToWebBrowser(Memo1.Lines.Text, WebBrowser1);    

發表人 - Rain 於 2003/07/06 19:30:30

Ｋ .ＴＯＰ Datum Browse Tool(英文版) http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30226    采用技术资料如下： (* 资源共享，共同进步！ 风花雪月 e梦情缘 程序设计：e梦缘 (wnhoo) mailto:wnhoo@163.com/net    *)    //树型菜单显示 procedure mytreeview(const treeview:ttreeview;var Fnode:TTreeNode;const conn:tADOConnection;const sqlstr,fieldstr:string);forward; //网页显示 procedure ShowBlankPage(WebBrowser: TWebBrowser;str:string);forward; //ZLIB解压（天使提供） function DeCompressFile(const SrcFile,DestFile:String):boolean;forward; //ZLIB压缩 Procedure ZlibCompress(instream,outStream:TStream);forward; //ZLIB解压 Procedure ZlibDeCompress(instream,outStream:TStream);forward; //WEBBROWER的HTML CODE STRING 显示 procedure SetHtml(const WebBrowser:TWebBrowser; const Html: string);forward; //资源文件释放 procedure ExtractRes(ResType, ResName, ResNewName : String); forward; //取得系统SYSTEM 或 SYSTEM32 路径 function GetWinDir: String;forward; //ADO数据批量移动 procedure movedate( connsource,conntarget:tadoconnection; tablesource,tabletarget:string;mode:byte) ;forward;    风花雪月 e梦情缘

------
风花雪月 e梦情缘

那段SetHTML的代碼我老早以前就找到過了，一樣的錯誤，沒發現跟我貼出來的那段實現原理是一樣的？只不過程式中用’delphi.ktop.com.tw’初始化Document對象，但換了About協議就會出錯。

我实验过并不是所有的Java script都会出错的    问题在HTML文件中的Java Script或VB Script语句有错误。如果你熟悉Java Script或VB Script语句，可以打开HTML文件看看到底是哪个语句错误了。    如果你要想忽略这样的提示，应该在IE中选择“查看|Internet选项”中选择“高级”，选中“浏览->禁止脚本调试”。     具体是什么原因，我也不太清楚！！！！        风花雪月 e梦情缘

------
风花雪月 e梦情缘