PBearのTHtmlViewerをユニコードのHTMLファイルを読み込んで表示するには？

Question

デルファイのTHtmlViewerコンポーネントの中に表示したいユニコードの.htmlファイルがあります。

'.LoadFromFile'を実行するコードを説得することができないようです - 私は最初にユニコードファイルをストリームにロードして何とかそれを変換する必要がありますか？

デルファイ2007、THtmlViewerのv9.45

は私が前に、Unicodeのファイル、またはTHtmlViewerで何もしていませんでした。

Answer 1

さて、ここには私が思いついたものがあります。建設的な批判と観測が評価されました！

 
// load either an ansi or unicode-type html doc into the browser component. 
// the filename has already been confirmed as an existing file 
procedure TfrmBrowser.LoadDocument(FFileName:string); 
var 
    FWideText : Widestring; 
    FAnsiText : AnsiString; 
    FRequiredLen : Integer; 
    FFileStream : TFileStream; 
    FMemStream : TMemoryStream; 
    FBuffer : Byte; 
begin 
    FFileStream := TFileStream.Create(FFileName, fmOpenRead or fmShareDenyNone); 
    // anything less than half a dozen bytes would be pointless, but... 
    if FFileStream.Size>1 then 
    begin 
    // checking the first byte of the file to give us a clue about file-type 
    FFileStream.Read(FBuffer,1); 
    FFileStream.Position:=0; // rewind position 
    if (FBuffer=$FF) or (FBuffer=$EF) then 
    begin 
     // probably Unicode 
     FRequiredLen := FFileStream.Size div 2; // 2 bytes per char 
     SetLength(FWideText, FRequiredLen); 
     FFileStream.Read(FWideText[1], FFileStream.Size); 
     // cast it into an Ansistring 
     FAnsiText := FWideText; 
     FMemStream := TMemoryStream.Create; 
     FMemStream.Write(FAnsiText[1], FRequiredLen); 
     FMemStream.Position := 0; // rewind the position 
     // load the stream into the THtmlViewer 
     vwBrowse.LoadFromStream(FMemStream); 
     FMemStream.Free; 
    end 
    else 
    begin 
     // probably Ansi, just load original filestream in 
     vwBrowse.LoadFromStream(FFileStream); 
    end; 
    FFileStream.Free; 
    end; 

は明らかにいくつかのエラー・トラップが欠落しているが、それは基本的な考え方です。

Answer 2

あなたはDelphi 2007を使用しています。これは、DelphiプログラミングのUnicode時代の始まりです。

初期バージョンのDelphiでUnicodeを動作させることは非常に面倒ですが、一部のコントロール、特にTHtmlViewコンポーネントで満足のいく結果を得ることは可能です。

私は私のプログラムのいずれかからいくつかのコード例を投稿：

//code to toggle source or WYSIWYG views 
var 
    htmEd: IHTMLDocument2; 
begin 
    htmEd := HtmlEdit.Document as IHtmlDocument2; 
    if ToggleTabSet.TabIndex = 0 then 
    begin 
    HtmlEditContainer.PageIndex := 0; // Tab sheet index 
    htmEd.body.innerHTML := Memo1.Lines.Text; // TTntMemo 
    pnlEditorState.Caption := 'Design View'; 
    end 
    else 
    if ToggleTabSet.TabIndex = 1 then 
    begin 
     HtmlEditContainer.PageIndex := 1; 
     Memo1.Lines.Text := HtmEd.body.innerHTML; 
     pnlEditorState.Caption := 'Source View'; 
    end; 

はあなたが私はhtmlファイルが最初にロードされているTTntMemoコンポーネントを使用していることがわかります上記のコードを読みます。私はその後、HtmlViewの 'body.innerHTML'プロパティにメモの 'Text'を読み込みます。

htmEd.body.innerHTML := Memo1.Lines.Text; 

注：

1. TntWareの 'Memo1.Lines.Text;' WideString型です。
2. 'IHTMLDocument2'はTEmbeddedWBからのものです。理由を見るwhy TEmbeddedWB is good?

これは私の初期の仕事です。私はDelphi 2009に切り替えました。物事ははるかに簡単になりました（ファイルのロード中に適切なTEncodingを設定するだけです）！

Answer 3

FYI、THTMLViewerは、積極的に（最後の前に数分をコミット）Googleのコードに維持されている： http://code.google.com/p/thtmlviewer/

"オリジナル"（9.45）バージョンからの修正や改善のD6-DXE2とラザロの互換性、トン。