亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

Dephi中獲取webbrowser選取區(qū)域的html代碼示例

系統(tǒng) 2042 0

這個問題來自論壇提問,示例代碼如下,主要是要了解Document對象
Dephi中獲取webbrowser選取區(qū)域的html代碼示例

//------這個論壇居然不支持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.

Dephi中獲取webbrowser選取區(qū)域的html代碼示例


更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯(lián)系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機(jī)微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發(fā)表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 国产美女流白浆的免费视 | 四虎成人免费网址在线 | 草草精品视频 | 国产在线欧美日韩一区二区 | 一级片免费在线 | 日本黄色免费一级片 | 欧美成在线视频 | 免费国产午夜在线观看 | 97天天干 | 日韩一区精品 | 久久亚洲精品中文字幕二区 | 久久天天躁夜夜躁狠狠85麻豆 | 伊人久久精品亚洲午夜 | 在线播放成人毛片免费视 | 精品国产香蕉 | 国产午夜偷精品偷伦 | 日韩中文字幕在线播放 | 狠狠躁夜夜躁人人爽天天段 | 日韩成人国产精品视频 | 亚洲欧美中文日韩在线 | 亚洲欧洲日产国码久在线观看 | 欧美视频二区 | 亚洲视频 中文字幕 | 亚洲国产中文字幕 | 亚洲成在人线中文字幕 | 永久黄网站色视频免费观看99 | 国产特级片 | 国产720刺激i在线视频 | 曰本一级毛片免费 | 99久久久久国产精品免费 | 久久伊人中文字幕有码 | 啪啪一级片 | 97在线国产视频 | 婷婷综合激情网 | 国产天堂| 欧美在线成人免费国产 | 九九99在线视频 | 人成xxxwww免费视频 | 免费看一级黄色录像 | 91在线视频在线观看 | 欧美一级xxxxⅹ毛片 |