HTML소스보기 Archives

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;

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;

EagleSoft

[태그:] HTML소스보기

WebBrowser의 HTML소스보기

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글