2. 程式人生 > >Delphi通過MSHTML實現一個HTML解析類

Delphi通過MSHTML實現一個HTML解析類

阿新 • • 發佈：2019-01-03
(******************************************************)(*                得閒工作室                          *)(*              網頁元素操作類庫                      *)(**)(*              DxHtmlElement Unit                    *)(*    Copyright(c) 2008-2010  不得閒                  *)(*    email:[email protected]     QQ:75492895    
*)(******************************************************)unit DxHtmlElement;

interfaceuses Windows,sysUtils,Clipbrd,MSHTML,ActiveX,OleCtrls,Graphics,TypInfo;

{Get EleMent Type}function IsSelectElement(eleElement: IHTMLElement): Boolean;
function IsPwdElement(eleElement: IHTMLElement): Boolean;
function
 IsTextElement(element: IHTMLElement): boolean;
function IsTableElement(element: IHTMLElement): Boolean;
function IsElementCollection(element: IHTMLElement): Boolean;
function IsChkElement(element: IHTMLElement): boolean;
function IsRadioBtnElement(element: IHTMLElement): boolean;
function IsMemoElement(element: IHTMLElement): boolean;
function IsFormElement(element: IHTMLElement): boolean;
function IsIMGElement(element: IHTMLElement): boolean;
function IsInIMGElement(element: IHTMLElement): boolean;
function IsLabelElement(element: IHTMLElement): boolean;
function IsLinkElement(element: IHTMLElement): boolean;
function IsListElement(element: IHTMLElement): boolean;
function IsControlElement(element: IHTMLElement): boolean;
function IsObjectElement(element: IHTMLElement): boolean;
function IsFrameElement(element: IHTMLElement): boolean;
function IsInPutBtnElement(element: IHTMLElement): boolean;
function IsInHiddenElement(element: IHTMLElement): boolean;
function IsSubmitElement(element: IHTMLElement): boolean;
{Get ImgElement Data}function GetPicIndex(doc: IHTMLDocument2; Src: string; Alt: string): Integer;
function GetPicElement(doc: IHTMLDocument2;imgName: string;src: string;Alt: string): IHTMLImgElement;
function GetRegCodePic(doc: IHTMLDocument2;ImgName: string; Src: string; Alt: string): TPicture; overload;
function GetRegCodePic(doc: IHTMLDocument2;Index: integer): TPicture; overload;
function GetRegCodePic(doc: IHTMLDocument2;element: IHTMLIMGElement): TPicture;overload;

type
  TObjectFromLResult =function(LRESULT: lResult;const IID: TIID; WPARAM: wParam;out pObject): HRESULT; stdcall;
  TEleMentType = (ELE_UNKNOW,ELE_TEXT,ELE_PWD,ELE_SELECT,ELE_CHECKBOX,ELE_RADIOBTN,ELE_MEMO,ELE_FORM,ELE_IMAGE,
  ELE_LABEL,ELE_LINK,ELE_LIST,ELE_CONTROL,ELE_OBJECT,ELE_FRAME,ELE_INPUTBTN,ELE_INIMAGE,ELE_INHIDDEN);


function GetElementType(element: IHTMLELEMENT): TEleMentType;
function GetElementTypeName(element: IHTMLELEMENT): string;
function GetHtmlTableCell(aTable: IHTMLTable;aRow,aCol: Integer): IHTMLElement;
function GetHtmlTable(aDoc: IHTMLDocument2; aIndex: Integer): IHTMLTable;
function GetWebBrowserHtmlTableCellText(Doc: IHTMLDocument2;
         const TableIndex, RowIndex, ColIndex: Integer;var ResValue: string):   Boolean;
function GetHtmlTableRowHtml(aTable: IHTMLTable; aRow: Integer): IHTMLElement;

function GetWebBrowserHtmlTableCellHtml(Doc: IHTMLDocument2;
         const TableIndex,RowIndex,ColIndex: Integer;var ResValue: string):   Boolean;
function GeHtmlTableHtml(aTable: IHTMLTable; aRow: Integer): IHTMLElement;
function GetWebBrowserHtmlTableHtml(Doc: IHTMLDocument2;
         const TableIndex,RowIndex: Integer;var ResValue: string):   Boolean;

type
  TDxWebFrameCollection =class;
  TDxWebElementCollection =class;

 
  TLoadState = (Doc_Loading,Doc_Completed,Doc_Invalidate);

  TDxWebFrame =classprivate
    FFrame: IHTMLWINDOW2;
    FElementCollections: TDxWebElementCollection;
    FWebFrameCollections: TDxWebFrameCollection;
    function GetSrc: string;
    function GetElementCount: integer;
    function GetWebFrameCollections: TDxWebFrameCollection;
    function GetElementCollections: TDxWebElementCollection;
    function GetDocument: IHTMLDOCUMENT2;
    function GetReadState: TLoadState;
    function GetIsLoaded: boolean;
    procedure SetFrame(const Value: IHTMLWINDOW2);
    function GetName: string;
  public
    Constructor Create(IFrame: IHTMLWINDOW2);
    Destructor Destroy;override;
    property Frame: IHTMLWINDOW2 read FFrame write SetFrame;
    property Src: stringread GetSrc;
    property Document: IHTMLDOCUMENT2 read GetDocument;
    property Name: stringread GetName;
    property Frames: TDxWebFrameCollection read GetWebFrameCollections;
    property ElementCount: integer read GetElementCount;
    property ElementCollections: TDxWebElementCollection read GetElementCollections;
    property ReadyState: TLoadState read GetReadState;
    property IsLoaded: boolean read GetIsLoaded;  
  end;


  TDxWebFrameCollection = Class
  private
    FFrameCollection: IHTMLFramesCollection2;
    Frame: TDxWebFrame;
    function GetCount: integer;
    function GetFrameInterfaceByIndex(index: integer): IHTMLWINDOW2;
    function GetFrameInterfaceByName(Name: string): IHTMLWINDOW2;
    function GetFrameByIndex(index: integer): TDxWebFrame;
    function GetFrameByName(Name: string): TDxWebFrame;
    procedure SetFrameCollection(const Value: IHTMLFramesCollection2);
  public
    Constructor Create(ACollection: IHTMLFramesCollection2);
    Destructor Destroy;override;
    property FrameCollection: IHTMLFramesCollection2 read FFrameCollection write SetFrameCollection;
    property Count: integer read GetCount;
    property FrameInterfaceByIndex[index: integer]: IHTMLWINDOW2 read GetFrameInterfaceByIndex;
    property FrameInterfaceByName[Name: string]: IHTMLWINDOW2 read GetFrameInterfaceByName;

    property FrameByIndex[index: integer]: TDxWebFrame read GetFrameByIndex;
    property FrameByName[Name: string]: TDxWebFrame read GetFrameByName;
  end;
  
  TDxWebElementCollection =classprivate
    FCollection: IHTMLElementCollection;
    FChildCollection:  TDxWebElementCollection;
    function GetCollection(index: String): TDxWebElementCollection;
    function GetCount: integer;
    function GetElement(itemName: string; index: integer): IHTMLElement;
    function GetElementByName(itemName: string): IHTMLELEMENT;
    function GetElementByIndex(index: integer): IHTMLELEMENT;
    procedure SetCollection(const Value: IHTMLElementCollection);
  public
    Constructor Create(ACollection: IHTMLElementCollection);
    Destructor Destroy;override;
    property Collection: IHTMLElementCollection read FCollection write SetCollection;
    property ChildElementCollection[index: String]: TDxWebElementCollection read GetCollection;
    property ElementCount: integer read GetCount;
    property Element[itemName: string;index: integer]: IHTMLElement read GetElement;
    property ElementByName[itemName: string]: IHTMLELEMENT read GetElementByName;
    property ElementByIndex[index: integer]: IHTMLELEMENT read GetElementByIndex;
  end;

  TLinkCollection =class(TDxWebElementCollection)
  
  end;
  TDxWebTable =class;

  TDxTableCollection =classprivate
    FTableCollection: IHTMLElementCollection;
    FDocument: IHTMLDOCUMENT2;
    FWebTable: TDxWebTable;
    function GetTableInterfaceByName(AName: string): IHTMLTABLE;
    procedure SetDocument(Value: IHTMLDOCUMENT2);
    function GetTableInterfaceByIndex(index: integer): IHTMLTABLE;
    function GetCount: integer;
    function GetTableByIndex(index: integer): TDxWebTable;
    function GetTableByName(AName: string): TDxWebTable;
  public
    Constructor Create(Doc: IHTMLDOCUMENT2);
    destructor Destroy;override;
    property TableInterfaceByName[AName: string]: IHTMLTABLE read GetTableInterfaceByName;
    property TableInterfaceByIndex[index: integer]: IHTMLTABLE read GetTableInterfaceByIndex;

    property TableByName[AName: string]: TDxWebTable read GetTableByName;
    property TableByIndex[index: integer]: TDxWebTable read GetTableByIndex;
    
    property Document: IHTMLDOCUMENT2 read FDocument write SetDocument;
    property Count: integer read GetCount;
  end;

  TDxWebTable =classprivate
    FTableInterface: IHTMLTABLE;
    function GetRowCount: integer;
    procedure SetTableInterface(const Value: IHTMLTABLE);
    function GetCell(ACol, ARow: integer): string;
    function GetRowColCount(RowIndex: integer): integer;
    function GetInnerHtml: string;
    function GetInnerText: string;
    function GetCellElement(ACol, ARow: Integer): IHTMLTableCell;
  public
    Constructor Create(ATable: IHTMLTABLE);
    property TableInterface: IHTMLTABLE read FTableInterface write SetTableInterface;
    property RowCount: integer read GetRowCount;
    property Cell[ACol: integer;ARow: integer]: stringread GetCell;
    property CellElement[ACol: Integer;ARow: Integer]: IHTMLTableCell read GetCellElement;
    property RowColCount[RowIndex: integer]: integer read GetRowColCount;
    property InnerHtml: stringread GetInnerHtml;
    property InnerText: stringread GetInnerText;
  end;

  TDxWebCombobox =classprivate
    FHtmlSelect: IHTMLSelectElement;
    function GetCount: Integer;
    procedure SetItemIndex(const Value: Integer);
    function GetItemIndex: Integer;
    function GetName: string;
    procedure SetName(const Value: string);
    function GetValue: string;
    procedure SetValue(const Value: string);
    procedure SetCombInterface(const Value: IHTMLSelectElement);
    function GetItemByName(EleName: string): string;
    function GetItemByIndex(index: integer): string;
    function GetItemAttribute(index: Integer; AttribName: string): OleVariant;
  publicconstructor Create(AWebCombo: IHTMLSelectElement);
    procedure Add(Ele: IHTMLElement);
    procedure Insert(Ele: IHTMLElement;Index: Integer);
    procedure Remove(index: Integer);

    property CombInterface: IHTMLSelectElement read FHtmlSelect write SetCombInterface;
    property Count: Integer read GetCount;
    property ItemIndex: Integer read GetItemIndex write SetItemIndex;
    property ItemByIndex[index: integer]: stringread GetItemByIndex;
    property ItemByName[EleName: string]: stringread GetItemByName;
    property ItemAttribute[index: Integer;AttribName: string]: OleVariant read GetItemAttribute;
    property Name: stringread GetName write SetName;
    property value: stringread GetValue write SetValue;
  end;

implementationend.

相關推薦

Delphi通過MSHTML實現一個HTML解析類

(******************************************************)(*                得閒工作室                          *)(*              網頁元素操作類庫                      *)

C#自寫的一個HTML解析類（類似XElement語法）

功能： 1、輕鬆獲取指元素HTML元素。 2、可以根據屬性標籤進行篩選 3、返回的都是Llist強型別無需轉換   用過XElement的都知道 用來解析XML非常的方便，但是對於HTML的格式多樣化實在是沒辦法相容。 所以我就寫了這麼一個類似XElement的 XHTMLEl

python實現一個層次聚類方法

mac ima 優先隊列 () don 標簽 中位數 filepath normal 層次聚類(Hierarchical Clustering) 一.概念 　　層次聚類不需要指定聚類的數目，首先它是將數據中的每個實例看作一個類，然後將最相似的兩個類合並，該過程叠代計算只到剩

Python-通過socket實現一個小型的端口檢測工具

socket 結果 soc png cep light true python bsp 實驗機器IP：192.168.220.139，端口開放情況 代碼 # -*- coding:utf-8 -*- __author__ = "MuT6 Sch01aR" import

HTML 解析類庫HtmlAgilityPack

html解析 類型 dht 好的 cts 布爾 repos 通過 節點 1. HtmlAgilityPack簡介 網站中首先遇到的問題是爬蟲和解析HTML的問題，一般情況在獲取頁面少量信息的情況下，我們可以使用正則來精確匹配目標。不過本身正則表達式就比較復雜，同時正

Java開源Html解析類庫（轉載）

  NekoHTML  NekoHTML是一個簡單地HTML掃描器和標籤補償器(tag balancer) ,使得程式能解析HTML文件並用標準的XML介面來訪問其中的資訊。這個解析器能投掃描HTML檔案並“修正”許多作者（人或機器）

JVM:如何實現一個自定義類載入器？

為什麼要自定義載入器 原因： 1、存放在自定義路徑上的類，需要通過自定義類載入器去載入。【注意：AppClassLoader載入classpath下的類】 2、類不一定從檔案中載入，也可能從網路中的流中載入，這就需要自定義載入器去實現加密解密。 3、可以定義類的實現機制，實現類的熱部署,

AngularJS實現一個HTML元素內容可編輯指令

有時我們想讓使用者可編輯元素某個屬性內容，比如自定義資料名稱，所以在此實現一個簡易的指令my-editable 先看效果吧： 指令程式碼： .directive('myEditable',

自己動手實現一個java過濾器類

 過濾器採用了裝飾者設計模式： package myFliter; import java.io.*; public class LowerCaseInputStream extends Filte

通過SpringSecurity實現一個許可權管理系統

一、許可權系統E-R圖 常用的許可權管理系統中包括四個實體表，分別是使用者表、角色表、許可權表、資源表，以及他們之間的三個聯絡表，實體表之間都是多對多的關係 備註：寫完了才發現角色表沒用到，請忽略 二、SpringSecurity 2.1 主要元件 （1）SecurityContextHo

12 再次改進版通過佇列實現一個生產者消費者模型

import time from multiprocessing import Process,Queue #生產者 def producer(q): for i in range(10): time.sleep(0.2) s = '大包子%s號'%i

黃聰：C#類似Jquery的html解析類HtmlAgilityPack基礎類介紹及運用

Html Agility Pack 原始碼中的類大概有28個左右，其實不算一個很複雜的類庫，但它的功能確不弱，為解析DOM已經提供了足夠強大的功能支援，可以跟jQuery操作DOM媲美：） 基礎類和基礎方法介紹 Html Agility Pack最常用的基礎類其實不多，對解析DOM來說，就只有

通過canvas實現將html的某些元素轉為png圖片

有時候我們需要把html或者某些html元素轉換為圖片，並且支援下載，下面是學習之後的總結，希望能給大家帶來幫助。 所需外掛庫：html2canvas.js、canvas2image.js、base64.js  資源地址：連結: https://pan.baidu.com

java實現一個抽獎概率類

在一些專案需求中，可能會遇到抽獎問題，如提供一系列獎品及獲獎概率，要求根據概率返回每次抽到的獎品。以下是本人在實際專案中寫的一個抽獎工具類，與大家共同分享： import java.util.ArrayList; import java.util.List; import

模板引擎：二、實現一個Json解析器

2.Js實現Json解析器 前言 本文主要對Json解析器的實現進行探討。 如果想深入瞭解其原理，可以參考上一篇文章：模板引擎：一、理解Json解析器工作原理 案例說明 例如：拿一段最簡單的Json字串舉例(“{ “a”: 1

Quartz 之 scheduler 類的方法 【實現一個 quartz 管理類】

pause : 暫停一個觸發器。如果是持久化的 quartz，此觸發器的狀態會被寫到庫中，哪怕是重啟應用後， 也不會觸發，因為狀態是持久化的。 若更新 quartz 配置檔案中的該觸發器的屬性，如 cron 表示式，則記憶體和資料庫中已持久化的資料都不會被更新。 res

一個隊列類的實現(比delphi自帶的速度快70倍)(線程安全版本)

initial unlock use for in 線程 self. private aps 自帶 unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //線程安全版本，如果不需要線程安全，請註釋掉此行代碼 {

一個任務管理類的c++實現，可直接通過編譯，目的：提高效率，防止頻繁申請記憶體和釋放

#include <iostream> #include <pthread.h> #include <semaphore.h> #include <errno.h> #include <queue> using namespace std;

第七週上機任務三--實現一個複數類--通過模板類的技術手段，設計Complex，使實部和虛部的型別為定義物件時用的實際型別

/* (程式頭部註釋開始) * 程式的版權和版本宣告部分 * Copyright (c) 2011, 煙臺大學計算機學院學生  * All rights reserved. * 檔名稱：實現一個複數類，通過模板類的技術手段，設計Complex，使實部和虛部的型別為定義物

Java通過 Socket 實現 TCP服務端(一個實例)

trac write 建立 回復 狀態 else 應用程序 字符 system 1 Java Socket簡介 　　所謂socket 通常也稱作”套接字“，用於描述IP地址和端口，是一個通信鏈的句柄。應用程序通常通過”套接字”向網絡發出請求或者應答網絡請求。Socket和S