在ActiveForm中取得ActiveForm所在的网页的内容？

就是网页源文件。 问题点数：50、回复次数：4Top

1 楼Spring414（春）回复于 2004-10-04 08:45:02 得分 0

upTop

2 楼zhboy（孔方兄）回复于 2004-10-04 09:31:40 得分 50

var  
            FDocument:   IHTMLDocument2;  
            lSp:   IServiceProvider;  
            lIE:   IWebbrowser;  
  begin  
      lSp   :=   ActiveFormControl.ClientSite   as   IServiceProvider;  
      lSp.QueryService(IWebbrowserApp,   IWebbrowser2,   lIE);  
      FDocument   :=   (lIE.Document   as   IHTMLDocument2);  
      memo1.Lines.Text   :=   FDocument.body.parentElement.outerHTML;  
  end;  
  memo1中显示的就是你要的网页的源代码。         要uses   mshtml单元Top

3 楼yuanfeng7618（失魂落魄的疯子）回复于 2004-10-04 10:04:44 得分 0

UPTop

4 楼Spring414（春）回复于 2004-10-04 10:30:28 得分 0

多谢，成功！  
  还要加个Webbrowser才能通过，编译后可删除Webbrowser。Top

相关问题

• 网页
• activeform
• fdocument
• ihtmldocument2
• lie
• lsp
• iserviceprovider
• iwebbrowser
• memo1
• webbrowser

• 帖主：Spring414
• zhboy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载