TWebBrowser 에 HTML 코드를 로딩시키는 함수
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: String);
var
sList: TStringList;
mStream: TMemoryStream;
begin
// 1. 웹브라우저에 빈페이지 로딩 WebBrowser.Navigate('about:blank');
while WebBrowser.ReadyStatedo 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 asIPersistStreamInit).Load(TStreamAdapter.Create(mStream));
finally
FreeAndNil(mStream);
FreeAndNil(sList);
end;
end;
end;
댓글 없음:
댓글 쓰기