PBear의 THtmlViewer를 유니 코드 HTML 파일 로딩하고 표시하는 방법은 무엇입니까?

Question

델파이의 THtmlViewer 구성 요소 안에 표시 할 유니 코드 .html 파일이 있습니다.

'.LoadFromFile'을 수행하는 코드를 설득하는 것처럼 보이지 않습니다. 먼저 유니 코드 파일을 스트림으로로드 한 다음 어떻게 든 변환해야합니까? 델파이 2007

, 내가 전에, 유니 코드 파일 또는 THtmlViewer와 아무 짓도하지 한

THtmlViewer의 v9.45.

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

당신은 델파이 프로그래밍에서 유니 코드 시대의 시작하기 전에의 델파이 2007을 사용하고 있습니다! 이 델파이의 초기 버전에서 유니 코드 작업을하는 것은 매우 귀찮은이지만

, 일부 컨트롤, 특히 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

참고로, THTMLViewer 적극적으로 (마지막 전에 몇 분을 커밋) 구글 코드를 유지 : http://code.google.com/p/thtmlviewer/

D6-DXE2와 나사로의 호환성은 "원래"(9.45) 버전에서 수정 및 개선의 톤.