zoukankan      html  css  js  c++  java
  • Dephi中获取webbrowser选取区域的html代码示例

    这个问题来自论坛提问,示例代码如下,主要是要了解Document对象


    //------这个论坛居然不支持delphi代码样式

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, SHDocVw, StdCtrls,mshtml;

    type
      TForm1 = class(TForm)
        WebBrowser1: TWebBrowser;
        Button1: TButton;
        Memo1: TMemo;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      WebBrowser1.Navigate('www.csdn.net');
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var doc:mshtml.IHTMLDocument2;
    var select:mshtml.IHTMLTxtRange;
    begin
       doc:= self.WebBrowser1.Document as mshtml.IHTMLDocument2;
       select:=doc.selection.createRange() as mshtml.IHTMLTxtRange;
       memo1.Text:=  select.htmlText;
    end;

    end.

  • 相关阅读:
    关于ThreadLocal的理解
    常用Linux软件安装
    Spring事务注解@Transactional失效的问题
    使用jackson转换xml格式数据进行响应
    创建简单web程序了解servlet
    JDBC
    StringBuild类
    Canlendar 日期类
    Java Date 时间类的使用
    QWeb
  • 原文地址:https://www.cnblogs.com/cl1024cl/p/6204940.html
Copyright © 2011-2022 走看看