当前位置: 首页 > 技术文档 > 正文
avatar

一:先在uses添加 mshtml 并在事件中添加变量 二:这样就可以显示完整的源码,并且是完全一样的源码

b8389b504fc2d562f274e9c3e41190ef76c66c9b
一:先在uses添加 mshtml 并在事件中添加变量

uses mshtml

var
  ms: TMemoryStream;
  Doc: IHtmlDocument2;

二:这样就可以显示完整的源码,并且是完全一样的源码

    tag:=0;
  Web1.Navigate(memo3.Lines.Strings[strtoint(edit11.text)]);
  while(tag=0) do Application.ProcessMessages;
    Application.ProcessMessages;
    ms := TMemoryStream.Create;
  try
    doc := Web1.Document as IHTMLDocument2;
    if doc = nil then Exit;
  except
  end;
  (Web1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);
  ms.Position := 0;
  list.LoadFromStream(ms);
本文固定链接: https://blog.yanhualou.com/jishu/699.html | 烟花楼博客
标签:

delphi WebBrowser 网页源码:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter