2011년 3월 15일 화요일

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

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;

댓글 없음:

댓글 쓰기