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

TWebBrowser 에 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;