웹브라우저에 HTML 코드 밀어넣기

웹브라우저에 HTML 코드 밀어넣기

 

uses

  Windows, SysUtils, Classes, SHDocVw, ActiveX;

... ...

 

procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: String);

var

  sList: TStringList;

  mStream: TMemoryStream;

begin

  // 1. 웹브라우저에 빈페이지 로딩

  WebBrowser.Navigate('about:blank');

  while WebBrowser.ReadyState<READYSTATE_INTERACTIVE do Application.ProcessMessages;

  // 2. 웹브라우저가 Assigned 되어 있을 경우

  if Assigned(WebBrowser.Document) then begin

    sList:=TStringList.Create;

    mStream:=TMemoryStream.Create;

    try

      // 3. HTML 코드를 메모리스트림에 복사하여 웹브라우저로 읽어들임

      sList.Text:=HTMLCode;

      sList.SaveToStream(mStream);

      mStream.Seek(0, 0);

      (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(mStream));

    finally

      FreeAndNil(mStream);

      FreeAndNil(sList);

    end;

  end;

end;