么意思博客

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

一：先在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);