전체 HTML을 MSHTML로 설정하는 방법은 무엇입니까?

Question

전체 HTML을 MSHTML로 설정하는 방법은 무엇입니까?

나는이 할당 사용하려합니다 :

(Document as IHTMLDocument3).documentElement.innerHTML := 'abc'; 

을하지만 난 오류가있어 : 나는 또한

(Document as IHTMLDocument2).write 

를 사용하려고했습니다

"Target element invalid for this operation"

을하지만,이 양식은 HTML을 추가 본문 섹션에, 그리고 모든 HTML 소스를 교체해야합니다.
누군가이 작업을 어떻게 수행하는지 알고 있습니까?

미리 감사드립니다.

Answer 1

여기 당신이 도움이된다면 내 예전의 코드 중 일부는 볼 수있다 : 웹 브라우저 주위 확장 래퍼 및 제공 방법을 사용하는 몇 가지 쉬운을 가지고 당신은 또한 TEmbededWB를 사용할 수있는 대안으로

type 
    THackMemoryStream = class(TMemoryStream); 

procedure Clear(const Document: IHTMLDocument2); 
begin 
    Document.write(PSafeArray(VarArrayAsPSafeArray(VarArrayOf([WideString('')])))); 
    Document.close; 
end; 

procedure LoadFromStream(const Document: IHTMLDocument2; Stream: TStream); 
var 
    Persist: IPersistStreamInit; 
begin 
    Clear(Document); 
    Persist := (Document as IDispatch) as IPersistStreamInit; 
    OleCheck(Persist.InitNew); 
    OleCheck(Persist.Load(TStreamAdapter.Create(Stream))); 
end; 

procedure SetHtml(const Document: IHTMLDocument2; const Html: WideString); 
var 
    Stream: TMemoryStream; 
begin 
    Stream := TMemoryStream.Create; 
    try 
    THackMemoryStream(Stream).SetPointer(PWideChar(Html), (Length(Html) + 1) * SizeOf(WideChar)); 
    Stream.Seek(0, soFromBeginning); 
    LoadFromStream(Document, Stream); 
    finally 
    Stream.Free; 
    end; 
end; 

Answer 2

을 이 기능.