WebBrowser의 HTML소스보기

WebBrowser의 Html 소스 StringList에 넣는 소스 입니다.
원 소스를 조금 수정한것입니다.
원본 소스 있는곳..http://delphi.about.com/od/internetintranet/l/aa062904a.htm

일반적으로 WebBrowser1.OleObject.Document.documentElement.innerHTML; 이렇게 얻은 내용과 약간의 차이가 있네요.

procedure WB_SaveAs_HTML(WB: TWebBrowser; StrLst: TStrings);
// uses ActiveX;
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  FileStream: TmemoryStream;
begin
  if not Assigned(WB.Document) then
  begin
    ShowMessage('Document not loaded!');
    Exit;
  end;

  PersistStream := WB.Document as IPersistStreamInit;
  FileStream := TmemoryStream.Create;
  try
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    if Failed(PersistStream.Save(Stream, True)) then
      ShowMessage('SaveAs HTML fail!');
    FileStream.Position := 0;
    StrLst.Clear;
    StrLst.LoadFromStream(FileStream);
  finally
    FileStream.Free;
  end;
end;

 

Author: yyjksw