├── .gitignore
├── HtmlParserEx.pas
├── LICENSE
├── README.md
└── demo
    ├── Bin
        └── github.com_ying32_htmlparser.html
    ├── Unit23.dfm
    ├── Unit23.pas
    ├── demo.dpr
    └── demo.dproj


/.gitignore:
--------------------------------------------------------------------------------
 1 | # Uncomment these types if you want even more clean repository. But be careful.
 2 | # It can make harm to an existing project source. Read explanations below.
 3 | #
 4 | # Resource files are binaries containing manifest, project icon and version info.
 5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
 6 | #*.res
 7 | #
 8 | # Type library file (binary). In old Delphi versions it should be stored.
 9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
10 | #*.tlb
11 | #
12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
13 | # Uncomment this if you are not using diagrams or use newer Delphi version.
14 | #*.ddp
15 | #
16 | # Visual LiveBindings file. Added in Delphi XE2.
17 | # Uncomment this if you are not using LiveBindings Designer.
18 | #*.vlb
19 | #
20 | # Deployment Manager configuration file for your project. Added in Delphi XE2.
21 | # Uncomment this if it is not mobile development and you do not use remote debug feature.
22 | #*.deployproj
23 | # 
24 | # C++ object files produced when C/C++ Output file generation is configured.
25 | # Uncomment this if you are not using external objects (zlib library for example).
26 | #*.obj
27 | #
28 | 
29 | # Delphi compiler-generated binaries (safe to delete)
30 | *.exe
31 | *.dll
32 | *.bpl
33 | *.bpi
34 | *.dcp
35 | *.so
36 | *.apk
37 | *.drc
38 | *.map
39 | *.dres
40 | *.rsm
41 | *.tds
42 | *.dcu
43 | *.lib
44 | *.a
45 | *.o
46 | *.ocx
47 | 
48 | # Delphi autogenerated files (duplicated info)
49 | *.cfg
50 | *.hpp
51 | *Resource.rc
52 | 
53 | # Delphi local files (user-specific info)
54 | *.local
55 | *.identcache
56 | *.projdata
57 | *.tvsconfig
58 | *.dsk
59 | 
60 | # Delphi history and backups
61 | __history/
62 | __recovery/
63 | *.~*
64 | 
65 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi)
66 | *.stat
67 | 


--------------------------------------------------------------------------------
/HtmlParserEx.pas:
--------------------------------------------------------------------------------
   1 | {
   2 |   Html解析器.
   3 |   最近因为用到Html解析功能.在网上找了几款Delphi版本的,结果发现解析复杂的HTML都有一些问题.
   4 |   没办法自己写了一款,经测试到现在没遇到任何解析不了的Html.
   5 | 
   6 |   wr960204 武稀松 2013
   7 | 
   8 |   http://www.raysoftware.cn/?p=370
   9 | 
  10 |   感谢牛人杨延哲在HTML语法和CSS语法方面的帮助.
  11 |   Thank Yang Yanzhe.
  12 | 
  13 |   http://www.pockhero.com/
  14 | 
  15 |   本版本只支持DelphiXE3之后的版本.如果用早期Delphi请使用HTMLParser.pas文件.
  16 |   支持Windows,MacOSX,iOS,Android平台,完全去掉了对指针的使用.防止以后易博龙去掉
  17 |   移动平台对指针的支持.
  18 | 
  19 |   脱离了对旧版本的支持,甩掉包袱开发起来真的很爽!
  20 |   
  21 | ---------------------------------------------------------------------------------
  22 | ying32修改记录
  23 | Email:1444386932@qq.com
  24 | 
  25 |  2017年06月20日
  26 | 
  27 |  1、为IHtmlElementList增加for in 语法支持
  28 | 
  29 |  2017年05月04日
  30 | 
  31 |  1、去除RegularExpressions单元的引用，不再使用TRegEx改使用RegularExpressionsCore单元中的TPerlRegEx
  32 | 
  33 |  2017年04月19日 
  34 | 
  35 |  1、增加使用XPath功能的编译指令"UseXPath"，默认不使用XPath，个人感觉没什么用  
  36 | 
  37 |  2016年11月23日
  38 | 
  39 |  1、简单支持XPath，简单的吧，利用xpath转css selector，嘿
  40 |     xpath转换的代码改自python版本：https://github.com/santiycr/cssify/blob/master/cssify.py
  41 |     另外对正则System.RegularExpressions.pas中TGroupCollection.GetItem进行了改进，没有找到命名组
  42 |     且非PCRE_ERROR_NOSUBSTRING时返回空的，而不是抛出一个异常。暂时就简单粗爆的直接改吧，官方网站
  43 |     上看到有人提过这个QC，不知道后面有没有解决。
  44 | 
  45 |  2016年11月15日
  46 | 
  47 |  IHtmlElement和THtmlElement的改变：
  48 |   1、Attributes属性增加Set方法
  49 |   2、TagName属性增加Set方法
  50 |   3、增加Parent属性
  51 |   4、增加RemoveAttr方法
  52 |   5、增加Remove方法
  53 |   6、增加RemoveChild方法
  54 |   7、增加Find方法，此为SimpleCSSSelector的一个另名
  55 |   8、_GetHtml不再直接附加FOrignal属性值，而是使用GetSelfHtml重新对修改后的元素进行赋值操作，并更新FOrignal的值
  56 |   9、增加Text属性
  57 | 
  58 |   使用例：
  59 |      EL.Attributes['class'] := 'xxxx';
  60 |      EL.TagName = 'a';
  61 |      EL.Remove 移除自己
  62 |      EL.RemoveChild(El2);
  63 | 
  64 |      El.Find('a');
  65 | 
  66 |  IHtmlElementList和THtmlElementList的改变： 
  67 |   1、增加RemoveAll方法
  68 |   2、增加Remove方法
  69 |   3、增加Each方法  
  70 |   4、增加Text属性
  71 |   // 使用例：
  72 | 
  73 |   // 移除选择的元素
  74 |   LHtml.Find('a').RemoveAll
  75 | 
  76 |   // 查找并遍沥
  77 |   LHtml.Find('a').Each(
  78 |     procedure(AIndex: Integer; AEl: IHtmlElement)
  79 |     begin
  80 |       Writeln('Index=', AIndex, ',  href=', AEl.Attributes['href']);
  81 |     end);
  82 | 
  83 |   // 直接输出，仅选中的第一个元素
  84 |   Writeln(LHtml.Find('title').Text);
  85 | 
  86 | }
  87 | 
  88 | 
  89 | unit HtmlParserEx;
  90 | 
  91 | 
  92 | {$IF RTLVersion < 24.0}
  93 |   {$MESSAGE ERROR '只支持XE3及之后的版本'}
  94 | {$ENDIF}
  95 | 
  96 | interface
  97 | 
  98 | uses
  99 |   SysUtils,
 100 |   Classes,
 101 |   Generics.Collections,
 102 |   RegularExpressionsCore;
 103 | 
 104 | {$IF (defined(IOS) and defined(CPUARM)) or defined(ANDROID)}
 105 | {$DEFINE MOBILE_DEV}
 106 | {$ENDIF}
 107 | 
 108 | const
 109 |   // By design each IHtmlElement has a TagName property, even it's a 'Text' element.
 110 |   // so cSpecialTagName_Text represents the fake tag name of a Text element
 111 |   cSpecialTagName_Text = '#TEXT';
 112 | 
 113 |   LowStrIndex = Low(string); // 移动平台=0,个人电脑平台=1
 114 | 
 115 | type
 116 | 
 117 | {$IFNDEF MSWINDOWS}
 118 |   { 接口使用WideString是为了可以给例如C++,VB等语言使用.
 119 |     但是如果离开了Windows平台,其他平台是没有WideString这个COM的数据类型的.
 120 |   }
 121 |   WideString = String;
 122 | {$ENDIF}
 123 |   IHtmlElement = interface;
 124 |   IHtmlElementList = interface;
 125 | 
 126 |   TElementEachEvent = reference to procedure(AIndex: Integer; AEl: IHtmlElement);
 127 | 
 128 |   IHtmlElement = interface
 129 |     ['{8C75239C-8CFA-499F-B115-7CEBEDFB421B}']
 130 |     function GetParent: IHtmlElement; stdcall;
 131 |     function GetTagName: WideString; stdcall;
 132 |     procedure SetTagName(Value: WideString); stdcall;
 133 |     function GetContent: WideString; stdcall;
 134 |     function GetOrignal: WideString; stdcall;
 135 |     function GetChildrenCount: Integer; stdcall;
 136 |     function GetChildren(Index: Integer): IHtmlElement; stdcall;
 137 |     function GetCloseTag: IHtmlElement; stdcall;
 138 |     function GetInnerHtml(): WideString; stdcall;
 139 |     function GetOuterHtml(): WideString; stdcall;
 140 |     function GetInnerText(): WideString; stdcall;
 141 |     procedure SetInnerText(Value: WideString); stdcall;
 142 | 
 143 |     function GetAttributes(Key: WideString): WideString; stdcall;
 144 |     procedure SetAttributes(Key: WideString; Value: WideString); stdcall;
 145 | 
 146 |     procedure RemoveAttr(AAttrName: string); stdcall;
 147 | 
 148 |     function GetSourceLineNum(): Integer; stdcall;
 149 |     function GetSourceColNum(): Integer; stdcall;
 150 | 
 151 |     // 增加移除节点
 152 |     function RemoveChild(ANode: IHtmlElement): Integer; stdcall;
 153 |     procedure Remove; stdcall;
 154 |     function AppedChild(const ATag: string): IHtmlElement; stdcall;
 155 | 
 156 |     // 属性是否存在
 157 |     function HasAttribute(AttributeName: WideString): Boolean; stdcall;
 158 |     { 用CSS选择器语法查找Element,不支持"伪类"
 159 |       CSS Selector Style search,not support Pseudo-classes.
 160 | 
 161 |       http://www.w3.org/TR/CSS2/selector.html
 162 |     }
 163 | 
 164 |     function SimpleCSSSelector(const selector: WideString): IHtmlElementList; stdcall;
 165 |     function Find(const selector: WideString): IHtmlElementList; stdcall;
 166 | 
 167 |     function FindX(const AXPath: WideString): IHtmlElementList; stdcall;
 168 | 
 169 |     // 枚举属性
 170 |     function EnumAttributeNames(Index: Integer): WideString; stdcall;
 171 | 
 172 |     property TagName: WideString read GetTagName write SetTagName;
 173 |     property ChildrenCount: Integer read GetChildrenCount;
 174 |     property Children[index: Integer]: IHtmlElement read GetChildren; default;
 175 |     property CloseTag: IHtmlElement read GetCloseTag;
 176 |     property Content: WideString read GetContent;
 177 |     property Orignal: WideString read GetOrignal;
 178 |     property Parent: IHtmlElement read GetParent;
 179 |     // 获取元素在源代码中的位置
 180 |     property SourceLineNum: Integer read GetSourceLineNum;
 181 |     property SourceColNum: Integer read GetSourceColNum;
 182 |     //
 183 |     property InnerHtml: WideString read GetInnerHtml;
 184 |     property OuterHtml: WideString read GetOuterHtml;
 185 |     property InnerText: WideString read GetInnerText write SetInnerText;
 186 |     property Text: WideString read GetInnerText write SetInnerText;
 187 | 
 188 |     property Attributes[Key: WideString]: WideString read GetAttributes write SetAttributes;
 189 |     // ying32 不改动原来的，只简化使用
 190 |     property Attrs[Key: WideString]: WideString read GetAttributes write SetAttributes;
 191 |   end;
 192 | 
 193 | 
 194 |   THtmlListEnumerator = class
 195 |   private
 196 |     FIndex: Integer;
 197 |     FList: IHtmlElementList;
 198 |   public
 199 |     constructor Create(AList: IHtmlElementList);
 200 |     function GetCurrent: IHtmlElement; inline;
 201 |     function MoveNext: Boolean;
 202 |     property Current: IHtmlElement read GetCurrent;
 203 |   end;
 204 | 
 205 |   IHtmlElementList = interface
 206 |     ['{8E1380C6-4263-4BF6-8D10-091A86D8E7D9}']
 207 |     function GetCount: Integer; stdcall;
 208 |     function GetItems(Index: Integer): IHtmlElement; stdcall;
 209 |     procedure RemoveAll; stdcall;
 210 |     procedure Remove(ANode: IHtmlElement); stdcall;
 211 |     procedure Each(f: TElementEachEvent); stdcall;
 212 |     function GetText: WideString; stdcall;
 213 |     function GetEnumerator: THtmlListEnumerator;
 214 | 
 215 |     property Text: WideString read GetText;
 216 |     property Count: Integer read GetCount;
 217 |     property Items[Index: Integer]: IHtmlElement read GetItems; default;
 218 |   end;
 219 | 
 220 | function ParserHTML(const Source: WideString): IHtmlElement; stdcall;
 221 | function DecodeHtmlEntities(S: String): string; forward;
 222 | 
 223 | implementation
 224 | uses
 225 |   StrUtils;
 226 | 
 227 | 
 228 | type
 229 |   TStringDictionary = TDictionary<string, string>;
 230 |   TPropDictionary = TDictionary<string, WORD>;
 231 |   TStringDynArray = TArray<string>;
 232 | 
 233 | const
 234 |   WhiteSpace = [' ', #13, #10, #9];
 235 |   // CSS Attribute Compare Operator
 236 |   OperatorChar = ['=', '!', '*', '~', '|', '^', '$'];
 237 |   MaxListSize = Maxint div 16;
 238 | 
 239 |   // TagProperty
 240 |   tpBlock = $01;
 241 |   tpInline = $02;
 242 |   tpEmpty = $04;
 243 |   tpFormatAsInline = $08;
 244 |   tpPreserveWhitespace = $10;
 245 | 
 246 |   tpInlineOrEmpty = tpInline or tpEmpty;
 247 | 
 248 | type
 249 | 
 250 |   TAttrOperator = (aoExist, aoEqual, aoNotEqual, aoIncludeWord, aoBeginWord,
 251 |     aoBegin, aoEnd, aoContain);
 252 | 
 253 |   PAttrSelectorItem = ^TAttrSelectorItem;
 254 | 
 255 |   TAttrSelectorItem = record
 256 |     Key: string;
 257 |     AttrOperator: TAttrOperator;
 258 |     Value: string;
 259 |   end;
 260 | 
 261 |   TSelectorItemRelation = (sirNONE, sirDescendant, sirChildren,
 262 |     sirYoungerBrother, sirAllYoungerBrother);
 263 | 
 264 |   PCSSSelectorItem = ^TCSSSelectorItem;
 265 | 
 266 |   TCSSSelectorItem = record
 267 |     Relation: TSelectorItemRelation;
 268 |     szTag: string;
 269 |     Attributes: array of TAttrSelectorItem;
 270 |   end;
 271 | 
 272 |   TCSSSelectorItems = array of TCSSSelectorItem;
 273 |   PCSSSelectorItems = ^TCSSSelectorItems;
 274 |   TCSSSelectorItemGroup = array of TCSSSelectorItems;
 275 | 
 276 |   //
 277 |   TSourceContext = record
 278 |   private
 279 |     function GetCharOfCurrent(Index: Integer): Char; inline;
 280 |   public
 281 |     Code: string;
 282 |     CodeIndex: Integer;
 283 |     LineNum: Integer;
 284 |     ColNum: Integer;
 285 |     CurrentChar: Char;
 286 | {$IFDEF DEBUG}
 287 |     currentCode: PChar;
 288 | {$ENDIF}
 289 |     procedure IncSrc(); overload; inline;
 290 |     procedure IncSrc(Step: Integer); overload; inline;
 291 |     procedure setCode(const ACode: string); inline;
 292 |     function ReadStr(UntilChars: TSysCharSet): string; inline;
 293 |     function PeekStr(Index: Integer): string; overload; inline;
 294 |     function PeekStr(): string; overload; inline;
 295 |     function subStr(Index, Count: Integer): string; overload; inline;
 296 |     function subStr(Count: Integer): string; overload; inline;
 297 |     procedure SkipBlank(); inline;
 298 |     property charOfCurrent[Index: Integer]: Char read GetCharOfCurrent;
 299 |   end;
 300 | 
 301 |   TAttributeItem = record
 302 |     Key, Value: string;
 303 |   end;
 304 | 
 305 |   TAttributeDynArray = TArray<TAttributeItem>;
 306 | 
 307 |   TIHtmlElementList = class;
 308 |   THtmlElement = class;
 309 |   THtmlElementList = TList<THtmlElement>;
 310 | 
 311 |   THtmlElement = class(TInterfacedObject, IHtmlElement)
 312 |   private
 313 |     function GetChildrens: IHtmlElementList;
 314 |   protected
 315 |     // ying32
 316 |     function GetParent: IHtmlElement; stdcall;
 317 |     function GetTagName: WideString; stdcall;
 318 |     procedure SetTagName(Value: WideString); stdcall;
 319 | 
 320 |     function GetContent: WideString; stdcall;
 321 |     function GetOrignal: WideString; stdcall;
 322 |     function GetChildrenCount: Integer; stdcall;
 323 |     function GetChildren(Index: Integer): IHtmlElement; stdcall;
 324 |     function GetCloseTag: IHtmlElement; stdcall;
 325 |     function GetInnerHtml(): WideString; stdcall;
 326 |     function GetOuterHtml(): WideString; stdcall;
 327 |     function GetInnerText(): WideString; stdcall;
 328 |     procedure SetInnerText(Value: WideString); stdcall;
 329 | 
 330 |     function GetAttributes(Key: WideString): WideString; stdcall;
 331 |     procedure SetAttributes(Key: WideString; Value: WideString); stdcall;
 332 | 
 333 |     procedure RemoveAttr(AAttrName: string); stdcall;
 334 | 
 335 |     function GetSourceLineNum(): Integer; stdcall;
 336 |     function GetSourceColNum(): Integer; stdcall;
 337 | 
 338 |     // ying32添加
 339 |     function RemoveChild(ANode: IHtmlElement): Integer; stdcall;
 340 |     procedure Remove; stdcall;
 341 |     function AppedChild(const ATag: string): IHtmlElement; stdcall;
 342 | 
 343 | 
 344 |     // 属性是否存在
 345 |     function HasAttribute(AttributeName: WideString): Boolean; stdcall;
 346 |     { 用CSS选择器语法查找Element,不支持"伪类"
 347 |       CSS Selector Style search,not support Pseudo-classes.
 348 | 
 349 |       http://www.w3.org/TR/CSS2/selector.html
 350 |     }
 351 | 
 352 |     function SimpleCSSSelector(const selector: WideString): IHtmlElementList; stdcall;
 353 |     function Find(const selector: WideString): IHtmlElementList; stdcall;
 354 | 
 355 |     function FindX(const AXPath: WideString): IHtmlElementList; stdcall;
 356 |     // 枚举属性
 357 |     function EnumAttributeNames(Index: Integer): WideString; stdcall;
 358 | 
 359 |     property TagName: WideString read GetTagName write SetTagName;
 360 |     property ChildrenCount: Integer read GetChildrenCount;
 361 |     property Children[index: Integer]: IHtmlElement read GetChildren; default;
 362 |     property CloseTag: IHtmlElement read GetCloseTag;
 363 |     property Content: WideString read GetContent;
 364 |     property Orignal: WideString read GetOrignal;
 365 |     property Parent: IHtmlElement read GetParent;
 366 |     // 获取元素在源代码中的位置
 367 |     property SourceLineNum: Integer read GetSourceLineNum;
 368 |     property SourceColNum: Integer read GetSourceColNum;
 369 |     //
 370 |     property InnerHtml: WideString read GetInnerHtml;
 371 |     property OuterHtml: WideString read GetOuterHtml;
 372 |     property InnerText: WideString read GetInnerText;
 373 | 
 374 |     property Attributes[Key: WideString]: WideString read GetAttributes write SetAttributes;
 375 | 
 376 |     property Childrens: IHtmlElementList read GetChildrens;
 377 |   private
 378 |     // xpath to css, by:ying32
 379 |     FValidationRe: TPerlRegEx;
 380 |     FClosed: Boolean;
 381 |     //
 382 |     FOwner: THtmlElement;
 383 |     FCloseTag: IHtmlElement;
 384 |     FTagName: string;
 385 |     FIsCloseTag: Boolean;
 386 |     FContent: string;
 387 |     FOrignal: string;
 388 |     FSourceLine: Integer;
 389 |     FSourceCol: Integer;
 390 |     //
 391 |     FAttributes: TStringDictionary;
 392 |     FChildren: TIHtmlElementList;
 393 |     procedure _GetHtml(IncludeSelf: Boolean; Sb: TStringBuilder);
 394 |     procedure _GetText(IncludeSelf: Boolean; Sb: TStringBuilder);
 395 |     procedure _SimpleCSSSelector(const ItemGroup: TCSSSelectorItemGroup; r: TIHtmlElementList);
 396 |     procedure _Select(Item: PCSSSelectorItem; Count: Integer; r: TIHtmlElementList; OnlyTopLevel: Boolean = false);
 397 | 
 398 |     // by:yin32 添加
 399 |     procedure InitXPathRegExPattern;
 400 |     /// <summary>
 401 |     ///    利用正则提取xpath并转为css选择器 
 402 |     ///   转换代码来自python:https://github.com/santiycr/cssify/blob/master/cssify.py
 403 |     /// </summary>
 404 |     function XPathToCSSSelector(const AXPath: string): string;
 405 |   public
 406 |     constructor Create(AOwner: THtmlElement; AText: string; ALine, ACol: Integer);
 407 |     destructor Destroy; override;
 408 |   end;
 409 | 
 410 |   TIHtmlElementList = class(TInterfacedObject, IHtmlElementList)
 411 |   private
 412 |     // IHtmlElementList
 413 |     function GetItems(Index: Integer): IHtmlElement; stdcall;
 414 |     function GetCount: Integer; stdcall;
 415 |   protected
 416 |     FList: TList<IHtmlElement>;
 417 |     procedure SetItems(Index: Integer; const Value: IHtmlElement); inline;
 418 |     function Add(Value: IHtmlElement): Integer; inline;
 419 |     procedure Delete(Index: Integer); inline;
 420 |     procedure Clear; inline;
 421 |     // ying32添加
 422 |     procedure RemoveAll; stdcall;
 423 |     procedure Remove(ANode: IHtmlElement); stdcall;
 424 |     procedure Each(f: TElementEachEvent); stdcall;
 425 |     function GetText: WideString; stdcall;
 426 |   public
 427 |     constructor Create;
 428 |     destructor Destroy; override;
 429 | 
 430 |     function GetEnumerator: THtmlListEnumerator;
 431 | 
 432 |     function IndexOf(Item: IHtmlElement): Integer;
 433 |     // IHtmlElementList
 434 |     property Items[index: Integer]: IHtmlElement read GetItems write SetItems; default;
 435 |     property Count: Integer read GetCount;
 436 |   end;
 437 | 
 438 | function SplitStr(ACharSet: TSysCharSet; AStr: string): TStringDynArray;
 439 | var
 440 |   L, I: Integer;
 441 |   S: string;
 442 |   StrChar: Char;
 443 | begin
 444 |   Result := nil;
 445 |   if Length(AStr) <= 0 then
 446 |     Exit;
 447 | 
 448 |   I := Low(AStr);
 449 |   L := Low(AStr);
 450 |   StrChar := #0;
 451 |   while I <= High(AStr) do
 452 |   begin
 453 |     if CharInSet(AStr[I], ['''', '"']) then
 454 |       if StrChar = #0 then
 455 |         StrChar := AStr[I]
 456 |       else if StrChar = AStr[I] then
 457 |         StrChar := #0;
 458 |     // 不在字符串中,分隔符才生效
 459 |     if StrChar = #0 then
 460 |       if CharInSet(AStr[I], ACharSet) then
 461 |       begin
 462 |         if I > L then
 463 |         begin
 464 |           S := Copy(AStr, L{$IF (LowStrIndex = 0)} + 1{$ENDIF}, I - L);
 465 |           SetLength(Result, Length(Result) + 1);
 466 |           Result[Length(Result) - 1] := S;
 467 |         end;
 468 |         L := I + 1;
 469 |       end;
 470 |     Inc(I);
 471 |   end;
 472 |   if (I > L) then
 473 |   begin
 474 |     S := Copy(AStr, L{$IF (LowStrIndex = 0)} + 1{$ENDIF}, I - L);
 475 |     SetLength(Result, Length(Result) + 1);
 476 |     Result[Length(Result) - 1] := S;
 477 |   end;
 478 | end;
 479 | 
 480 | function StrRight(const Value: string; Count: Integer): string;
 481 | var
 482 |   start: Integer;
 483 | begin
 484 |   start := Length(Value) - Count + 1;
 485 |   if start <= 0 then
 486 |     Result := Value
 487 |   else
 488 |     Result := Copy(Value, start, Count);
 489 | end;
 490 | 
 491 | function StrLeft(const Value: string; Count: Integer): string;
 492 | begin
 493 |   Result := Copy(Value, LowStrIndex, Count);
 494 | end;
 495 | 
 496 | 
 497 | // ComapreAttr
 498 | 
 499 | function _aoExist(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 500 | begin
 501 |   Result := E.FAttributes.ContainsKey(Item.Key);
 502 | end;
 503 | 
 504 | function _aoEqual(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 505 | begin
 506 |   Result := E.FAttributes.ContainsKey(Item.Key) and
 507 |     (E.FAttributes[Item.Key] = Item.Value);
 508 | end;
 509 | 
 510 | function _aoNotEqual(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 511 | begin
 512 |   Result := E.FAttributes.ContainsKey(Item.Key) and
 513 |     (E.FAttributes[Item.Key] <> Item.Value);
 514 | end;
 515 | 
 516 | function _aoIncludeWord(const Item: TAttrSelectorItem; E: THtmlElement)
 517 |   : Boolean;
 518 | var
 519 |   S: TStringDynArray;
 520 |   I: Integer;
 521 | begin
 522 |   Result := false;
 523 |   if not E.FAttributes.ContainsKey(Item.Key) then
 524 |     Exit;
 525 |   Result := True;
 526 |   S := SplitStr(WhiteSpace, E.FAttributes[Item.Key]);
 527 |   for I := Low(S) to High(S) do
 528 |     if S[I] = Item.Value then
 529 |       Exit;
 530 |   Result := false;
 531 | end;
 532 | 
 533 | function _aoBeginWord(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 534 | var
 535 |   S: TStringDynArray;
 536 |   I: Integer;
 537 | begin
 538 |   Result := false;
 539 |   if not E.FAttributes.ContainsKey(Item.Key) then
 540 |     Exit;
 541 |   S := SplitStr((WhiteSpace + ['_', '-']), E.FAttributes[Item.Key]);
 542 |   Result := (Length(S) > 0) and (S[0] = Item.Value);
 543 | end;
 544 | 
 545 | function _aoBegin(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 546 | var
 547 |   attr, Value: string;
 548 | begin
 549 |   Result := false;
 550 |   if not E.FAttributes.ContainsKey(Item.Key) then
 551 |     Exit;
 552 |   attr := E.FAttributes[Item.Key];
 553 |   Value := Item.Value;
 554 |   Result := (Length(attr) > Length(Value)) and
 555 |     (StrLeft(attr, Length(Value)) = Value);
 556 | end;
 557 | 
 558 | function _aoEnd(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 559 | var
 560 |   attr, Value: string;
 561 | begin
 562 |   Result := false;
 563 |   if not E.FAttributes.ContainsKey(Item.Key) then
 564 |     Exit;
 565 |   attr := E.FAttributes[Item.Key];
 566 |   Value := Item.Value;
 567 |   Result := (Length(attr) > Length(Value)) and
 568 |     (StrRight(attr, Length(Value)) = Value);
 569 | end;
 570 | 
 571 | function _aoContain(const Item: TAttrSelectorItem; E: THtmlElement): Boolean;
 572 | begin
 573 |   Result := false;
 574 |   if not E.FAttributes.ContainsKey(Item.Key) then
 575 |     Exit;
 576 |   Result := Pos(Item.Value, E.FAttributes[Item.Key]) > 0;
 577 | end;
 578 | 
 579 | type
 580 |   TFNCompareAttr = function(const Item: TAttrSelectorItem;
 581 |     E: THtmlElement): Boolean;
 582 | 
 583 | const
 584 |   AttrCompareFuns: array [TAttrOperator] of TFNCompareAttr = (_aoExist,
 585 |     _aoEqual, _aoNotEqual, _aoIncludeWord, _aoBeginWord, _aoBegin, _aoEnd,
 586 |     _aoContain);
 587 | 
 588 | function GetTagProperty(const TagName: string): WORD; forward;
 589 | 
 590 | procedure DoError(const Msg: string);
 591 | begin
 592 |   raise Exception.Create(Msg);
 593 | end;
 594 | 
 595 | procedure _ParserAttrs(var sc: TSourceContext; var Attrs: TAttributeDynArray);
 596 | var
 597 |   Item: TAttributeItem;
 598 | begin
 599 |   SetLength(Attrs, 0);
 600 |   while True do
 601 |   begin
 602 |     sc.SkipBlank();
 603 |     if sc.CurrentChar = #0 then
 604 |       Break;
 605 |     Item.Key := sc.ReadStr((WhiteSpace + [#0, '=']));
 606 |     Item.Value := '';
 607 |     sc.SkipBlank;
 608 |     if sc.CurrentChar = '=' then
 609 |     begin
 610 |       sc.IncSrc;
 611 |       sc.SkipBlank;
 612 |       Item.Value := sc.ReadStr((WhiteSpace + [#0]));
 613 |     end;
 614 |     SetLength(Attrs, Length(Attrs) + 1);
 615 |     Attrs[Length(Attrs) - 1] := Item;
 616 |   end;
 617 | end;
 618 | 
 619 | procedure _ParserNodeItem(S: string; var ATagName: string;
 620 |   var Attrs: TAttributeDynArray);
 621 | var
 622 |   sc: TSourceContext;
 623 | begin
 624 |   sc.setCode(S);
 625 |   sc.SkipBlank;
 626 | 
 627 |   ATagName := UpperCase(sc.ReadStr((WhiteSpace + [#0, '/', '>'])));
 628 | 
 629 |   _ParserAttrs(sc, Attrs);
 630 | end;
 631 | 
 632 | function CreateTextElement(AOwner: THtmlElement; AText: string;
 633 |   ALine, ACol: Integer): THtmlElement;
 634 | begin
 635 |   Result := THtmlElement.Create(AOwner, AText, ALine, ACol);
 636 |   with Result do
 637 |   begin
 638 |     // Edwin: 2019-07-08: html entities in the text element shouldn't be decoded?
 639 |     //FContent := DecodeHtmlEntities(AText);
 640 |     FContent := AText;
 641 |     FTagName := cSpecialTagName_Text;
 642 |     FClosed := True;
 643 |   end;
 644 | end;
 645 | 
 646 | function CreateScriptElement(AOwner: THtmlElement; AText: string;
 647 |   ALine, ACol: Integer): THtmlElement;
 648 | begin
 649 |   Result := THtmlElement.Create(AOwner, AText, ALine, ACol);
 650 |   with Result do
 651 |   begin
 652 |     // Edwin: 2019-07-09: html entities in scripts shouldn't be decoded?
 653 |     //FContent := DecodeHtmlEntities(AText);
 654 |     FContent := AText;
 655 |     FTagName := '#SCRIPT';
 656 |     FClosed := True;
 657 |   end;
 658 | end;
 659 | 
 660 | function CreateStyleElement(AOwner: THtmlElement; AText: string;
 661 |   ALine, ACol: Integer): THtmlElement;
 662 | begin
 663 |   Result := THtmlElement.Create(AOwner, AText, ALine, ACol);
 664 |   with Result do
 665 |   begin
 666 |     // Edwin: 2019-07-09: html entities in <style> tags shouldn't be decoded?
 667 |     //FContent := DecodeHtmlEntities(AText);
 668 |     FContent := AText;
 669 |     FTagName := '#STYLE';
 670 |     FClosed := True;
 671 |   end;
 672 | end;
 673 | 
 674 | function CreateCommentElement(AOwner: THtmlElement; AText: string;
 675 |   ALine, ACol: Integer): THtmlElement;
 676 | begin
 677 |   Result := THtmlElement.Create(AOwner, AText, ALine, ACol);
 678 |   with Result do
 679 |   begin
 680 |     // Edwin: 2019-07-09: html entities in comments shouldn't be decoded?
 681 |     //FContent := DecodeHtmlEntities(AText);
 682 |     FContent := AText;
 683 |     FTagName := '#COMMENT';
 684 |     FClosed := True;
 685 |   end;
 686 | end;
 687 | 
 688 | function CreateTagElement(AOwner: THtmlElement; AText: string;
 689 |   ALine, ACol: Integer): THtmlElement;
 690 | var
 691 |   Strs: TStringDynArray;
 692 |   I: Integer;
 693 |   Attrs: TAttributeDynArray;
 694 | begin
 695 |   Result := THtmlElement.Create(AOwner, AText, ALine, ACol);
 696 |   with Result do
 697 |   begin
 698 |     // TODO 解析TagName和属性
 699 |     if AText = '' then
 700 |       Exit;
 701 |     // 去掉两头的<
 702 | 
 703 |     if AText[Low(AText)] = '<' then
 704 |       AText := StrRight(AText, Length(AText) - 1);
 705 | 
 706 |     if AText = '' then
 707 |       Exit;
 708 |     if AText[High(AText)] = '>' then
 709 |       AText := StrLeft(AText, Length(AText) - 1);
 710 |     // 检查是关闭节点,还是单个已经关闭的节点
 711 |     if AText = '' then
 712 |       Exit;
 713 |     FClosed := AText[High(AText)] = '/';
 714 | 
 715 |     FIsCloseTag := AText[LowStrIndex] = '/';
 716 | 
 717 |     if FIsCloseTag then
 718 |       AText := StrRight(AText, Length(AText) - 1);
 719 |     if FClosed then
 720 |       AText := StrLeft(AText, Length(AText) - 1);
 721 |     //
 722 |     _ParserNodeItem(AText, FTagName, Attrs);
 723 |     for I := Low(Attrs) to High(Attrs) do
 724 |       FAttributes.AddOrSetValue(LowerCase(Attrs[I].Key),
 725 |         DecodeHtmlEntities(Attrs[I].Value));
 726 |   end;
 727 | end;
 728 | 
 729 | function CreateDocTypeElement(AOwner: THtmlElement; AText: string;
 730 |   ALine, ACol: Integer): THtmlElement;
 731 | begin
 732 |   Result := THtmlElement.Create(AOwner, AText, ALine, ACol);
 733 |   with Result do
 734 |   begin
 735 |     FContent := DecodeHtmlEntities(AText);
 736 |     FTagName := '#DOCTYPE';
 737 |     FClosed := True;
 738 |     if FContent = '' then
 739 |       Exit;
 740 |     if FContent[1] = '<' then
 741 |       Delete(FContent, 1, 1);
 742 |     if FContent = '' then
 743 |       Exit;
 744 |     if FContent[Length(FContent)] = '>' then
 745 |       Delete(FContent, Length(FContent), 1);
 746 |     FContent := Trim(Copy(Trim(FContent), 9, Length(FContent)));
 747 |   end;
 748 | end;
 749 | 
 750 | procedure _ParserHTML(const Source: string; AElementList: THtmlElementList);
 751 | var
 752 |   BeginLineNum, BeginColNum: Integer;
 753 |   sc: TSourceContext;
 754 | 
 755 |   function IsEndOfTag(TagName: string): Boolean;
 756 |   begin
 757 |     Result := false;
 758 |     if sc.charOfCurrent[1] = '/' then
 759 |     begin
 760 |       Result := UpperCase(sc.subStr(sc.CodeIndex + 2, Length(TagName)))
 761 |         = UpperCase(TagName);
 762 |     end;
 763 |   end;
 764 | 
 765 |   function PosCharInTag(AChar: Char): Boolean;
 766 |   var
 767 |     StrChar: Char;
 768 |   begin
 769 |     Result := false;
 770 |     StrChar := #0;
 771 |     while True do
 772 |     begin
 773 |       if sc.CurrentChar = #0 then
 774 |         Break;
 775 |       if sc.CurrentChar = '"' then
 776 |       begin
 777 |         if StrChar = #0 then
 778 |           StrChar := sc.CurrentChar
 779 |         else
 780 |           StrChar := #0;
 781 |       end;
 782 | 
 783 |       if (sc.CurrentChar = AChar) and (StrChar = #0) then
 784 |       begin
 785 |         Result := True;
 786 |         Break;
 787 |       end;
 788 |       sc.IncSrc;
 789 |     end;
 790 |   end;
 791 | 
 792 |   function ParserStyleData(): string;
 793 |   var
 794 |     oldIndex: Integer;
 795 |   begin
 796 |     oldIndex := sc.CodeIndex;
 797 |     if sc.subStr(4) = '<!--' then
 798 |     begin
 799 |       sc.IncSrc(5);
 800 |       while True do
 801 |       begin
 802 |         if sc.CurrentChar = #0 then
 803 |           DoError(Format('未完结的Style行:%d;列:%d;', [sc.LineNum, sc.ColNum]))
 804 |         else if sc.CurrentChar = '>' then
 805 |         begin
 806 |           if (sc.charOfCurrent[-1] = '-') and (sc.charOfCurrent[-2] = '-') then
 807 |           begin
 808 |             sc.IncSrc;
 809 |             sc.SkipBlank();
 810 |             Break;
 811 |           end;
 812 |         end;
 813 |         sc.IncSrc;
 814 |       end;
 815 |     end
 816 |     else
 817 |       while True do
 818 |       begin
 819 |         case sc.CurrentChar of
 820 |           #0:
 821 |             begin
 822 |               Break;
 823 |             end;
 824 |           '<':
 825 |             begin
 826 |               if IsEndOfTag('style') then
 827 |               begin
 828 |                 Break;
 829 |               end;
 830 |             end;
 831 |         end;
 832 |         sc.IncSrc;
 833 |       end;
 834 |     Result := sc.subStr(oldIndex, sc.CodeIndex - oldIndex);
 835 |   end;
 836 | 
 837 |   function ParserScriptData(): string;
 838 |   var
 839 |     oldIndex: Integer;
 840 |     stringChar: Char;
 841 |     PreIsblique: Boolean;
 842 |   begin
 843 |     oldIndex := sc.CodeIndex;
 844 |     stringChar := #0;
 845 |     sc.SkipBlank();
 846 |     if sc.subStr(4) = '<!--' then
 847 |     begin
 848 |       sc.IncSrc(5);
 849 |       while True do
 850 |       begin
 851 |         if sc.CurrentChar = #0 then
 852 |           DoError(Format('未完结的Script行:%d;列:%d;', [sc.LineNum, sc.ColNum]))
 853 |         else if sc.CurrentChar = '>' then
 854 |         begin
 855 |           if (sc.charOfCurrent[-1] = '-') and (sc.charOfCurrent[-2] = '-') then
 856 |           begin
 857 |             sc.IncSrc;
 858 |             sc.SkipBlank();
 859 |             Break;
 860 |           end;
 861 |         end;
 862 |         sc.IncSrc;
 863 |       end;
 864 |     end
 865 |     else
 866 |     begin
 867 |       while True do
 868 |       begin
 869 |         case sc.CurrentChar of
 870 |           #0:
 871 |             Break;
 872 |           '"', '''': // 字符串
 873 |             begin
 874 |               stringChar := sc.CurrentChar;
 875 |               PreIsblique := false;
 876 |               sc.IncSrc();
 877 |               while True do
 878 |               begin
 879 |                 if sc.CurrentChar = #0 then
 880 |                   Break;
 881 |                 if (sc.CurrentChar = stringChar) and (not PreIsblique) then
 882 |                   Break;
 883 |                 if sc.CurrentChar = '\' then
 884 |                   PreIsblique := not PreIsblique
 885 |                 else
 886 |                   PreIsblique := false;
 887 |                 sc.IncSrc;
 888 |               end;
 889 |             end;
 890 |           '/': // 注释
 891 |             begin
 892 |               sc.IncSrc();
 893 |               case sc.CurrentChar of
 894 |                 '/': // 行注释
 895 |                   begin
 896 |                     while True do
 897 |                     begin
 898 |                       if CharInSet(sc.CurrentChar, [#0, #$0A]) then
 899 |                       begin
 900 |                         Break;
 901 |                       end;
 902 |                       sc.IncSrc();
 903 |                     end;
 904 |                   end;
 905 |                 '*': // 块注释
 906 |                   begin
 907 |                     sc.IncSrc();
 908 |                     sc.IncSrc();
 909 |                     while True do
 910 |                     begin
 911 |                       if sc.CurrentChar = #0 then
 912 |                         Break;
 913 |                       if (sc.CurrentChar = '/') and (sc.charOfCurrent[-1] = '*')
 914 |                       then
 915 |                       begin
 916 |                         Break;
 917 |                       end;
 918 |                       sc.IncSrc();
 919 |                     end;
 920 |                   end;
 921 |               end;
 922 |             end;
 923 |           '<':
 924 |             begin
 925 |               if IsEndOfTag('script') then
 926 |               begin
 927 |                 Break;
 928 |               end;
 929 |             end;
 930 |         end;
 931 |         sc.IncSrc();
 932 |       end;
 933 |     end;
 934 |     Result := sc.subStr(oldIndex, sc.CodeIndex - oldIndex)
 935 |   end;
 936 | 
 937 | var
 938 |   ElementType: (EtUnknow, EtTag, EtDocType, EtText, EtComment);
 939 |   OldCodeIndex: Integer;
 940 |   tmp: string;
 941 |   Tag: THtmlElement;
 942 | begin
 943 |   sc.setCode(Source);
 944 |   while sc.CodeIndex <= high(sc.Code) do
 945 |   begin
 946 |     ElementType := EtUnknow;
 947 |     OldCodeIndex := sc.CodeIndex;
 948 |     BeginLineNum := sc.LineNum;
 949 |     BeginColNum := sc.ColNum;
 950 |     if sc.CurrentChar = #0 then
 951 |       Break;
 952 |     // "<"开头的就是Tag之类的
 953 |     if sc.CurrentChar = '<' then
 954 |     begin
 955 |       sc.IncSrc;
 956 |       if sc.CurrentChar = '!' then // 注释
 957 |       begin
 958 |         ElementType := EtComment;
 959 |         sc.IncSrc;
 960 |         case sc.CurrentChar of
 961 |           '-': // <!--  -->
 962 |             begin
 963 |               sc.IncSrc; // -
 964 |               while True do
 965 |               begin
 966 |                 if not PosCharInTag('>') then
 967 |                   DoError('LineNum:' + IntToStr(BeginLineNum) + '无法找到Tag结束点:' +
 968 |                     sc.subStr(100))
 969 |                 else if (sc.charOfCurrent[-1] = '-') and
 970 |                   (sc.charOfCurrent[-2] = '-') then
 971 |                 begin
 972 |                   sc.IncSrc;
 973 |                   Break;
 974 |                 end;
 975 |                 sc.IncSrc;
 976 |               end;
 977 |             end;
 978 |           '[': // <![CDATA[.....]]>
 979 |             begin
 980 |               sc.IncSrc; //
 981 |               while True do
 982 |               begin
 983 |                 if not PosCharInTag('>') then
 984 |                   DoError('LineNum:' + IntToStr(BeginLineNum) + '无法找到Tag结束点:' +
 985 |                     sc.subStr(100))
 986 |                 else if (sc.charOfCurrent[-1] = ']') then
 987 |                 begin
 988 |                   sc.IncSrc;
 989 |                   Break;
 990 |                 end;
 991 |                 sc.IncSrc;
 992 |               end;
 993 |             end;
 994 |         else // <!.....>
 995 |           begin
 996 |             if UpperCase(sc.PeekStr()) = 'DOCTYPE' then
 997 |             begin
 998 |               ElementType := EtDocType;
 999 |               sc.IncSrc; //
1000 |               if PosCharInTag('>') then
1001 |                 sc.IncSrc
1002 |               else
1003 |                 DoError('LineNum:' + IntToStr(BeginLineNum) + '无法找到Tag结束点:' +
1004 |                   sc.subStr(100));
1005 |             end
1006 |             else
1007 |             begin
1008 |               sc.IncSrc; //
1009 |               if PosCharInTag('>') then
1010 |                 sc.IncSrc
1011 |               else
1012 |                 DoError('LineNum:' + IntToStr(BeginLineNum) + '无法找到Tag结束点:' +
1013 |                   sc.subStr(100));
1014 |             end;
1015 |           end;
1016 |         end;
1017 | 
1018 |       end
1019 |       else if sc.CurrentChar = '?' then // <?...?>  XML
1020 |       begin
1021 |         ElementType := EtComment;
1022 |         sc.IncSrc; //
1023 |         while True do
1024 |         begin
1025 |           if not PosCharInTag('>') then
1026 |             DoError('LineNum:' + IntToStr(BeginLineNum) + '无法找到Tag结束点:' +
1027 |               sc.subStr(100))
1028 |           else if (sc.charOfCurrent[-1] = '?') then
1029 |           begin
1030 |             sc.IncSrc;
1031 |             Break;
1032 |           end;
1033 |           sc.IncSrc;
1034 |         end;
1035 |       end
1036 |       else // 正常节点
1037 |       begin
1038 |         ElementType := EtTag;
1039 |         sc.IncSrc;
1040 |         if PosCharInTag('>') then
1041 |           sc.IncSrc
1042 |         else
1043 |           DoError('LineNum:' + IntToStr(BeginLineNum) + '无法找到Tag结束点:' +
1044 |             sc.subStr(100));
1045 |       end;
1046 |       tmp := sc.subStr(OldCodeIndex, sc.CodeIndex - OldCodeIndex);
1047 |     end
1048 |     else // 不是"<"开头的 那就是纯文本节点
1049 |     begin
1050 |       ElementType := EtText;
1051 |       while True do
1052 |       begin
1053 |         if CharInSet(sc.CurrentChar, [#0, '<']) then
1054 |           Break;
1055 |         sc.IncSrc;
1056 |       end;
1057 |       tmp := sc.subStr(OldCodeIndex, sc.CodeIndex - OldCodeIndex);
1058 |     end;
1059 |     //
1060 |     // ShowMessage(sc.subStr(30));
1061 |     case ElementType of
1062 |       EtUnknow:
1063 |         begin
1064 |           DoError('LineNum:' + IntToStr(BeginLineNum) + '无法解析的内容:' +
1065 |             sc.subStr(100));
1066 |         end;
1067 |       EtDocType:
1068 |         begin
1069 |           Tag := CreateDocTypeElement(nil, tmp, BeginLineNum, BeginColNum);
1070 |           AElementList.Add(Tag);
1071 |         end;
1072 |       EtTag:
1073 |         begin
1074 |           Tag := CreateTagElement(nil, tmp, BeginLineNum, BeginColNum);
1075 |           AElementList.Add(Tag);
1076 |           //
1077 |           if (UpperCase(Tag.FTagName) = 'SCRIPT') and (not Tag.FIsCloseTag) and
1078 |             (not Tag.FClosed) then
1079 |           begin
1080 |             // 读取Script
1081 |             BeginLineNum := sc.LineNum;
1082 |             BeginColNum := sc.ColNum;
1083 |             tmp := ParserScriptData();
1084 |             Tag := CreateScriptElement(nil, tmp, BeginLineNum, BeginColNum);
1085 |             AElementList.Add(Tag);
1086 |           end
1087 |           else if (UpperCase(Tag.FTagName) = 'STYLE') and (not Tag.FIsCloseTag)
1088 |             and (not Tag.FClosed) then
1089 |           begin
1090 |             // 读取Style
1091 |             BeginLineNum := sc.LineNum;
1092 |             BeginColNum := sc.ColNum;
1093 |             tmp := ParserStyleData();
1094 |             Tag := CreateStyleElement(nil, tmp, BeginLineNum, BeginColNum);
1095 |             AElementList.Add(Tag);
1096 |           end;
1097 |         end;
1098 |       EtText:
1099 |         begin
1100 |           Tag := CreateTextElement(nil, tmp, BeginLineNum, BeginColNum);
1101 |           Tag.FSourceLine := BeginLineNum;
1102 |           Tag.FSourceCol := BeginColNum;
1103 |           AElementList.Add(Tag);
1104 |         end;
1105 |       EtComment:
1106 |         begin
1107 |           Tag := CreateCommentElement(nil, tmp, BeginLineNum, BeginColNum);
1108 |           Tag.FSourceLine := BeginLineNum;
1109 |           Tag.FSourceCol := BeginColNum;
1110 |           AElementList.Add(Tag);
1111 |         end;
1112 |     end;
1113 |   end;
1114 |   //
1115 | 
1116 |   //
1117 | end;
1118 | 
1119 | function BuildTree(ElementList: THtmlElementList): THtmlElement;
1120 | var
1121 |   I, J: Integer;
1122 |   E: THtmlElement;
1123 |   T: THtmlElement;
1124 |   FoundIndex: Integer;
1125 |   TagProperty: WORD;
1126 | begin
1127 |   Result := THtmlElement.Create(nil, '', 0, 0);
1128 |   Result.FTagName := '#DOCUMENT';
1129 |   Result.FClosed := false;
1130 |   ElementList.Insert(0, Result);
1131 | 
1132 |   I := 1;
1133 |   while I < ElementList.Count do
1134 |   begin
1135 |     E := ElementList[I] as THtmlElement;
1136 |     TagProperty := GetTagProperty(E.FTagName);
1137 | 
1138 |     // 空节点,往下找,如果下一个带Tag的节点不是它的关闭节点,那么自动关闭
1139 |     FoundIndex := -1;
1140 |     if E.FIsCloseTag then
1141 |     begin
1142 |       for J := (I - 1) downto 0 do
1143 |       begin
1144 |         T := ElementList[J] as THtmlElement;
1145 |         if (not T.FClosed) and (T.FTagName = E.FTagName) and (not T.FIsCloseTag)
1146 |         then
1147 |         begin
1148 |           FoundIndex := J;
1149 |           Break;
1150 |         end;
1151 |       end;
1152 |       // 如果往上找,找不到的话这个关闭Tag肯定是无意义的.
1153 |       if FoundIndex > 0 then
1154 |       begin
1155 |         for J := (I - 1) downto FoundIndex do
1156 |         begin
1157 |           T := ElementList[J] as THtmlElement;
1158 |           T.FClosed := True;
1159 |         end;
1160 |         (ElementList[FoundIndex] as THtmlElement).FCloseTag := E;
1161 |       end
1162 |       else
1163 |       begin
1164 |         E.Free;
1165 |       end;
1166 |       ElementList.Delete(I);
1167 |       Continue;
1168 |     end
1169 |     else
1170 |     begin
1171 |       for J := (I - 1) downto 0 do
1172 |       begin
1173 |         T := ElementList[J] as THtmlElement;
1174 |         if not T.FClosed then
1175 |         begin
1176 |           if ((GetTagProperty(T.FTagName) and tpEmpty) <> 0) then
1177 |             T.FClosed := True
1178 |           else
1179 |           begin
1180 |             T.FChildren.Add(E);
1181 |             E.FOwner := T;
1182 |             Break;
1183 |           end;
1184 |         end;
1185 |       end;
1186 |     end;
1187 |     Inc(I);
1188 |   end;
1189 |   Result.FClosed := True;
1190 | end;
1191 | 
1192 | function ParserHTML(const Source: WideString): IHtmlElement; stdcall;
1193 | var
1194 |   ElementList: THtmlElementList;
1195 | begin
1196 |   ElementList := THtmlElementList.Create;
1197 |   _ParserHTML(Source, ElementList);
1198 |   Result := BuildTree(ElementList);
1199 |   ElementList.Free;
1200 | end;
1201 | {$REGION '转换表之类的'}
1202 | 
1203 | var
1204 |   gEntities: TStringDictionary;
1205 | 
1206 | type
1207 |   TEntityItem = record
1208 |     Key: string;
1209 |     Value: WideChar;
1210 |   end;
1211 | 
1212 | const
1213 |   EntityTable: array [0 .. 252 - 1] of TEntityItem = ((Key: '&nbsp;';
1214 |     Value: #32), (Key: '&iexcl;'; Value: WideChar(161)),
1215 |     (Key: '&cent;'; Value: WideChar(162)), (Key: '&pound;';
1216 |     Value: WideChar(163)), (Key: '&curren;'; Value: WideChar(164)),
1217 |     (Key: '&yen;'; Value: WideChar(165)), (Key: '&brvbar;';
1218 |     Value: WideChar(166)), (Key: '&sect;'; Value: WideChar(167)), (Key: '&uml;';
1219 |     Value: WideChar(168)), (Key: '&copy;'; Value: WideChar(169)),
1220 |     (Key: '&ordf;'; Value: WideChar(170)), (Key: '&laquo;';
1221 |     Value: WideChar(171)), (Key: '&not;'; Value: WideChar(172)), (Key: '&shy;';
1222 |     Value: WideChar(173)), (Key: '&reg;'; Value: WideChar(174)), (Key: '&macr;';
1223 |     Value: WideChar(175)), (Key: '&deg;'; Value: WideChar(176)),
1224 |     (Key: '&plusmn;'; Value: WideChar(177)), (Key: '&sup2;';
1225 |     Value: WideChar(178)), (Key: '&sup3;'; Value: WideChar(179)),
1226 |     (Key: '&acute;'; Value: WideChar(180)), (Key: '&micro;';
1227 |     Value: WideChar(181)), (Key: '&para;'; Value: WideChar(182)),
1228 |     (Key: '&middot;'; Value: WideChar(183)), (Key: '&cedil;';
1229 |     Value: WideChar(184)), (Key: '&sup1;'; Value: WideChar(185)),
1230 |     (Key: '&ordm;'; Value: WideChar(186)), (Key: '&raquo;';
1231 |     Value: WideChar(187)), (Key: '&frac14;'; Value: WideChar(188)),
1232 |     (Key: '&frac12;'; Value: WideChar(189)), (Key: '&frac34;';
1233 |     Value: WideChar(190)), (Key: '&iquest;'; Value: WideChar(191)),
1234 |     (Key: '&Agrave;'; Value: WideChar(192)), (Key: '&Aacute;';
1235 |     Value: WideChar(193)), (Key: '&Acirc;'; Value: WideChar(194)),
1236 |     (Key: '&Atilde;'; Value: WideChar(195)), (Key: '&Auml;';
1237 |     Value: WideChar(196)), (Key: '&Aring;'; Value: WideChar(197)),
1238 |     (Key: '&AElig;'; Value: WideChar(198)), (Key: '&Ccedil;';
1239 |     Value: WideChar(199)), (Key: '&Egrave;'; Value: WideChar(200)),
1240 |     (Key: '&Eacute;'; Value: WideChar(201)), (Key: '&Ecirc;';
1241 |     Value: WideChar(202)), (Key: '&Euml;'; Value: WideChar(203)),
1242 |     (Key: '&Igrave;'; Value: WideChar(204)), (Key: '&Iacute;';
1243 |     Value: WideChar(205)), (Key: '&Icirc;'; Value: WideChar(206)),
1244 |     (Key: '&Iuml;'; Value: WideChar(207)), (Key: '&ETH;'; Value: WideChar(208)),
1245 |     (Key: '&Ntilde;'; Value: WideChar(209)), (Key: '&Ograve;';
1246 |     Value: WideChar(210)), (Key: '&Oacute;'; Value: WideChar(211)),
1247 |     (Key: '&Ocirc;'; Value: WideChar(212)), (Key: '&Otilde;';
1248 |     Value: WideChar(213)), (Key: '&Ouml;'; Value: WideChar(214)),
1249 |     (Key: '&times;'; Value: WideChar(215)), (Key: '&Oslash;';
1250 |     Value: WideChar(216)), (Key: '&Ugrave;'; Value: WideChar(217)),
1251 |     (Key: '&Uacute;'; Value: WideChar(218)), (Key: '&Ucirc;';
1252 |     Value: WideChar(219)), (Key: '&Uuml;'; Value: WideChar(220)),
1253 |     (Key: '&Yacute;'; Value: WideChar(221)), (Key: '&THORN;';
1254 |     Value: WideChar(222)), (Key: '&szlig;'; Value: WideChar(223)),
1255 |     (Key: '&agrave;'; Value: WideChar(224)), (Key: '&aacute;';
1256 |     Value: WideChar(225)), (Key: '&acirc;'; Value: WideChar(226)),
1257 |     (Key: '&atilde;'; Value: WideChar(227)), (Key: '&auml;';
1258 |     Value: WideChar(228)), (Key: '&aring;'; Value: WideChar(229)),
1259 |     (Key: '&aelig;'; Value: WideChar(230)), (Key: '&ccedil;';
1260 |     Value: WideChar(231)), (Key: '&egrave;'; Value: WideChar(232)),
1261 |     (Key: '&eacute;'; Value: WideChar(233)), (Key: '&ecirc;';
1262 |     Value: WideChar(234)), (Key: '&euml;'; Value: WideChar(235)),
1263 |     (Key: '&igrave;'; Value: WideChar(236)), (Key: '&iacute;';
1264 |     Value: WideChar(237)), (Key: '&icirc;'; Value: WideChar(238)),
1265 |     (Key: '&iuml;'; Value: WideChar(239)), (Key: '&eth;'; Value: WideChar(240)),
1266 |     (Key: '&ntilde;'; Value: WideChar(241)), (Key: '&ograve;';
1267 |     Value: WideChar(242)), (Key: '&oacute;'; Value: WideChar(243)),
1268 |     (Key: '&ocirc;'; Value: WideChar(244)), (Key: '&otilde;';
1269 |     Value: WideChar(245)), (Key: '&ouml;'; Value: WideChar(246)),
1270 |     (Key: '&divide;'; Value: WideChar(247)), (Key: '&oslash;';
1271 |     Value: WideChar(248)), (Key: '&ugrave;'; Value: WideChar(249)),
1272 |     (Key: '&uacute;'; Value: WideChar(250)), (Key: '&ucirc;';
1273 |     Value: WideChar(251)), (Key: '&uuml;'; Value: WideChar(252)),
1274 |     (Key: '&yacute;'; Value: WideChar(253)), (Key: '&thorn;';
1275 |     Value: WideChar(254)), (Key: '&yuml;'; Value: WideChar(255)),
1276 |     (Key: '&fnof;'; Value: WideChar(402)), (Key: '&Alpha;';
1277 |     Value: WideChar(913)), (Key: '&Beta;'; Value: WideChar(914)),
1278 |     (Key: '&Gamma;'; Value: WideChar(915)), (Key: '&Delta;';
1279 |     Value: WideChar(916)), (Key: '&Epsilon;'; Value: WideChar(917)),
1280 |     (Key: '&Zeta;'; Value: WideChar(918)), (Key: '&Eta;'; Value: WideChar(919)),
1281 |     (Key: '&Theta;'; Value: WideChar(920)), (Key: '&Iota;';
1282 |     Value: WideChar(921)), (Key: '&Kappa;'; Value: WideChar(922)),
1283 |     (Key: '&Lambda;'; Value: WideChar(923)), (Key: '&Mu;';
1284 |     Value: WideChar(924)), (Key: '&Nu;'; Value: WideChar(925)), (Key: '&Xi;';
1285 |     Value: WideChar(926)), (Key: '&Omicron;'; Value: WideChar(927)),
1286 |     (Key: '&Pi;'; Value: WideChar(928)), (Key: '&Rho;'; Value: WideChar(929)),
1287 |     (Key: '&Sigma;'; Value: WideChar(931)), (Key: '&Tau;';
1288 |     Value: WideChar(932)), (Key: '&Upsilon;'; Value: WideChar(933)),
1289 |     (Key: '&Phi;'; Value: WideChar(934)), (Key: '&Chi;'; Value: WideChar(935)),
1290 |     (Key: '&Psi;'; Value: WideChar(936)), (Key: '&Omega;';
1291 |     Value: WideChar(937)), (Key: '&alpha;'; Value: WideChar(945)),
1292 |     (Key: '&beta;'; Value: WideChar(946)), (Key: '&gamma;';
1293 |     Value: WideChar(947)), (Key: '&delta;'; Value: WideChar(948)),
1294 |     (Key: '&epsilon;'; Value: WideChar(949)), (Key: '&zeta;';
1295 |     Value: WideChar(950)), (Key: '&eta;'; Value: WideChar(951)),
1296 |     (Key: '&theta;'; Value: WideChar(952)), (Key: '&iota;';
1297 |     Value: WideChar(953)), (Key: '&kappa;'; Value: WideChar(954)),
1298 |     (Key: '&lambda;'; Value: WideChar(955)), (Key: '&mu;';
1299 |     Value: WideChar(956)), (Key: '&nu;'; Value: WideChar(957)), (Key: '&xi;';
1300 |     Value: WideChar(958)), (Key: '&omicron;'; Value: WideChar(959)),
1301 |     (Key: '&pi;'; Value: WideChar(960)), (Key: '&rho;'; Value: WideChar(961)),
1302 |     (Key: '&sigmaf;'; Value: WideChar(962)), (Key: '&sigma;';
1303 |     Value: WideChar(963)), (Key: '&tau;'; Value: WideChar(964)),
1304 |     (Key: '&upsilon;'; Value: WideChar(965)), (Key: '&phi;';
1305 |     Value: WideChar(966)), (Key: '&chi;'; Value: WideChar(967)), (Key: '&psi;';
1306 |     Value: WideChar(968)), (Key: '&omega;'; Value: WideChar(969)),
1307 |     (Key: '&thetasym;'; Value: WideChar(977)), (Key: '&upsih;';
1308 |     Value: WideChar(978)), (Key: '&piv;'; Value: WideChar(982)), (Key: '&bull;';
1309 |     Value: WideChar(8226)), (Key: '&hellip;'; Value: WideChar(8230)),
1310 |     (Key: '&prime;'; Value: WideChar(8242)), (Key: '&Prime;';
1311 |     Value: WideChar(8243)), (Key: '&oline;'; Value: WideChar(8254)),
1312 |     (Key: '&frasl;'; Value: WideChar(8260)), (Key: '&weierp;';
1313 |     Value: WideChar(8472)), (Key: '&image;'; Value: WideChar(8465)),
1314 |     (Key: '&real;'; Value: WideChar(8476)), (Key: '&trade;';
1315 |     Value: WideChar(8482)), (Key: '&alefsym;'; Value: WideChar(8501)),
1316 |     (Key: '&larr;'; Value: WideChar(8592)), (Key: '&uarr;';
1317 |     Value: WideChar(8593)), (Key: '&rarr;'; Value: WideChar(8594)),
1318 |     (Key: '&darr;'; Value: WideChar(8595)), (Key: '&harr;';
1319 |     Value: WideChar(8596)), (Key: '&crarr;'; Value: WideChar(8629)),
1320 |     (Key: '&lArr;'; Value: WideChar(8656)), (Key: '&uArr;';
1321 |     Value: WideChar(8657)), (Key: '&rArr;'; Value: WideChar(8658)),
1322 |     (Key: '&dArr;'; Value: WideChar(8659)), (Key: '&hArr;';
1323 |     Value: WideChar(8660)), (Key: '&forall;'; Value: WideChar(8704)),
1324 |     (Key: '&part;'; Value: WideChar(8706)), (Key: '&exist;';
1325 |     Value: WideChar(8707)), (Key: '&empty;'; Value: WideChar(8709)),
1326 |     (Key: '&nabla;'; Value: WideChar(8711)), (Key: '&isin;';
1327 |     Value: WideChar(8712)), (Key: '&notin;'; Value: WideChar(8713)),
1328 |     (Key: '&ni;'; Value: WideChar(8715)), (Key: '&prod;';
1329 |     Value: WideChar(8719)), (Key: '&sum;'; Value: WideChar(8721)),
1330 |     (Key: '&minus;'; Value: WideChar(8722)), (Key: '&lowast;';
1331 |     Value: WideChar(8727)), (Key: '&radic;'; Value: WideChar(8730)),
1332 |     (Key: '&prop;'; Value: WideChar(8733)), (Key: '&infin;';
1333 |     Value: WideChar(8734)), (Key: '&ang;'; Value: WideChar(8736)),
1334 |     (Key: '&and;'; Value: WideChar(8743)), (Key: '&or;'; Value: WideChar(8744)),
1335 |     (Key: '&cap;'; Value: WideChar(8745)), (Key: '&cup;';
1336 |     Value: WideChar(8746)), (Key: '&int;'; Value: WideChar(8747)),
1337 |     (Key: '&there4;'; Value: WideChar(8756)), (Key: '&sim;';
1338 |     Value: WideChar(8764)), (Key: '&cong;'; Value: WideChar(8773)),
1339 |     (Key: '&asymp;'; Value: WideChar(8776)), (Key: '&ne;';
1340 |     Value: WideChar(8800)), (Key: '&equiv;'; Value: WideChar(8801)),
1341 |     (Key: '&le;'; Value: WideChar(8804)), (Key: '&ge;'; Value: WideChar(8805)),
1342 |     (Key: '&sub;'; Value: WideChar(8834)), (Key: '&sup;';
1343 |     Value: WideChar(8835)), (Key: '&nsub;'; Value: WideChar(8836)),
1344 |     (Key: '&sube;'; Value: WideChar(8838)), (Key: '&supe;';
1345 |     Value: WideChar(8839)), (Key: '&oplus;'; Value: WideChar(8853)),
1346 |     (Key: '&otimes;'; Value: WideChar(8855)), (Key: '&perp;';
1347 |     Value: WideChar(8869)), (Key: '&sdot;'; Value: WideChar(8901)),
1348 |     (Key: '&lceil;'; Value: WideChar(8968)), (Key: '&rceil;';
1349 |     Value: WideChar(8969)), (Key: '&lfloor;'; Value: WideChar(8970)),
1350 |     (Key: '&rfloor;'; Value: WideChar(8971)), (Key: '&lang;';
1351 |     Value: WideChar(9001)), (Key: '&rang;'; Value: WideChar(9002)),
1352 |     (Key: '&loz;'; Value: WideChar(9674)), (Key: '&spades;';
1353 |     Value: WideChar(9824)), (Key: '&clubs;'; Value: WideChar(9827)),
1354 |     (Key: '&hearts;'; Value: WideChar(9829)), (Key: '&diams;';
1355 |     Value: WideChar(9830)), (Key: '&quot;'; Value: WideChar(34)), (Key: '&amp;';
1356 |     Value: WideChar(38)), (Key: '&lt;'; Value: WideChar(60)), (Key: '&gt;';
1357 |     Value: WideChar(62)), (Key: '&OElig;'; Value: WideChar(338)),
1358 |     (Key: '&oelig;'; Value: WideChar(339)), (Key: '&Scaron;';
1359 |     Value: WideChar(352)), (Key: '&scaron;'; Value: WideChar(353)),
1360 |     (Key: '&Yuml;'; Value: WideChar(376)), (Key: '&circ;';
1361 |     Value: WideChar(710)), (Key: '&tilde;'; Value: WideChar(732)),
1362 |     (Key: '&ensp;'; Value: WideChar(8194)), (Key: '&emsp;';
1363 |     Value: WideChar(8195)), (Key: '&thinsp;'; Value: WideChar(8201)),
1364 |     (Key: '&zwnj;'; Value: WideChar(8204)), (Key: '&zwj;';
1365 |     Value: WideChar(8205)), (Key: '&lrm;'; Value: WideChar(8206)),
1366 |     (Key: '&rlm;'; Value: WideChar(8207)), (Key: '&ndash;';
1367 |     Value: WideChar(8211)), (Key: '&mdash;'; Value: WideChar(8212)),
1368 |     (Key: '&lsquo;'; Value: WideChar(8216)), (Key: '&rsquo;';
1369 |     Value: WideChar(8217)), (Key: '&sbquo;'; Value: WideChar(8218)),
1370 |     (Key: '&ldquo;'; Value: WideChar(8220)), (Key: '&rdquo;';
1371 |     Value: WideChar(8221)), (Key: '&bdquo;'; Value: WideChar(8222)),
1372 |     (Key: '&dagger;'; Value: WideChar(8224)), (Key: '&Dagger;';
1373 |     Value: WideChar(8225)), (Key: '&permil;'; Value: WideChar(8240)),
1374 |     (Key: '&lsaquo;'; Value: WideChar(8249)), (Key: '&rsaquo;';
1375 |     Value: WideChar(8250)), (Key: '&euro;'; Value: WideChar(8364)));
1376 | 
1377 | function HexToChar(Value: String): Char;
1378 | var
1379 |   I: Integer;
1380 |   W: WORD;
1381 | begin
1382 |   W := 0;
1383 |   for I := Low(Value) to High(Value) do
1384 |   begin
1385 |     case Value[I] of
1386 |       '0' .. '9':
1387 |         W := (W shl 4) or (ord(Value[I]) - ord('0'));
1388 |       'a' .. 'f':
1389 |         W := (W shl 4) or (ord(Value[I]) - ord('a') + 10);
1390 |       'A' .. 'F':
1391 |         W := (W shl 4) or (ord(Value[I]) - ord('A') + 10);
1392 |     else
1393 |       W := 0;
1394 |     end;
1395 |   end;
1396 |   Result := Char(W);
1397 | end;
1398 | 
1399 | function DecToChar(Value: String): Char;
1400 | var
1401 |   I: Integer;
1402 |   W: WORD;
1403 | begin
1404 |   W := 0;
1405 |   for I := Low(Value) to High(Value) do
1406 |   begin
1407 |     case Value[I] of
1408 |       '0' .. '9':
1409 |         W := 10 * W + (ord(Value[I]) - ord('0'));
1410 |     else
1411 |       W := 0;
1412 |     end;
1413 |   end;
1414 |   Result := Char(W);
1415 | end;
1416 | 
1417 | function DecodeHtmlEntities(S: String): string;
1418 | var
1419 |   tmp: string;
1420 |   I, p: Integer;
1421 |   Sb: TStringBuilder;
1422 | begin
1423 |   if Length(S) <= 3 then
1424 |     Exit(S);
1425 |   if Pos('&#', S) > 0 then
1426 |   begin
1427 |     S[low(S)] := S[low(S)];
1428 |   end;
1429 | 
1430 |   Sb := TStringBuilder.Create;
1431 |   I := 0;
1432 |   while I < Length(S) do
1433 |   begin
1434 |     if S.Chars[I] = '&' then
1435 |     begin
1436 |       p := S.IndexOf(';', I);
1437 |       if p >= 0 then
1438 |       begin
1439 |         tmp := LowerCase(S.Substring(I, p - I + 1));
1440 |         if (Length(tmp) > 2) and (tmp.Chars[1] = '#') then
1441 |         begin
1442 |           if (Length(tmp) > 3) and (tmp.Chars[2] = '$') then
1443 |             Sb.Append(HexToChar(tmp.Substring(3, Length(tmp) - 4)))
1444 |           else
1445 |             Sb.Append(DecToChar(tmp.Substring(2, Length(tmp) - 3)));
1446 |         end
1447 |         else if gEntities.ContainsKey(tmp) then
1448 |           Sb.Append(gEntities[tmp])
1449 |         else
1450 |           Sb.Append(tmp);
1451 |         Inc(I, Length(tmp));
1452 |       end
1453 |       else
1454 |       begin
1455 |         Sb.Append(S.Chars[I]);
1456 |         Inc(I);
1457 |       end;
1458 | 
1459 |     end
1460 |     else
1461 |     begin
1462 |       Sb.Append(S.Chars[I]);
1463 |       Inc(I);
1464 |     end;
1465 |   end;
1466 |   Result := Sb.ToString;
1467 |   FreeAndNil(Sb);
1468 | end;
1469 | 
1470 | function ConvertWhiteSpace(S: String): string;
1471 | var
1472 |   Sb: TStringBuilder;
1473 |   I: Integer;
1474 |   PreIssWhite, ThisIsWhite: Boolean;
1475 | begin
1476 |   Sb := TStringBuilder.Create;
1477 |   PreIssWhite := false;
1478 |   for I := Low(S) to High(S) do
1479 |   begin
1480 |     ThisIsWhite := CharInSet(S[I], WhiteSpace);
1481 |     if ThisIsWhite then
1482 |     begin
1483 |       if not PreIssWhite then
1484 |         Sb.Append(S[I]);
1485 |       PreIssWhite := True;
1486 |     end
1487 |     else
1488 |     begin
1489 |       Sb.Append(S[I]);
1490 |       PreIssWhite := false;
1491 |     end;
1492 |   end;
1493 |   Result := Sb.ToString;
1494 |   Sb.Free;
1495 | end;
1496 | 
1497 | const
1498 |   BlockTags: array [0 .. 59 - 1] of string = ('HTML', 'HEAD', 'BODY',
1499 |     'FRAMESET', 'SCRIPT', 'NOSCRIPT', 'STYLE', 'META', 'LINK', 'TITLE', 'FRAME',
1500 |     'NOFRAMES', 'SECTION', 'NAV', 'ASIDE', 'HGROUP', 'HEADER', 'FOOTER', 'P',
1501 |     'H1', 'H2', 'H3', 'H4', 'H5', 'H6', 'UL', 'OL', 'PRE', 'DIV', 'BLOCKQUOTE',
1502 |     'HR', 'ADDRESS', 'FIGURE', 'FIGCAPTION', 'FORM', 'FIELDSET', 'INS', 'DEL',
1503 |     'S', 'DL', 'DT', 'DD', 'LI', 'TABLE', 'CAPTION', 'THEAD', 'TFOOT', 'TBODY',
1504 |     'COLGROUP', 'COL', 'TR', 'TH', 'TD', 'VIDEO', 'AUDIO', 'CANVAS', 'DETAILS',
1505 |     'MENU', 'PLAINTEXT');
1506 |   InlineTags: array [0 .. 56 - 1] of string = ('OBJECT', 'BASE', 'FONT', 'TT',
1507 |     'I', 'B', 'U', 'BIG', 'SMALL', 'EM', 'STRONG', 'DFN', 'CODE', 'SAMP', 'KBD',
1508 |     'VAR', 'CITE', 'ABBR', 'TIME', 'ACRONYM', 'MARK', 'RUBY', 'RT', 'RP', 'A',
1509 |     'IMG', 'BR', 'WBR', 'MAP', 'Q', 'SUB', 'SUP', 'BDO', 'IFRAME', 'EMBED',
1510 |     'SPAN', 'INPUT', 'SELECT', 'TEXTAREA', 'LABEL', 'BUTTON', 'OPTGROUP',
1511 |     'OPTION', 'LEGEND', 'DATALIST', 'KEYGEN', 'OUTPUT', 'PROGRESS', 'METER',
1512 |     'AREA', 'PARAM', 'SOURCE', 'TRACK', 'SUMMARY', 'COMMAND', 'DEVICE');
1513 |   EmptyTags: array [0 .. 14 - 1] of string = ('META', 'LINK', 'BASE', 'FRAME',
1514 |     'IMG', 'BR', 'WBR', 'EMBED', 'HR', 'INPUT', 'KEYGEN', 'COL', 'COMMAND',
1515 |     'DEVICE');
1516 |   FormatAsInlineTags: array [0 .. 19 - 1] of string = ('TITLE', 'A', 'P', 'H1',
1517 |     'H2', 'H3', 'H4', 'H5', 'H6', 'PRE', 'ADDRESS', 'LI', 'TH', 'TD', 'SCRIPT',
1518 |     'STYLE', 'INS', 'DEL', 'S');
1519 |   PreserveWhitespaceTags: array [0 .. 4 - 1] of string = ('PRE', 'PLAINTEXT',
1520 |     'TITLE', 'TEXTAREA');
1521 | 
1522 | var
1523 |   gTagProperty: TPropDictionary;
1524 | 
1525 | function GetTagProperty(const TagName: string): WORD;
1526 | var
1527 |   Key, S: string;
1528 | begin
1529 |   Result := 0;
1530 |   Key := UpperCase(TagName);
1531 |   if gTagProperty.ContainsKey(Key) then
1532 |     Result := gTagProperty[UpperCase(TagName)]
1533 |   else
1534 |     Exit;
1535 | end;
1536 | 
1537 | function ParserCSSSelector(const Value: string): TCSSSelectorItemGroup;
1538 | var
1539 |   sc: TSourceContext;
1540 | 
1541 |   function AddAttr(var Item: TCSSSelectorItem): PAttrSelectorItem;
1542 |   begin
1543 |     SetLength(Item.Attributes, Length(Item.Attributes) + 1);
1544 |     Result := @Item.Attributes[Length(Item.Attributes) - 1];
1545 |   end;
1546 | 
1547 |   function ParserAttr(): TAttrSelectorItem;
1548 |   var
1549 |     oldIndex: Integer;
1550 |     tmp: string;
1551 |     stringChar: Char;
1552 |   begin
1553 |     sc.IncSrc(); // [
1554 |     Result.Key := '';
1555 |     Result.AttrOperator := aoEqual;
1556 |     Result.Value := '';
1557 |     // Key
1558 |     sc.SkipBlank();
1559 |     oldIndex := sc.CodeIndex;
1560 |     while not CharInSet(sc.CurrentChar,
1561 |       (WhiteSpace + OperatorChar + [']', #0])) do
1562 |       sc.IncSrc();
1563 |     Result.Key := sc.subStr(oldIndex, sc.CodeIndex - oldIndex);
1564 |     Result.Key := LowerCase(Result.Key);
1565 |     // Operator
1566 |     sc.SkipBlank();
1567 |     oldIndex := sc.CodeIndex;
1568 |     case sc.CurrentChar of
1569 |       '=', '!', '*', '~', '|', '^', '$':
1570 |         begin
1571 |           sc.IncSrc;
1572 |           if sc.CurrentChar = '=' then
1573 |             sc.IncSrc;
1574 |         end;
1575 |       ']':
1576 |         begin
1577 |           Result.AttrOperator := aoExist;
1578 |           sc.IncSrc;
1579 |           Exit;
1580 |         end;
1581 |     else
1582 |       begin
1583 |         DoError(Format('无法解析CSS Attribute操作符[%d,%d]', [sc.LineNum, sc.ColNum]));
1584 |       end;
1585 |     end;
1586 |     tmp := sc.subStr(oldIndex, sc.CodeIndex - oldIndex);
1587 | 
1588 |     if Length(tmp) >= 1 then
1589 |     begin
1590 |       case tmp[LowStrIndex] of
1591 |         '=':
1592 |           Result.AttrOperator := aoEqual;
1593 |         '!':
1594 |           Result.AttrOperator := aoNotEqual;
1595 |         '*':
1596 |           Result.AttrOperator := aoContain;
1597 |         '~':
1598 |           Result.AttrOperator := aoIncludeWord;
1599 |         '|':
1600 |           Result.AttrOperator := aoBeginWord;
1601 |         '^':
1602 |           Result.AttrOperator := aoBegin;
1603 |         '$':
1604 |           Result.AttrOperator := aoEnd;
1605 |       end;
1606 |     end;
1607 | 
1608 |     // Value
1609 |     sc.SkipBlank();
1610 |     oldIndex := sc.CodeIndex;
1611 |     if CharInSet(sc.CurrentChar, ['"', '''']) then
1612 |       stringChar := sc.CurrentChar
1613 |     else
1614 |       stringChar := #0;
1615 |     sc.IncSrc();
1616 |     while True do
1617 |     begin
1618 |       if stringChar = #0 then
1619 |       begin
1620 |         if CharInSet(sc.CurrentChar, (WhiteSpace + [#0, ']'])) then
1621 |           Break;
1622 |       end
1623 |       else if (sc.CurrentChar = stringChar) then
1624 |       begin
1625 |         sc.IncSrc();
1626 |         Break;
1627 |       end;
1628 |       sc.IncSrc();
1629 |     end;
1630 |     Result.Value := sc.subStr(oldIndex, sc.CodeIndex - oldIndex);
1631 |     // SetString(Result.Value, oldP, P - oldP);
1632 |     if (stringChar <> #0) and (Length(Result.Value) >= 2) then
1633 |       Result.Value := Copy(Result.Value, 2, Length(Result.Value) - 2);
1634 |     Result.Value := DecodeHtmlEntities(Result.Value);
1635 |     //
1636 |     sc.SkipBlank();
1637 |     if sc.CurrentChar = ']' then
1638 |       sc.IncSrc
1639 |     else
1640 |       DoError(Format('无法解析Attribute值[%d,%d]', [sc.LineNum, sc.ColNum]));
1641 | 
1642 |   end;
1643 | 
1644 |   procedure ParserItem(var Item: TCSSSelectorItem);
1645 |   var
1646 |     pAttr: PAttrSelectorItem;
1647 |   begin
1648 |     sc.SkipBlank();
1649 |     while True do
1650 |     begin
1651 |       case sc.CurrentChar of
1652 |         #0, ',', ' ':
1653 |           Break;
1654 |         '.': // class
1655 |           begin
1656 |             sc.IncSrc();
1657 |             pAttr := AddAttr(Item);
1658 |             pAttr^.Key := 'class';
1659 |             pAttr^.AttrOperator := aoIncludeWord;
1660 |             pAttr^.Value :=
1661 |               sc.ReadStr((WhiteSpace + OperatorChar + ['[', ']', '"', '''', ',',
1662 |               '.', '#', #0]));
1663 |           end;
1664 |         '#': // id
1665 |           begin
1666 |             sc.IncSrc();
1667 |             pAttr := AddAttr(Item);
1668 |             pAttr^.Key := 'id';
1669 |             pAttr^.AttrOperator := aoEqual;
1670 |             pAttr^.Value :=
1671 |               sc.ReadStr((WhiteSpace + OperatorChar + ['[', ']', '"', '''', ',',
1672 |               '.', '#', #0]));
1673 |           end;
1674 |         '[': // attribute
1675 |           begin
1676 |             pAttr := AddAttr(Item);
1677 |             pAttr^ := ParserAttr();
1678 |           end;
1679 |         '/':
1680 |           begin
1681 |             sc.IncSrc();
1682 |             if sc.CurrentChar = '*' then // /**/
1683 |             begin
1684 |               sc.IncSrc();
1685 |               sc.IncSrc();
1686 |               while True do
1687 |               begin
1688 |                 if (sc.CurrentChar = '/') and (sc.charOfCurrent[-1] = '*') then
1689 |                 begin
1690 |                   sc.IncSrc;
1691 |                   Break;
1692 |                 end;
1693 |                 sc.IncSrc;
1694 |               end;
1695 |             end;
1696 |           end;
1697 |       else
1698 |         begin
1699 |           Item.szTag :=
1700 |             UpperCase(sc.ReadStr((WhiteSpace + ['[', ']', '"', '''', ',', '.',
1701 |             '#', #0])));
1702 |         end;
1703 |       end;
1704 |     end;
1705 |   end;
1706 | 
1707 |   function AddItems(var Group: TCSSSelectorItemGroup): PCSSSelectorItems;
1708 |   begin
1709 |     SetLength(Group, Length(Group) + 1);
1710 |     Result := @Group[Length(Group) - 1];
1711 |   end;
1712 | 
1713 |   function AddItem(var Items: TCSSSelectorItems): PCSSSelectorItem;
1714 |   begin
1715 |     SetLength(Items, Length(Items) + 1);
1716 |     Result := @Items[Length(Items) - 1];
1717 |     Result^.Relation := sirNONE;
1718 |   end;
1719 | 
1720 | var
1721 |   Tag: string;
1722 |   pitems: PCSSSelectorItems;
1723 |   pItem: PCSSSelectorItem;
1724 | begin
1725 |   sc.setCode(Value);
1726 |   //
1727 |   pitems := AddItems(Result);
1728 |   pItem := AddItem(pitems^);
1729 |   while True do
1730 |   begin
1731 |     sc.SkipBlank;
1732 |     ParserItem(pItem^);
1733 |     sc.SkipBlank;
1734 |     case sc.CurrentChar of
1735 |       ',':
1736 |         begin
1737 |           sc.IncSrc();
1738 |           pitems := AddItems(Result);
1739 |           pItem := AddItem(pitems^);
1740 |         end;
1741 |       '>':
1742 |         begin
1743 |           sc.IncSrc();
1744 |           pItem := AddItem(pitems^);
1745 |           pItem^.Relation := sirChildren;
1746 |         end;
1747 |       '+':
1748 |         begin
1749 |           sc.IncSrc();
1750 |           pItem := AddItem(pitems^);
1751 |           pItem^.Relation := sirYoungerBrother;
1752 |         end;
1753 |       '~':
1754 |         begin
1755 |           sc.IncSrc();
1756 |           pItem := AddItem(pitems^);
1757 |           pItem^.Relation := sirAllYoungerBrother;
1758 |         end;
1759 |       #0:
1760 |         Break;
1761 |     else
1762 |       begin
1763 |         pItem := AddItem(pitems^);
1764 |         pItem^.Relation := sirDescendant;
1765 |       end;
1766 |     end;
1767 | 
1768 |   end;
1769 | end;
1770 | 
1771 | procedure Init();
1772 | var
1773 |   I: Integer;
1774 |   Key: string;
1775 |   S: WORD;
1776 | begin
1777 | 
1778 |   gEntities := TStringDictionary.Create();
1779 |   gTagProperty := TPropDictionary.Create;
1780 |   for I := low(EntityTable) to high(EntityTable) do
1781 |   begin
1782 |     gEntities.Add(EntityTable[I].Key, EntityTable[I].Value);
1783 |   end;
1784 | 
1785 |   //
1786 |   for I := low(BlockTags) to high(BlockTags) do
1787 |     gTagProperty.AddOrSetValue(BlockTags[I], tpBlock);
1788 | 
1789 |   for I := low(InlineTags) to high(InlineTags) do
1790 |     gTagProperty.AddOrSetValue(InlineTags[I], tpInline);
1791 | 
1792 |   for I := low(EmptyTags) to high(EmptyTags) do
1793 |   begin
1794 |     Key := EmptyTags[I];
1795 |     if gTagProperty.ContainsKey(Key) then
1796 |       S := gTagProperty[Key]
1797 |     else
1798 |       S := 0;
1799 |     S := S or tpEmpty;
1800 |     gTagProperty.AddOrSetValue(Key, S);
1801 | 
1802 |   end;
1803 | 
1804 |   for I := low(FormatAsInlineTags) to high(FormatAsInlineTags) do
1805 |   begin
1806 |     Key := FormatAsInlineTags[I];
1807 |     if gTagProperty.ContainsKey(Key) then
1808 |       S := gTagProperty[Key]
1809 |     else
1810 |       S := 0;
1811 |     S := S or tpFormatAsInline;
1812 |     gTagProperty.AddOrSetValue(FormatAsInlineTags[I], S);
1813 |   end;
1814 |   for I := low(PreserveWhitespaceTags) to high(PreserveWhitespaceTags) do
1815 |   begin
1816 |     Key := PreserveWhitespaceTags[I];
1817 |     if gTagProperty.ContainsKey(Key) then
1818 |       S := gTagProperty[Key]
1819 |     else
1820 |       S := 0;
1821 |     S := S or tpPreserveWhitespace;
1822 |     gTagProperty.AddOrSetValue(PreserveWhitespaceTags[I], S);
1823 |   end;
1824 | end;
1825 | 
1826 | procedure UnInit();
1827 | begin
1828 |   gTagProperty.Free;
1829 |   gEntities.Free;
1830 | end;
1831 | {$ENDREGION '转换表之类的'}
1832 | { TIHtmlElementList }
1833 | 
1834 | function TIHtmlElementList.Add(Value: IHtmlElement): Integer;
1835 | begin
1836 |   Result := FList.Add(Value);
1837 | end;
1838 | 
1839 | procedure TIHtmlElementList.Clear;
1840 | begin
1841 |   FList.Clear;
1842 | end;
1843 | 
1844 | constructor TIHtmlElementList.Create;
1845 | begin
1846 |   Inherited Create;
1847 |   FList := TList<IHtmlElement>.Create;
1848 | end;
1849 | 
1850 | procedure TIHtmlElementList.Delete(Index: Integer);
1851 | begin
1852 |   FList.Delete(Index);
1853 | end;
1854 | 
1855 | destructor TIHtmlElementList.Destroy;
1856 | begin
1857 |   FList.Free;
1858 |   inherited Destroy;
1859 | end;
1860 | 
1861 | procedure TIHtmlElementList.Each(f: TElementEachEvent);
1862 | var
1863 |   I: Integer;
1864 | begin
1865 |   if not Assigned(f) then Exit;
1866 |   for I := 0 to FList.Count - 1 do
1867 |   begin
1868 |     f(I, FList[I]);
1869 |   end;
1870 | end;
1871 | 
1872 | function TIHtmlElementList.GetCount: Integer;
1873 | begin
1874 |   Result := FList.Count;
1875 | end;
1876 | 
1877 | function TIHtmlElementList.GetEnumerator: THtmlListEnumerator;
1878 | begin
1879 |   Result := THtmlListEnumerator.Create(Self);
1880 | end;
1881 | 
1882 | function TIHtmlElementList.GetItems(Index: Integer): IHtmlElement;
1883 | begin
1884 |   Result := FList[Index];
1885 | end;
1886 | 
1887 | function TIHtmlElementList.GetText: WideString;
1888 | var
1889 |   LEL: IHtmlElement;
1890 | begin
1891 |   Result := '';
1892 |   for LEL in FList do
1893 |     Result := Result + LEL.InnerText;
1894 | end;
1895 | 
1896 | function TIHtmlElementList.IndexOf(Item: IHtmlElement): Integer;
1897 | begin
1898 |   Result := FList.IndexOf(Item)
1899 | end;
1900 | 
1901 | procedure TIHtmlElementList.Remove(ANode: IHtmlElement);
1902 | begin
1903 |   FList.Remove(ANode);
1904 | end;
1905 | 
1906 | procedure TIHtmlElementList.RemoveAll;
1907 | var
1908 |   I: Integer;
1909 |   LParent: IHtmlElement;
1910 | begin
1911 |   for I := 0 to FList.Count - 1 do
1912 |   begin
1913 |     LParent := FList[I].Parent;
1914 |     if LParent <> nil then
1915 |       LParent.RemoveChild(FList[I]);
1916 |   end;
1917 | end;
1918 | 
1919 | procedure TIHtmlElementList.SetItems(Index: Integer; const Value: IHtmlElement);
1920 | begin
1921 |   FList[Index] := Value;
1922 | end;
1923 | 
1924 | { THtmlElement }
1925 | 
1926 | constructor THtmlElement.Create(AOwner: THtmlElement; AText: string;
1927 |   ALine, ACol: Integer);
1928 | begin
1929 |   Inherited Create;
1930 |   FAttributes := TStringDictionary.Create();
1931 |   FChildren := TIHtmlElementList.Create;
1932 |   FOwner := AOwner;
1933 |   FOrignal := AText;
1934 |   FSourceLine := ALine;
1935 |   FSourceCol := ACol;
1936 |   InitXPathRegExPattern;
1937 | end;
1938 | 
1939 | destructor THtmlElement.Destroy;
1940 | begin
1941 |   FValidationRe.Free;
1942 |   FChildren.Free;
1943 |   FAttributes.Free;
1944 |   inherited Destroy;
1945 | end;
1946 | 
1947 | function THtmlElement.AppedChild(const ATag: string): IHtmlElement;
1948 | begin
1949 |   Result := nil;
1950 |   if ATag = '' then
1951 |     Exit;
1952 |   if Assigned(FChildren) then
1953 |   begin
1954 |     Result := THtmlElement.Create(Self, '', 0, 0);
1955 |     Result.TagName := ATag;
1956 |     THtmlElement(Result).FClosed := True;
1957 | 
1958 |     THtmlElement(Result).FCloseTag := THtmlElement.Create(Self, '', 0, 0);
1959 |     Result.CloseTag.TagName := ATag;
1960 |     THtmlElement(Result.CloseTag).FClosed := False;
1961 | 
1962 |     FChildren.Add(Result);
1963 |   end;
1964 | end;
1965 | 
1966 | function THtmlElement.EnumAttributeNames(Index: Integer): WideString;
1967 | var
1968 |   Attrs: TStringDynArray;
1969 | begin
1970 |   Result := '';
1971 |   Attrs := FAttributes.Keys.ToArray;
1972 |   if Index < Length(Attrs) then
1973 |     Result := Attrs[Index];
1974 | end;
1975 | 
1976 | function THtmlElement.GetAttributes(Key: WideString): WideString;
1977 | begin
1978 |   Result := '';
1979 |   Key := LowerCase(Key);
1980 |   if FAttributes.ContainsKey(Key) then
1981 |     Result := FAttributes[Key];
1982 | end;
1983 | 
1984 | function THtmlElement.GetChildren(Index: Integer): IHtmlElement;
1985 | begin
1986 |   Result := FChildren[index];
1987 | end;
1988 | 
1989 | function THtmlElement.GetChildrenCount: Integer;
1990 | begin
1991 |   Result := FChildren.Count;
1992 | end;
1993 | 
1994 | function THtmlElement.GetChildrens: IHtmlElementList;
1995 | begin
1996 |   Result := FChildren;
1997 | end;
1998 | 
1999 | function THtmlElement.GetCloseTag: IHtmlElement;
2000 | begin
2001 |   Result := FCloseTag;
2002 | end;
2003 | 
2004 | function THtmlElement.GetContent: WideString;
2005 | begin
2006 |   Result := FContent;
2007 | end;
2008 | 
2009 | procedure THtmlElement._GetHtml(IncludeSelf: Boolean; Sb: TStringBuilder);
2010 | 
2011 |   function GetSelfHtml:string;
2012 |   var
2013 |     LAttrs: string;
2014 |     LV: TPair<string,string>;
2015 |   begin
2016 |     if FTagName.Equals(cSpecialTagName_Text) or
2017 |        FTagName.Equals('#SCRIPT') or
2018 |        FTagName.Equals('#STYLE') or
2019 |        FTagName.Equals('#COMMENT') or
2020 |        FTagName.Equals('#DOCTYPE') or
2021 |        FTagName.Equals('#DOCUMENT') then
2022 |     begin
2023 |       Result := FContent;
2024 |     end
2025 |     else
2026 |     begin
2027 |       if not FClosed then
2028 |       begin
2029 |         Result := Format('</%s>', [FTagName.ToLower]);
2030 |       end else
2031 |       begin
2032 |         LAttrs := '';
2033 |         for LV in FAttributes do
2034 |           if ContainsStr(LV.Value, '"') then
2035 |             LAttrs := LAttrs + Format('%s=''%s'' ', [LV.Key, LV.Value])
2036 |           else
2037 |             LAttrs := LAttrs + Format('%s="%s" ', [LV.Key, LV.Value]);
2038 |         if LAttrs.Length > 2 then
2039 |           LAttrs := ' ' + LAttrs.Trim;
2040 |         Result := Format('<%s%s>%s', [FTagName.ToLower, LAttrs, FContent]);
2041 |       end;
2042 |     end;
2043 |   end;
2044 | 
2045 | var
2046 |   I: Integer;
2047 |   E: THtmlElement;
2048 | begin
2049 |   if IncludeSelf then
2050 |   begin
2051 |     FOrignal := GetSelfHtml;
2052 |     Sb.Append(FOrignal); // FOrignal
2053 |   end;
2054 | 
2055 |   for I := 0 to FChildren.Count - 1 do
2056 |   begin
2057 |     E := FChildren[I] as THtmlElement;
2058 |     E._GetHtml(True, Sb);
2059 |   end;
2060 |   if IncludeSelf and (FCloseTag <> nil) then
2061 |     (FCloseTag as THtmlElement)._GetHtml(True, Sb);
2062 | end;
2063 | 
2064 | procedure THtmlElement._GetText(IncludeSelf: Boolean; Sb: TStringBuilder);
2065 | var
2066 |   I: Integer;
2067 |   E: THtmlElement;
2068 | begin
2069 |   if IncludeSelf and (FTagName = cSpecialTagName_Text) then
2070 |   begin
2071 |     Sb.Append(FContent);
2072 |   end;
2073 | 
2074 |   for I := 0 to FChildren.Count - 1 do
2075 |   begin
2076 |     E := FChildren[I] as THtmlElement;
2077 |     E._GetText(True, Sb);
2078 |   end;
2079 | end;
2080 | 
2081 | procedure THtmlElement._Select(Item: PCSSSelectorItem; Count: Integer;
2082 |   r: TIHtmlElementList; OnlyTopLevel: Boolean);
2083 | 
2084 |   function _Filtered(): Boolean;
2085 |   var
2086 |     I: Integer;
2087 |   begin
2088 |     Result := false;
2089 |     if (Item^.szTag = '') or (Item^.szTag = '*') or (Item^.szTag = FTagName)
2090 |     then
2091 |     begin
2092 |       for I := Low(Item^.Attributes) to High(Item^.Attributes) do
2093 |         if not AttrCompareFuns[Item^.Attributes[I].AttrOperator]
2094 |           (Item^.Attributes[I], Self) then
2095 |           Exit;
2096 |       Result := True;
2097 |     end;
2098 |   end;
2099 | 
2100 | var
2101 |   f: Boolean;
2102 |   I, SelfIndex: Integer;
2103 |   PE, E: THtmlElement;
2104 |   Next: PCSSSelectorItem;
2105 | begin
2106 |   // ShowMessage(item^.szTag);
2107 |   // ShowMessage(item^.Attributes[0].Key + ' ' + item^.Attributes[0].Value);
2108 |   f := _Filtered();
2109 |   if f then
2110 |   begin
2111 |     if (Count = 1) then
2112 |     begin
2113 |       if (r.IndexOf(Self as IHtmlElement) < 0) then
2114 |         r.Add(Self as IHtmlElement);
2115 |     end
2116 |     else if Count > 1 then
2117 |     begin
2118 |       Next := Item;
2119 |       Inc(Next);
2120 |       PE := Self.FOwner;
2121 |       if PE = nil then
2122 |         SelfIndex := -1
2123 |       else
2124 |         SelfIndex := PE.FChildren.IndexOf(Self as IHtmlElement);
2125 | 
2126 |       case Next^.Relation of
2127 |         sirDescendant, sirChildren:
2128 |           begin
2129 |             for I := 0 to FChildren.Count - 1 do
2130 |             begin
2131 |               E := FChildren[I] as THtmlElement;
2132 |               E._Select(Next, Count - 1, r, Next^.Relation = sirChildren);
2133 |             end;
2134 |           end;
2135 |         sirAllYoungerBrother, sirYoungerBrother:
2136 |           begin
2137 |             if (PE <> nil) and (SelfIndex >= 0) then
2138 |               for I := (SelfIndex + 1) to PE.FChildren.Count - 1 do
2139 |               begin
2140 |                 E := PE.FChildren[I] as THtmlElement;
2141 |                 if (Length(E.FTagName) = 0) or (E.FTagName[LowStrIndex] <> '#')
2142 |                 then
2143 |                 begin
2144 |                   E._Select(Next, Count - 1, r, True);
2145 |                   if (Next^.Relation = sirYoungerBrother) then
2146 |                     Break;
2147 |                 end;
2148 |               end;
2149 |           end;
2150 |       end;
2151 |     end;
2152 |   end;
2153 |   if not OnlyTopLevel then
2154 |     for I := 0 to FChildren.Count - 1 do
2155 |     begin
2156 |       E := FChildren[I] as THtmlElement;
2157 |       E._Select(Item, Count, r);
2158 |     end;
2159 | end;
2160 | 
2161 | procedure THtmlElement._SimpleCSSSelector(const ItemGroup
2162 |   : TCSSSelectorItemGroup; r: TIHtmlElementList);
2163 | var
2164 |   I: Integer;
2165 | begin
2166 |   for I := Low(ItemGroup) to High(ItemGroup) do
2167 |   begin
2168 |     _Select(@ItemGroup[I][0], Length(ItemGroup[I]), r);
2169 |   end;
2170 | end;
2171 | 
2172 | function THtmlElement.GetInnerHtml: WideString;
2173 | var
2174 |   Sb: TStringBuilder;
2175 | begin
2176 |   Sb := TStringBuilder.Create;
2177 |   _GetHtml(false, Sb);
2178 |   Result := Sb.ToString;
2179 |   Sb.Free;
2180 | end;
2181 | 
2182 | function THtmlElement.GetInnerText: WideString;
2183 | var
2184 |   Sb: TStringBuilder;
2185 | begin
2186 |   Sb := TStringBuilder.Create;
2187 |   _GetText(True, Sb);
2188 |   Result := Sb.ToString;
2189 |   Sb.Free;
2190 | end;
2191 | 
2192 | function THtmlElement.GetOrignal: WideString;
2193 | begin
2194 |   Result := FOrignal;
2195 | end;
2196 | 
2197 | function THtmlElement.GetOuterHtml: WideString;
2198 | var
2199 |   Sb: TStringBuilder;
2200 | begin
2201 |   Sb := TStringBuilder.Create;
2202 |   _GetHtml(True, Sb);
2203 |   Result := Sb.ToString;
2204 |   Sb.Free;
2205 | end;
2206 | 
2207 | function THtmlElement.GetParent: IHtmlElement;
2208 | begin
2209 |   Result := Self.FOwner;
2210 | end;
2211 | 
2212 | function THtmlElement.GetSourceColNum: Integer;
2213 | begin
2214 |   Result := FSourceCol;
2215 | end;
2216 | 
2217 | function THtmlElement.GetSourceLineNum: Integer;
2218 | begin
2219 |   Result := FSourceLine;
2220 | end;
2221 | 
2222 | function THtmlElement.GetTagName: WideString;
2223 | begin
2224 |   Result := FTagName;
2225 | end;
2226 | 
2227 | function THtmlElement.HasAttribute(AttributeName: WideString): Boolean;
2228 | begin
2229 |   Result := FAttributes.ContainsKey(LowerCase(AttributeName));
2230 | end;
2231 | 
2232 | procedure THtmlElement.InitXPathRegExPattern;
2233 | const
2234 |   uRegExPattern =
2235 |       '(?P<node>(^id\(["'']?(?P<idvalue>\s*[\w/:][-/\w\s,:;.]*)["'']?\)|' +
2236 |       '(?P<nav>//?)(?P<tag>([a-zA-Z][a-zA-Z0-9]{0,10}|\*))(\[((?P<matched>' +
2237 |       '(?P<mattr>@?[.a-zA-Z_:][-\w:.]*(\(\))?)=["''](?P<mvalue>\s*[\w/:]' +
2238 |       '[-/\w\s,:;.]*))["'']|(?P<contained>contains\((?P<cattr>@?[.a-zA-Z_:]' +
2239 |       '[-\w:.]*(\(\))?),\s*["''](?P<cvalue>\s*[\w/:][-/\w\s,:;.]*)' +
2240 |       '["'']\)))\])?(\[(?P<nth>\d)\])?))';
2241 | begin
2242 |   if FValidationRe = nil then
2243 |     FValidationRe := TPerlRegEx.Create;
2244 |   FValidationRe.Options := [preCaseLess, preMultiLine];
2245 |   FValidationRe.RegEx := uRegExPattern;
2246 |   FValidationRe.Compile;
2247 | end;
2248 | 
2249 | function THtmlElement.RemoveChild(ANode: IHtmlElement): Integer;
2250 | begin
2251 |   Result := -1;
2252 |   if ANode.Parent = IHtmlElement(Self) then
2253 |   begin
2254 |     if Self.FChildren <> nil then
2255 |       FChildren.Remove(ANode);
2256 |   end;
2257 | end;
2258 | 
2259 | procedure THtmlElement.Remove;
2260 | begin
2261 |   if FOwner <> nil then
2262 |     FOwner.RemoveChild(Self);
2263 | end;
2264 | 
2265 | procedure THtmlElement.RemoveAttr(AAttrName: string);
2266 | begin
2267 |   FAttributes.Remove(LowerCase(AAttrName));
2268 |   if Assigned(FCloseTag) then
2269 |     FCloseTag.RemoveAttr(AAttrName);
2270 | end;
2271 | 
2272 | procedure THtmlElement.SetAttributes(Key: WideString; Value: WideString);
2273 | begin
2274 |   FAttributes.AddOrSetValue(LowerCase(Key), Value);
2275 | end;
2276 | 
2277 | procedure THtmlElement.SetInnerText(Value: WideString);
2278 | begin
2279 |   FContent := Value;
2280 | end;
2281 | 
2282 | procedure THtmlElement.SetTagName(Value: WideString);
2283 | begin
2284 |   FTagName := UpperCase(Value);
2285 |   if FCloseTag <> nil then
2286 |     FCloseTag.TagName := Self.FTagName;
2287 | end;
2288 | 
2289 | function THtmlElement.SimpleCSSSelector(const selector: WideString)
2290 |   : IHtmlElementList;
2291 | var
2292 |   r: TIHtmlElementList;
2293 | begin
2294 |   r := TIHtmlElementList.Create;
2295 |   _SimpleCSSSelector(ParserCSSSelector(selector), r);
2296 |   Result := r as IHtmlElementList;
2297 | end;
2298 | 
2299 | function THtmlElement.XPathToCSSSelector(const AXPath: string): string;
2300 |   function GetValue(AName: string): string;
2301 |   begin
2302 |     Result := FValidationRe.Groups[FValidationRe.NamedGroup(AName)];
2303 |   end;
2304 | 
2305 | var
2306 |   LPosition, LXPathLen: Integer;
2307 |   LNav, LTag, LAttr, LNth, LMattr, LMvalue, LNode_css: string;
2308 | begin
2309 |   Result := '';
2310 |   LPosition := 1;
2311 |   LXPathLen := Length(AXPath);
2312 |   while LPosition < LXPathLen do
2313 |   begin
2314 |     FValidationRe.Subject := Copy(AXPath, LPosition, LXPathLen - LPosition + 1);
2315 |     if not FValidationRe.Match then
2316 |       Exit;
2317 |     LNav := '';
2318 |     if LPosition <> 1 then
2319 |     begin
2320 |       LNav := ' ';
2321 |       if GetValue('nav') <> '//' then
2322 |         LNav := ' > ';
2323 |     end;
2324 | 
2325 |     LTag := '';
2326 |     if GetValue('tag') <> '*' then
2327 |       LTag := GetValue('tag');
2328 | 
2329 |     LAttr := '';
2330 |     if GetValue('idvalue') <> '' then
2331 |     begin
2332 |       LAttr := '#' + GetValue('idvalue').Replace(' ', '#');
2333 |     end else
2334 |     if GetValue('matched') <> '' then
2335 |     begin
2336 |       LMattr := GetValue('mattr');
2337 |       LMvalue := GetValue('mvalue');
2338 | 
2339 |       if LMattr = '@id' then
2340 |         LAttr := '#' + LMvalue.Replace(' ', '#')
2341 |       else if LMattr = '@class' then
2342 |         LAttr := '.' + LMvalue.Replace(' ', '.')
2343 |       else if (LMattr = 'text()') or (LMattr = '.') then
2344 |         LAttr := ':contains(^' + LMvalue + '$)'
2345 |       else
2346 |       begin
2347 |         if Pos(' ', LMvalue) <> 0 then
2348 |           LMvalue := '"' + LMvalue + '"';
2349 |         LAttr := Format('[%s=%s]"', [LMattr.Replace('@', ''), LMvalue]);
2350 |       end;
2351 |     end else
2352 |     if GetValue('contained') <> '' then
2353 |     begin
2354 |       LMattr := GetValue('cattr');
2355 |       LMvalue := GetValue('cvalue');
2356 |       if Pos('@', LMattr) > 0 then
2357 |         LAttr := Format('[%s*=%s]', [LMattr.Replace('@', ''), GetValue('cvalue')])
2358 |       else if GetValue('cattr') = 'text()' then
2359 |         LAttr := ':contains(' + GetValue('cvalue') + ')';
2360 |     end;
2361 | 
2362 |     LNth := GetValue('nth');
2363 |     if LNth <> '' then
2364 |       LNth := ':nth-of-type(' + LNth +')';
2365 | 
2366 |     LNode_css := LNav + LTag + LAttr + LNth;
2367 |     Result := Result + LNode_css;
2368 |     Inc(LPosition, FValidationRe.MatchedOffset + FValidationRe.MatchedLength - 1);
2369 |   end;
2370 | end;
2371 | 
2372 | function THtmlElement.Find(const selector: WideString): IHtmlElementList;
2373 | begin
2374 |   Result := SimpleCSSSelector(selector);
2375 | end;
2376 | 
2377 | function THtmlElement.FindX(const AXPath: WideString): IHtmlElementList;
2378 | begin
2379 |   Result := SimpleCSSSelector(XPathToCSSSelector(AXPath));
2380 | {$IFDEF DEBUG}
2381 | 
2382 | {$ENDIF}
2383 | end;
2384 |  
2385 | 
2386 | 
2387 | { TSourceContext }
2388 | 
2389 | function TSourceContext.subStr(Index, Count: Integer): string;
2390 | begin
2391 |   Result := System.Copy(Code, Index{$IF (LowStrIndex = 0)} + 1{$ENDIF}, Count);
2392 | end;
2393 | 
2394 | function TSourceContext.subStr(Count: Integer): string;
2395 | begin
2396 |   Result := subStr(CodeIndex, Count);
2397 | end;
2398 | 
2399 | function TSourceContext.ReadStr(UntilChars: TSysCharSet): string;
2400 | var
2401 |   oldIndex: Integer;
2402 |   stringChar: Char;
2403 | begin
2404 |   SkipBlank;
2405 |   oldIndex := CodeIndex;
2406 |   if CharInSet(CurrentChar, ['"', '''']) then
2407 |     stringChar := CurrentChar
2408 |   else
2409 |     stringChar := #0;
2410 |   IncSrc;
2411 |   while True do
2412 |   begin
2413 |     if stringChar = #0 then
2414 |     begin
2415 |       if CharInSet(CurrentChar, UntilChars) then
2416 |         Break;
2417 |     end
2418 |     else if (CurrentChar = stringChar) then
2419 |     begin
2420 |       IncSrc;
2421 |       Break;
2422 |     end;
2423 |     IncSrc;
2424 |   end;
2425 |   Result := subStr(oldIndex, CodeIndex - oldIndex);
2426 |   if (stringChar <> #0) and (Length(Result) >= 2) then
2427 |     Result := System.Copy(Result, 2, Length(Result) - 2);
2428 | end;
2429 | 
2430 | function TSourceContext.GetCharOfCurrent(Index: Integer): Char;
2431 | begin
2432 |   Result := Code[CodeIndex + Index];
2433 | end;
2434 | 
2435 | procedure TSourceContext.IncSrc;
2436 | begin
2437 |   if CurrentChar = #10 then
2438 |   begin
2439 |     Inc(LineNum);
2440 |     ColNum := 1;
2441 |   end
2442 |   else
2443 |     Inc(ColNum);
2444 |   Inc(CodeIndex);
2445 | 
2446 |   CurrentChar := Code[CodeIndex];
2447 | 
2448 | {$IFDEF DEBUG}
2449 |   currentCode := PChar(@Code[CodeIndex]);
2450 | {$ENDIF}
2451 | end;
2452 | 
2453 | procedure TSourceContext.IncSrc(Step: Integer);
2454 | var
2455 |   I: Integer;
2456 | begin
2457 |   for I := 0 to Step - 1 do
2458 |     IncSrc();
2459 | end;
2460 | 
2461 | function TSourceContext.PeekStr: string;
2462 | begin
2463 |   Result := PeekStr(CodeIndex);
2464 | end;
2465 | 
2466 | procedure TSourceContext.setCode(const ACode: string);
2467 | begin
2468 |   CurrentChar := #0;
2469 |   Code := ACode;
2470 |   LineNum := 1;
2471 |   ColNum := 1;
2472 |   CodeIndex := Low(Code);
2473 |   if Length(ACode) > 0 then
2474 |   begin
2475 |     CurrentChar := Code[CodeIndex];
2476 | {$IFDEF DEBUG}
2477 |     currentCode := PChar(@Code[CodeIndex]);
2478 | {$ENDIF}
2479 |   end;
2480 | end;
2481 | 
2482 | function TSourceContext.PeekStr(Index: Integer): string;
2483 | var
2484 |   oldIndex: Integer;
2485 | begin
2486 |   Result := '';
2487 |   oldIndex := Index;
2488 |   while not CharInSet(Code[index], (WhiteSpace + ['/', '>'])) do
2489 |     Inc(index);
2490 |   Result := subStr(oldIndex, index - oldIndex);
2491 | end;
2492 | 
2493 | procedure TSourceContext.SkipBlank();
2494 | begin
2495 |   while CharInSet(CurrentChar, WhiteSpace) do
2496 |     IncSrc();
2497 | end;
2498 | 
2499 | { THtmlListEnumerator }
2500 | 
2501 | constructor THtmlListEnumerator.Create(AList: IHtmlElementList);
2502 | begin
2503 |   inherited Create;
2504 |   FIndex := -1;
2505 |   FList := AList;
2506 | end;
2507 | 
2508 | function THtmlListEnumerator.GetCurrent: IHtmlElement;
2509 | begin
2510 |   Result := FList[FIndex];
2511 | end;
2512 | 
2513 | function THtmlListEnumerator.MoveNext: Boolean;
2514 | begin
2515 |   Result := FIndex < FList.Count - 1;
2516 |   if Result then
2517 |     Inc(FIndex);
2518 | end;
2519 | 
2520 | initialization
2521 |   Init;
2522 | 
2523 | finalization
2524 |   UnInit;
2525 |  
2526 | 
2527 | end.
2528 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | MIT License
 2 | 
 3 | Copyright (c) 2016 
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
  1 | # htmlparser
  2 | delphi html parser
  3 | 
  4 | 代码是改自原wr960204的[HtmlParser](http://www.raysoftware.cn/?p=370)，因为自己的需求需要对html进行修改操作，但无奈只支持读取操作，所以在此基础上做了修改并命名为HtmlParserEx.pas与之区别。  
  5 | 
  6 | 
  7 | #### 使用
  8 | 
  9 | ```delphi
 10 | // 从文件加载示例
 11 | procedure Test;
 12 | var
 13 |   LHtml: IHtmlElement;
 14 |   LList: IHtmlElementList;
 15 |   LStrStream: TStringStream;
 16 | begin
 17 |   LStrStream := TStringStream.Create('', TEncoding.UTF8);
 18 |   try
 19 |     LStrStream.LoadFromFile('view-source_https___github.com_ying32_htmlparser.html');
 20 |     LHtml := ParserHTML(LStrStream.DataString);
 21 |     if LHtml <> nil then
 22 |     begin
 23 |       LList := LHtml.SimpleCSSSelector('a');
 24 |       for LHtml in LList do
 25 |         Writeln('url:', lhtml.Attributes['href']);
 26 |     end;
 27 |   finally
 28 |     LStrStream.Free;
 29 |   end;
 30 | end;
 31 | ```
 32 | 
 33 | 
 34 | #### 修改记录
 35 | ying32修改记录：  
 36 | Email:1444386932@qq.com  
 37 | 
 38 |  2017年05月04日
 39 | 
 40 |  1、去除RegularExpressions单元的引用，不再使用TRegEx改使用RegularExpressionsCore单元中的TPerlRegEx
 41 | 
 42 |  2017年04月19日 
 43 | 
 44 |  1、增加使用XPath功能的编译指令"UseXPath"，默认不使用XPath，个人感觉没什么用  
 45 |  
 46 |  2016年11月23日  
 47 | 
 48 |  1、简单支持XPath，简单的吧，利用xpath转css selector，嘿  
 49 |     xpath转换的代码改自[python版本](https://github.com/santiycr/cssify/blob/master/cssify.py)
 50 |     
 51 | > IHtmlElement  
 52 | 
 53 | ```delphi  
 54 | 
 55 |   LHtml.FindX('/html/head/title').Each(
 56 |     procedure(AIndex: Integer; AEl: IHtmlElement) 
 57 |     begin
 58 |       Writeln('xpath index=', AIndex, ',  a=', AEl.Text);  
 59 |     end
 60 |   );
 61 | 
 62 | ```  
 63 |    
 64 | 
 65 | 2016年11月15日  
 66 | 
 67 | 
 68 | >  
 69 |  IHtmlElement和THtmlElement的改变：    
 70 |   1、Attributes属性增加Set方法    
 71 |   2、TagName属性增加Set方法  
 72 |   3、增加Parent属性    
 73 |   4、增加RemoveAttr方法    
 74 |   5、增加Remove方法  
 75 |   6、增加RemoveChild方法  
 76 |   7、增加Find方法，此为SimpleCSSSelector的一个另名  
 77 |   8、_GetHtml不再直接附加FOrignal属性值，而是使用GetSelfHtml重新对修改后的元素进行赋值操作，并更新FOrignal的值  
 78 |   9、增加Text属性  
 79 |   10、修改InnerText与Text属性增加write功能
 80 |   11、增加AppedChild方法 
 81 | 
 82 | >
 83 |  IHtmlElementList和THtmlElementList的改变：   
 84 |   1、增加RemoveAll方法  
 85 |   2、增加Remove方法  
 86 |   3、增加Each方法    
 87 |   4、增加Text属性  
 88 | 
 89 | #### 修改后的新功能的一些使用法  
 90 | 
 91 | > IHtmlElement  
 92 | 
 93 | ```delphi  
 94 |      // 修改属性
 95 |      EL.Attributes['class'] := 'xxxx';
 96 |      // 修改标记
 97 |      EL.TagName = 'a';
 98 |      // 移除自己
 99 |      EL.Remove; 
100 |      // 移除子结点
101 |      EL.RemoveChild(El2);
102 |      // css选择器查找，简化用
103 |      El.Find('a');
104 |      // 附加一个新的元素
105 |      el2 := El.AppendChild('a');
106 |      
107 |      
108 | ```  
109 | 
110 | > IHtmlElementList  
111 | 
112 | ```delphi  
113 | 
114 |   // 移除选择的元素
115 |   LHtml.Find('a').RemoveAll;
116 | 
117 |   // 查找并遍沥
118 |   LHtml.Find('a').Each(
119 |     procedure(AIndex: Integer; AEl: IHtmlElement)
120 |     begin
121 |       Writeln('Index=', AIndex, ',  href=', AEl.Attributes['href']);
122 |     end);
123 | 
124 |   // 直接输出，仅选中的第一个元素
125 |   Writeln(LHtml.Find('title').Text);
126 | 
127 | ```  
128 | 


--------------------------------------------------------------------------------
/demo/Unit23.dfm:
--------------------------------------------------------------------------------
 1 | object Form23: TForm23
 2 |   Left = 0
 3 |   Top = 0
 4 |   Caption = 'Form23'
 5 |   ClientHeight = 454
 6 |   ClientWidth = 348
 7 |   Color = clBtnFace
 8 |   Font.Charset = DEFAULT_CHARSET
 9 |   Font.Color = clWindowText
10 |   Font.Height = -11
11 |   Font.Name = 'Tahoma'
12 |   Font.Style = []
13 |   OldCreateOrder = False
14 |   OnCreate = FormCreate
15 |   PixelsPerInch = 96
16 |   TextHeight = 13
17 |   object Button1: TButton
18 |     Left = 72
19 |     Top = 105
20 |     Width = 161
21 |     Height = 25
22 |     Caption = 'SimpleCSSSelector'
23 |     TabOrder = 0
24 |     OnClick = Button1Click
25 |   end
26 |   object Button2: TButton
27 |     Left = 72
28 |     Top = 136
29 |     Width = 161
30 |     Height = 25
31 |     Caption = 'XPath Test'
32 |     TabOrder = 1
33 |     OnClick = Button2Click
34 |   end
35 |   object Button3: TButton
36 |     Left = 72
37 |     Top = 184
38 |     Width = 161
39 |     Height = 25
40 |     Caption = 'Remov All <a>'
41 |     TabOrder = 2
42 |     OnClick = Button3Click
43 |   end
44 | end
45 | 


--------------------------------------------------------------------------------
/demo/Unit23.pas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ying32/htmlparser/d4e8d76101a921327e139679015f3785c61067da/demo/Unit23.pas


--------------------------------------------------------------------------------
/demo/demo.dpr:
--------------------------------------------------------------------------------
 1 | program demo;
 2 | 
 3 | uses
 4 |   Vcl.Forms,
 5 |   Unit23 in 'Unit23.pas' {Form23},
 6 |   HtmlParserEx in '..\HtmlParserEx.pas';
 7 | 
 8 | {$R *.res}
 9 | 
10 | {$APPTYPE CONSOLE}
11 | 
12 | begin
13 |   Application.Initialize;
14 |   Application.MainFormOnTaskbar := True;
15 |   Application.CreateForm(TForm23, Form23);
16 |   Application.Run;
17 | end.
18 | 


--------------------------------------------------------------------------------
/demo/demo.dproj:
--------------------------------------------------------------------------------
  1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  2 |     <PropertyGroup>
  3 |         <ProjectGuid>{34BF2A6C-C97B-4D60-99F7-46859D1A2167}</ProjectGuid>
  4 |         <ProjectVersion>18.2</ProjectVersion>
  5 |         <FrameworkType>VCL</FrameworkType>
  6 |         <MainSource>demo.dpr</MainSource>
  7 |         <Base>True</Base>
  8 |         <Config Condition="'$(Config)'==''">Debug</Config>
  9 |         <Platform Condition="'$(Platform)'==''">Win32</Platform>
 10 |         <TargetedPlatforms>1</TargetedPlatforms>
 11 |         <AppType>Application</AppType>
 12 |     </PropertyGroup>
 13 |     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
 14 |         <Base>true</Base>
 15 |     </PropertyGroup>
 16 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
 17 |         <Base_Win32>true</Base_Win32>
 18 |         <CfgParent>Base</CfgParent>
 19 |         <Base>true</Base>
 20 |     </PropertyGroup>
 21 |     <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
 22 |         <Base_Win64>true</Base_Win64>
 23 |         <CfgParent>Base</CfgParent>
 24 |         <Base>true</Base>
 25 |     </PropertyGroup>
 26 |     <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
 27 |         <Cfg_1>true</Cfg_1>
 28 |         <CfgParent>Base</CfgParent>
 29 |         <Base>true</Base>
 30 |     </PropertyGroup>
 31 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
 32 |         <Cfg_1_Win32>true</Cfg_1_Win32>
 33 |         <CfgParent>Cfg_1</CfgParent>
 34 |         <Cfg_1>true</Cfg_1>
 35 |         <Base>true</Base>
 36 |     </PropertyGroup>
 37 |     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
 38 |         <Cfg_2>true</Cfg_2>
 39 |         <CfgParent>Base</CfgParent>
 40 |         <Base>true</Base>
 41 |     </PropertyGroup>
 42 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
 43 |         <Cfg_2_Win32>true</Cfg_2_Win32>
 44 |         <CfgParent>Cfg_2</CfgParent>
 45 |         <Cfg_2>true</Cfg_2>
 46 |         <Base>true</Base>
 47 |     </PropertyGroup>
 48 |     <PropertyGroup Condition="'$(Base)'!=''">
 49 |         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
 50 |         <DCC_ExeOutput>.\Bin</DCC_ExeOutput>
 51 |         <DCC_E>false</DCC_E>
 52 |         <DCC_N>false</DCC_N>
 53 |         <DCC_S>false</DCC_S>
 54 |         <DCC_F>false</DCC_F>
 55 |         <DCC_K>false</DCC_K>
 56 |         <DCC_UsePackage>RESTBackendComponents;CloudService;soaprtl;soapmidas;RESTComponents;emsclientfiredac;DataSnapFireDAC;FireDACIBDriver;emsclient;FireDACCommon;soapserver;FireDACCommonDriver;inet;FireDAC;FireDACSqliteDriver;$(DCC_UsePackage)</DCC_UsePackage>
 57 |         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
 58 |         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
 59 |         <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
 60 |         <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
 61 |         <SanitizedProjectName>demo</SanitizedProjectName>
 62 |         <VerInfo_Locale>2052</VerInfo_Locale>
 63 |         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
 64 |     </PropertyGroup>
 65 |     <PropertyGroup Condition="'$(Base_Win32)'!=''">
 66 |         <DCC_UsePackage>DBXSqliteDriver;dxPSPrVwRibbonRS25;dxRibbonCustomizationFormRS25;DBXDb2Driver;dxSkinOffice2007PinkRS25;dxSkinMcSkinRS25;vclactnband;vclFireDAC;cxExportRS25;dxHttpIndyRequestRS25;tethering;dxPScxCommonRS25;FireDACADSDriver;cxPivotGridOLAPRS25;FireDACMSSQLDriver;cxSchedulerGridRS25;vcltouch;dxSkinDarkRoomRS25;dxSkinDarkSideRS25;vcldb;Intraweb;svn;dxGaugeControlRS25;DScintillaRuntime;cxLibraryRS25;dxSkinOffice2007SilverRS25;dxSkinscxSchedulerPainterRS25;dxSkinBlackRS25;vclib;dxSkinOffice2007BlueRS25;dxSkinOffice2007BlackRS25;FireDACDBXDriver;dxSkinVS2010RS25;vclx;dxSkinFoggyRS25;dxSpreadSheetConditionalFormattingDialogsRS25;dxSkinSevenRS25;dxSkinSpringTimeRS25;dxTileControlRS25;dxMapControlRS25;dxPDFViewerRS25;dxDockingRS25;VCLRESTComponents;dxSkinsdxNavBarPainterRS25;cxPageControlRS25;dxSkinLilianRS25;dxPSLnksRS25;dxWizardControlRS25;dxRichEditControlRS25;vclie;bindengine;dxFireDACServerModeRS25;FireDACMySQLDriver;dxSkinOffice2013LightGrayRS25;dxSkinMetropolisRS25;DataSnapClient;dxSkinOffice2016DarkRS25;bindcompdbx;dxSkinBlueprintRS25;dxSkinStardustRS25;DBXSybaseASEDriver;IndyIPServer;dxPSdxLCLnkRS25;IndySystem;dxSkinOffice2007GreenRS25;dsnapcon;dxLayoutControlRS25;dxPSRichEditControlLnkRS25;FireDACMSAccDriver;FireDACInfxDriver;fmxFireDAC;vclimg;dxdbtrRS25;dxPScxTLLnkRS25;emshosting;dxSpreadSheetRS25;dxSkinVisualStudio2013LightRS25;DBXOdbcDriver;FireDACTDataDriver;FMXTee;cxGridRS25;dxSkinTheAsphaltWorldRS25;DbxCommonDriver;dxPScxSchedulerLnkRS25;dxorgcRS25;dxSkinHighContrastRS25;xmlrtl;DataSnapNativeClient;fmxobj;dxPScxGridLnkRS25;rtl;DbxClientDriver;DBXSybaseASADriver;dxPSCoreRS25;dxmdsRS25;dxSkinOffice2016ColorfulRS25;appanalytics;IndyIPClient;bindcompvcl;dxSkinscxPCPainterRS25;dxThemeRS25;TeeUI;VclSmp;FireDACODBCDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;FireDACMongoDBDriver;cxVerticalGridRS25;dxtrmdRS25;dxADOServerModeRS25;dxSkinPumpkinRS25;DataSnapServerMidas;dxCoreRS25;cxSchedulerTreeBrowserRS25;dxSkinValentineRS25;DBXInterBaseDriver;dxPSTeeChartRS25;svnui;dxSkinOffice2010BlueRS25;dxSkinMoneyTwinsRS25;dxSkinSilverRS25;DBXMSSQLDriver;dxPSdxFCLnkRS25;DatasnapConnectorsFreePascal;dxSkinOffice2013WhiteRS25;bindcompfmx;DBXOracleDriver;inetdb;dxOfficeCoreRS25;FmxTeeUI;emsedge;fmx;fmxdae;dxSkinBlueRS25;dxTabbedMDIRS25;dxBarDBNavRS25;dxPScxPivotGridLnkRS25;dxSkinDevExpressDarkStyleRS25;dbexpress;IndyCore;dxFlowChartRS25;dxSkinsdxDLPainterRS25;dsnap;DataSnapCommon;dxBarRS25;dxPSDBTeeChartRS25;dxSkinLiquidSkyRS25;dxdborRS25;DataSnapConnectors;dxPScxExtCommonRS25;cxPivotGridRS25;dxPSdxSpreadSheetLnkRS25;dxNavBarRS25;cxSchedulerRibbonStyleEventEditorRS25;dxSkinCoffeeRS25;FireDACOracleDriver;DBXMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;dxSkinOffice2010SilverRS25;cxTreeListRS25;dxSkinsdxBarPainterRS25;IndyIPCommon;dxSkinLondonLiquidSkyRS25;vcl;dxPScxVGridLnkRS25;dxBarExtItemsRS25;dxSkinsCoreRS25;dxComnRS25;FireDACDb2Driver;dxSkinWhiteprintRS25;dxPSdxDBTVLnkRS25;dxSkinVisualStudio2013BlueRS25;dxSkinGlassOceansRS25;dxSkinMetropolisDarkRS25;dxSkinOffice2013DarkGrayRS25;dxSkinSharpPlusRS25;TeeDB;dxSkinCaramelRS25;dxServerModeRS25;dxPScxPCProdRS25;FireDACPgDriver;ibmonitor;FireDACASADriver;cxEditorsRS25;dxSkiniMaginaryRS25;ibxpress;Tee;DataSnapServer;ibxbindings;dxPsPrVwAdvRS25;FireDACDSDriver;vclwinx;dxSkinSevenClassicRS25;cxDataRS25;cxTreeListdxBarPopupMenuRS25;CustomIPTransport;vcldsnap;dxPSdxOCLnkRS25;dxSkinSharpRS25;bindcomp;DBXInformixDriver;cxPivotGridChartRS25;cxSchedulerRS25;dxBarExtDBItemsRS25;dxSkinVisualStudio2013DarkRS25;dxSkinOffice2010BlackRS25;dxDBXServerModeRS25;dxSkinDevExpressStyleRS25;dxGDIPlusRS25;dxPSdxGaugeControlLnkRS25;dxSkinsdxRibbonPainterRS25;dbxcds;adortl;dxPSdxDBOCLnkRS25;dxRibbonRS25;dsnapxml;dxSpellCheckerRS25;dbrtl;IndyProtocols;inetdbxpress;dxSkinSummer2008RS25;dxPSdxMapControlLnkRS25;dxSkinXmas2008BlueRS25;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
 67 |         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
 68 |         <BT_BuildType>Debug</BT_BuildType>
 69 |         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
 70 |         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
 71 |         <VerInfo_Locale>1033</VerInfo_Locale>
 72 |         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
 73 |     </PropertyGroup>
 74 |     <PropertyGroup Condition="'$(Base_Win64)'!=''">
 75 |         <DCC_UsePackage>DBXSqliteDriver;dxPSPrVwRibbonRS25;dxRibbonCustomizationFormRS25;DBXDb2Driver;dxSkinOffice2007PinkRS25;dxSkinMcSkinRS25;vclactnband;vclFireDAC;cxExportRS25;dxHttpIndyRequestRS25;tethering;dxPScxCommonRS25;FireDACADSDriver;cxPivotGridOLAPRS25;FireDACMSSQLDriver;cxSchedulerGridRS25;vcltouch;dxSkinDarkRoomRS25;dxSkinDarkSideRS25;vcldb;Intraweb;dxGaugeControlRS25;DScintillaRuntime;cxLibraryRS25;dxSkinOffice2007SilverRS25;dxSkinscxSchedulerPainterRS25;dxSkinBlackRS25;vclib;dxSkinOffice2007BlueRS25;dxSkinOffice2007BlackRS25;FireDACDBXDriver;dxSkinVS2010RS25;vclx;dxSkinFoggyRS25;dxSpreadSheetConditionalFormattingDialogsRS25;dxSkinSevenRS25;dxSkinSpringTimeRS25;dxTileControlRS25;dxMapControlRS25;dxPDFViewerRS25;dxDockingRS25;VCLRESTComponents;dxSkinsdxNavBarPainterRS25;cxPageControlRS25;dxSkinLilianRS25;dxPSLnksRS25;dxWizardControlRS25;dxRichEditControlRS25;vclie;bindengine;dxFireDACServerModeRS25;FireDACMySQLDriver;dxSkinOffice2013LightGrayRS25;dxSkinMetropolisRS25;DataSnapClient;dxSkinOffice2016DarkRS25;bindcompdbx;dxSkinBlueprintRS25;dxSkinStardustRS25;DBXSybaseASEDriver;IndyIPServer;dxPSdxLCLnkRS25;IndySystem;dxSkinOffice2007GreenRS25;dsnapcon;dxLayoutControlRS25;dxPSRichEditControlLnkRS25;FireDACMSAccDriver;FireDACInfxDriver;fmxFireDAC;vclimg;dxdbtrRS25;dxPScxTLLnkRS25;emshosting;dxSpreadSheetRS25;dxSkinVisualStudio2013LightRS25;DBXOdbcDriver;FireDACTDataDriver;FMXTee;cxGridRS25;dxSkinTheAsphaltWorldRS25;DbxCommonDriver;dxPScxSchedulerLnkRS25;dxorgcRS25;dxSkinHighContrastRS25;xmlrtl;DataSnapNativeClient;fmxobj;dxPScxGridLnkRS25;rtl;DbxClientDriver;DBXSybaseASADriver;dxPSCoreRS25;dxmdsRS25;dxSkinOffice2016ColorfulRS25;appanalytics;IndyIPClient;bindcompvcl;dxSkinscxPCPainterRS25;dxThemeRS25;TeeUI;VclSmp;FireDACODBCDriver;DataSnapIndy10ServerTransport;DataSnapProviderClient;FireDACMongoDBDriver;cxVerticalGridRS25;dxtrmdRS25;dxADOServerModeRS25;dxSkinPumpkinRS25;DataSnapServerMidas;dxCoreRS25;cxSchedulerTreeBrowserRS25;dxSkinValentineRS25;DBXInterBaseDriver;dxPSTeeChartRS25;dxSkinOffice2010BlueRS25;dxSkinMoneyTwinsRS25;dxSkinSilverRS25;DBXMSSQLDriver;dxPSdxFCLnkRS25;DatasnapConnectorsFreePascal;dxSkinOffice2013WhiteRS25;bindcompfmx;DBXOracleDriver;inetdb;dxOfficeCoreRS25;FmxTeeUI;emsedge;fmx;fmxdae;dxSkinBlueRS25;dxTabbedMDIRS25;dxBarDBNavRS25;dxPScxPivotGridLnkRS25;dxSkinDevExpressDarkStyleRS25;dbexpress;IndyCore;dxFlowChartRS25;dxSkinsdxDLPainterRS25;dsnap;DataSnapCommon;dxBarRS25;dxPSDBTeeChartRS25;dxSkinLiquidSkyRS25;dxdborRS25;DataSnapConnectors;dxPScxExtCommonRS25;cxPivotGridRS25;dxPSdxSpreadSheetLnkRS25;dxNavBarRS25;cxSchedulerRibbonStyleEventEditorRS25;dxSkinCoffeeRS25;FireDACOracleDriver;DBXMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;dxSkinOffice2010SilverRS25;cxTreeListRS25;dxSkinsdxBarPainterRS25;IndyIPCommon;dxSkinLondonLiquidSkyRS25;vcl;dxPScxVGridLnkRS25;dxBarExtItemsRS25;dxSkinsCoreRS25;dxComnRS25;FireDACDb2Driver;dxSkinWhiteprintRS25;dxPSdxDBTVLnkRS25;dxSkinVisualStudio2013BlueRS25;dxSkinGlassOceansRS25;dxSkinMetropolisDarkRS25;dxSkinOffice2013DarkGrayRS25;dxSkinSharpPlusRS25;TeeDB;dxSkinCaramelRS25;dxServerModeRS25;dxPScxPCProdRS25;FireDACPgDriver;ibmonitor;FireDACASADriver;cxEditorsRS25;dxSkiniMaginaryRS25;ibxpress;Tee;DataSnapServer;ibxbindings;dxPsPrVwAdvRS25;FireDACDSDriver;vclwinx;dxSkinSevenClassicRS25;cxDataRS25;cxTreeListdxBarPopupMenuRS25;CustomIPTransport;vcldsnap;dxPSdxOCLnkRS25;dxSkinSharpRS25;bindcomp;DBXInformixDriver;cxPivotGridChartRS25;cxSchedulerRS25;dxBarExtDBItemsRS25;dxSkinVisualStudio2013DarkRS25;dxSkinOffice2010BlackRS25;dxDBXServerModeRS25;dxSkinDevExpressStyleRS25;dxGDIPlusRS25;dxPSdxGaugeControlLnkRS25;dxSkinsdxRibbonPainterRS25;dbxcds;adortl;dxPSdxDBOCLnkRS25;dxRibbonRS25;dsnapxml;dxSpellCheckerRS25;dbrtl;IndyProtocols;inetdbxpress;dxSkinSummer2008RS25;dxPSdxMapControlLnkRS25;dxSkinXmas2008BlueRS25;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
 76 |     </PropertyGroup>
 77 |     <PropertyGroup Condition="'$(Cfg_1)'!=''">
 78 |         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
 79 |         <DCC_DebugDCUs>true</DCC_DebugDCUs>
 80 |         <DCC_Optimize>false</DCC_Optimize>
 81 |         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
 82 |         <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
 83 |         <DCC_RemoteDebug>true</DCC_RemoteDebug>
 84 |     </PropertyGroup>
 85 |     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
 86 |         <DCC_RemoteDebug>false</DCC_RemoteDebug>
 87 |         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
 88 |         <AppEnableHighDPI>true</AppEnableHighDPI>
 89 |         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
 90 |         <VerInfo_Locale>1033</VerInfo_Locale>
 91 |     </PropertyGroup>
 92 |     <PropertyGroup Condition="'$(Cfg_2)'!=''">
 93 |         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
 94 |         <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
 95 |         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
 96 |         <DCC_DebugInformation>0</DCC_DebugInformation>
 97 |     </PropertyGroup>
 98 |     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
 99 |         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
100 |         <AppEnableHighDPI>true</AppEnableHighDPI>
101 |     </PropertyGroup>
102 |     <ItemGroup>
103 |         <DelphiCompile Include="$(MainSource)">
104 |             <MainSource>MainSource</MainSource>
105 |         </DelphiCompile>
106 |         <DCCReference Include="Unit23.pas">
107 |             <Form>Form23</Form>
108 |             <FormType>dfm</FormType>
109 |         </DCCReference>
110 |         <DCCReference Include="..\HtmlParserEx.pas"/>
111 |         <BuildConfiguration Include="Release">
112 |             <Key>Cfg_2</Key>
113 |             <CfgParent>Base</CfgParent>
114 |         </BuildConfiguration>
115 |         <BuildConfiguration Include="Base">
116 |             <Key>Base</Key>
117 |         </BuildConfiguration>
118 |         <BuildConfiguration Include="Debug">
119 |             <Key>Cfg_1</Key>
120 |             <CfgParent>Base</CfgParent>
121 |         </BuildConfiguration>
122 |     </ItemGroup>
123 |     <ProjectExtensions>
124 |         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
125 |         <Borland.ProjectType>Application</Borland.ProjectType>
126 |         <BorlandProject>
127 |             <Delphi.Personality>
128 |                 <Source>
129 |                     <Source Name="MainSource">demo.dpr</Source>
130 |                 </Source>
131 |                 <Excluded_Packages>
132 |                     <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
133 |                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
134 |                 </Excluded_Packages>
135 |             </Delphi.Personality>
136 |             <Deployment Version="3">
137 |                 <DeployFile LocalName="Win32\Debug\demo.exe" Configuration="Debug" Class="ProjectOutput">
138 |                     <Platform Name="Win32">
139 |                         <RemoteName>demo.exe</RemoteName>
140 |                         <Overwrite>true</Overwrite>
141 |                     </Platform>
142 |                 </DeployFile>
143 |                 <DeployClass Name="AdditionalDebugSymbols">
144 |                     <Platform Name="iOSSimulator">
145 |                         <Operation>1</Operation>
146 |                     </Platform>
147 |                     <Platform Name="OSX32">
148 |                         <RemoteDir>Contents\MacOS</RemoteDir>
149 |                         <Operation>1</Operation>
150 |                     </Platform>
151 |                     <Platform Name="Win32">
152 |                         <RemoteDir>Contents\MacOS</RemoteDir>
153 |                         <Operation>0</Operation>
154 |                     </Platform>
155 |                 </DeployClass>
156 |                 <DeployClass Name="AndroidClassesDexFile">
157 |                     <Platform Name="Android">
158 |                         <RemoteDir>classes</RemoteDir>
159 |                         <Operation>1</Operation>
160 |                     </Platform>
161 |                 </DeployClass>
162 |                 <DeployClass Name="AndroidGDBServer">
163 |                     <Platform Name="Android">
164 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
165 |                         <Operation>1</Operation>
166 |                     </Platform>
167 |                 </DeployClass>
168 |                 <DeployClass Name="AndroidLibnativeArmeabiFile">
169 |                     <Platform Name="Android">
170 |                         <RemoteDir>library\lib\armeabi</RemoteDir>
171 |                         <Operation>1</Operation>
172 |                     </Platform>
173 |                 </DeployClass>
174 |                 <DeployClass Name="AndroidLibnativeMipsFile">
175 |                     <Platform Name="Android">
176 |                         <RemoteDir>library\lib\mips</RemoteDir>
177 |                         <Operation>1</Operation>
178 |                     </Platform>
179 |                 </DeployClass>
180 |                 <DeployClass Name="AndroidServiceOutput">
181 |                     <Platform Name="Android">
182 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
183 |                         <Operation>1</Operation>
184 |                     </Platform>
185 |                 </DeployClass>
186 |                 <DeployClass Name="AndroidSplashImageDef">
187 |                     <Platform Name="Android">
188 |                         <RemoteDir>res\drawable</RemoteDir>
189 |                         <Operation>1</Operation>
190 |                     </Platform>
191 |                 </DeployClass>
192 |                 <DeployClass Name="AndroidSplashStyles">
193 |                     <Platform Name="Android">
194 |                         <RemoteDir>res\values</RemoteDir>
195 |                         <Operation>1</Operation>
196 |                     </Platform>
197 |                 </DeployClass>
198 |                 <DeployClass Name="Android_DefaultAppIcon">
199 |                     <Platform Name="Android">
200 |                         <RemoteDir>res\drawable</RemoteDir>
201 |                         <Operation>1</Operation>
202 |                     </Platform>
203 |                 </DeployClass>
204 |                 <DeployClass Name="Android_LauncherIcon144">
205 |                     <Platform Name="Android">
206 |                         <RemoteDir>res\drawable-xxhdpi</RemoteDir>
207 |                         <Operation>1</Operation>
208 |                     </Platform>
209 |                 </DeployClass>
210 |                 <DeployClass Name="Android_LauncherIcon36">
211 |                     <Platform Name="Android">
212 |                         <RemoteDir>res\drawable-ldpi</RemoteDir>
213 |                         <Operation>1</Operation>
214 |                     </Platform>
215 |                 </DeployClass>
216 |                 <DeployClass Name="Android_LauncherIcon48">
217 |                     <Platform Name="Android">
218 |                         <RemoteDir>res\drawable-mdpi</RemoteDir>
219 |                         <Operation>1</Operation>
220 |                     </Platform>
221 |                 </DeployClass>
222 |                 <DeployClass Name="Android_LauncherIcon72">
223 |                     <Platform Name="Android">
224 |                         <RemoteDir>res\drawable-hdpi</RemoteDir>
225 |                         <Operation>1</Operation>
226 |                     </Platform>
227 |                 </DeployClass>
228 |                 <DeployClass Name="Android_LauncherIcon96">
229 |                     <Platform Name="Android">
230 |                         <RemoteDir>res\drawable-xhdpi</RemoteDir>
231 |                         <Operation>1</Operation>
232 |                     </Platform>
233 |                 </DeployClass>
234 |                 <DeployClass Name="Android_SplashImage426">
235 |                     <Platform Name="Android">
236 |                         <RemoteDir>res\drawable-small</RemoteDir>
237 |                         <Operation>1</Operation>
238 |                     </Platform>
239 |                 </DeployClass>
240 |                 <DeployClass Name="Android_SplashImage470">
241 |                     <Platform Name="Android">
242 |                         <RemoteDir>res\drawable-normal</RemoteDir>
243 |                         <Operation>1</Operation>
244 |                     </Platform>
245 |                 </DeployClass>
246 |                 <DeployClass Name="Android_SplashImage640">
247 |                     <Platform Name="Android">
248 |                         <RemoteDir>res\drawable-large</RemoteDir>
249 |                         <Operation>1</Operation>
250 |                     </Platform>
251 |                 </DeployClass>
252 |                 <DeployClass Name="Android_SplashImage960">
253 |                     <Platform Name="Android">
254 |                         <RemoteDir>res\drawable-xlarge</RemoteDir>
255 |                         <Operation>1</Operation>
256 |                     </Platform>
257 |                 </DeployClass>
258 |                 <DeployClass Name="DebugSymbols">
259 |                     <Platform Name="iOSSimulator">
260 |                         <Operation>1</Operation>
261 |                     </Platform>
262 |                     <Platform Name="OSX32">
263 |                         <RemoteDir>Contents\MacOS</RemoteDir>
264 |                         <Operation>1</Operation>
265 |                     </Platform>
266 |                     <Platform Name="Win32">
267 |                         <Operation>0</Operation>
268 |                     </Platform>
269 |                 </DeployClass>
270 |                 <DeployClass Name="DependencyFramework">
271 |                     <Platform Name="OSX32">
272 |                         <RemoteDir>Contents\MacOS</RemoteDir>
273 |                         <Operation>1</Operation>
274 |                         <Extensions>.framework</Extensions>
275 |                     </Platform>
276 |                     <Platform Name="Win32">
277 |                         <Operation>0</Operation>
278 |                     </Platform>
279 |                 </DeployClass>
280 |                 <DeployClass Name="DependencyModule">
281 |                     <Platform Name="iOSDevice32">
282 |                         <Operation>1</Operation>
283 |                         <Extensions>.dylib</Extensions>
284 |                     </Platform>
285 |                     <Platform Name="iOSDevice64">
286 |                         <Operation>1</Operation>
287 |                         <Extensions>.dylib</Extensions>
288 |                     </Platform>
289 |                     <Platform Name="iOSSimulator">
290 |                         <Operation>1</Operation>
291 |                         <Extensions>.dylib</Extensions>
292 |                     </Platform>
293 |                     <Platform Name="OSX32">
294 |                         <RemoteDir>Contents\MacOS</RemoteDir>
295 |                         <Operation>1</Operation>
296 |                         <Extensions>.dylib</Extensions>
297 |                     </Platform>
298 |                     <Platform Name="Win32">
299 |                         <Operation>0</Operation>
300 |                         <Extensions>.dll;.bpl</Extensions>
301 |                     </Platform>
302 |                 </DeployClass>
303 |                 <DeployClass Required="true" Name="DependencyPackage">
304 |                     <Platform Name="iOSDevice32">
305 |                         <Operation>1</Operation>
306 |                         <Extensions>.dylib</Extensions>
307 |                     </Platform>
308 |                     <Platform Name="iOSDevice64">
309 |                         <Operation>1</Operation>
310 |                         <Extensions>.dylib</Extensions>
311 |                     </Platform>
312 |                     <Platform Name="iOSSimulator">
313 |                         <Operation>1</Operation>
314 |                         <Extensions>.dylib</Extensions>
315 |                     </Platform>
316 |                     <Platform Name="OSX32">
317 |                         <RemoteDir>Contents\MacOS</RemoteDir>
318 |                         <Operation>1</Operation>
319 |                         <Extensions>.dylib</Extensions>
320 |                     </Platform>
321 |                     <Platform Name="Win32">
322 |                         <Operation>0</Operation>
323 |                         <Extensions>.bpl</Extensions>
324 |                     </Platform>
325 |                 </DeployClass>
326 |                 <DeployClass Name="File">
327 |                     <Platform Name="Android">
328 |                         <Operation>0</Operation>
329 |                     </Platform>
330 |                     <Platform Name="iOSDevice32">
331 |                         <Operation>0</Operation>
332 |                     </Platform>
333 |                     <Platform Name="iOSDevice64">
334 |                         <Operation>0</Operation>
335 |                     </Platform>
336 |                     <Platform Name="iOSSimulator">
337 |                         <Operation>0</Operation>
338 |                     </Platform>
339 |                     <Platform Name="OSX32">
340 |                         <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
341 |                         <Operation>0</Operation>
342 |                     </Platform>
343 |                     <Platform Name="Win32">
344 |                         <Operation>0</Operation>
345 |                     </Platform>
346 |                 </DeployClass>
347 |                 <DeployClass Name="iPad_Launch1024">
348 |                     <Platform Name="iOSDevice32">
349 |                         <Operation>1</Operation>
350 |                     </Platform>
351 |                     <Platform Name="iOSDevice64">
352 |                         <Operation>1</Operation>
353 |                     </Platform>
354 |                     <Platform Name="iOSSimulator">
355 |                         <Operation>1</Operation>
356 |                     </Platform>
357 |                 </DeployClass>
358 |                 <DeployClass Name="iPad_Launch1536">
359 |                     <Platform Name="iOSDevice32">
360 |                         <Operation>1</Operation>
361 |                     </Platform>
362 |                     <Platform Name="iOSDevice64">
363 |                         <Operation>1</Operation>
364 |                     </Platform>
365 |                     <Platform Name="iOSSimulator">
366 |                         <Operation>1</Operation>
367 |                     </Platform>
368 |                 </DeployClass>
369 |                 <DeployClass Name="iPad_Launch2048">
370 |                     <Platform Name="iOSDevice32">
371 |                         <Operation>1</Operation>
372 |                     </Platform>
373 |                     <Platform Name="iOSDevice64">
374 |                         <Operation>1</Operation>
375 |                     </Platform>
376 |                     <Platform Name="iOSSimulator">
377 |                         <Operation>1</Operation>
378 |                     </Platform>
379 |                 </DeployClass>
380 |                 <DeployClass Name="iPad_Launch768">
381 |                     <Platform Name="iOSDevice32">
382 |                         <Operation>1</Operation>
383 |                     </Platform>
384 |                     <Platform Name="iOSDevice64">
385 |                         <Operation>1</Operation>
386 |                     </Platform>
387 |                     <Platform Name="iOSSimulator">
388 |                         <Operation>1</Operation>
389 |                     </Platform>
390 |                 </DeployClass>
391 |                 <DeployClass Name="iPhone_Launch320">
392 |                     <Platform Name="iOSDevice32">
393 |                         <Operation>1</Operation>
394 |                     </Platform>
395 |                     <Platform Name="iOSDevice64">
396 |                         <Operation>1</Operation>
397 |                     </Platform>
398 |                     <Platform Name="iOSSimulator">
399 |                         <Operation>1</Operation>
400 |                     </Platform>
401 |                 </DeployClass>
402 |                 <DeployClass Name="iPhone_Launch640">
403 |                     <Platform Name="iOSDevice32">
404 |                         <Operation>1</Operation>
405 |                     </Platform>
406 |                     <Platform Name="iOSDevice64">
407 |                         <Operation>1</Operation>
408 |                     </Platform>
409 |                     <Platform Name="iOSSimulator">
410 |                         <Operation>1</Operation>
411 |                     </Platform>
412 |                 </DeployClass>
413 |                 <DeployClass Name="iPhone_Launch640x1136">
414 |                     <Platform Name="iOSDevice32">
415 |                         <Operation>1</Operation>
416 |                     </Platform>
417 |                     <Platform Name="iOSDevice64">
418 |                         <Operation>1</Operation>
419 |                     </Platform>
420 |                     <Platform Name="iOSSimulator">
421 |                         <Operation>1</Operation>
422 |                     </Platform>
423 |                 </DeployClass>
424 |                 <DeployClass Name="ProjectAndroidManifest">
425 |                     <Platform Name="Android">
426 |                         <Operation>1</Operation>
427 |                     </Platform>
428 |                 </DeployClass>
429 |                 <DeployClass Name="ProjectiOSDeviceDebug">
430 |                     <Platform Name="iOSDevice32">
431 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
432 |                         <Operation>1</Operation>
433 |                     </Platform>
434 |                     <Platform Name="iOSDevice64">
435 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
436 |                         <Operation>1</Operation>
437 |                     </Platform>
438 |                 </DeployClass>
439 |                 <DeployClass Name="ProjectiOSDeviceResourceRules">
440 |                     <Platform Name="iOSDevice32">
441 |                         <Operation>1</Operation>
442 |                     </Platform>
443 |                     <Platform Name="iOSDevice64">
444 |                         <Operation>1</Operation>
445 |                     </Platform>
446 |                 </DeployClass>
447 |                 <DeployClass Name="ProjectiOSEntitlements">
448 |                     <Platform Name="iOSDevice32">
449 |                         <RemoteDir>..\</RemoteDir>
450 |                         <Operation>1</Operation>
451 |                     </Platform>
452 |                     <Platform Name="iOSDevice64">
453 |                         <RemoteDir>..\</RemoteDir>
454 |                         <Operation>1</Operation>
455 |                     </Platform>
456 |                 </DeployClass>
457 |                 <DeployClass Name="ProjectiOSInfoPList">
458 |                     <Platform Name="iOSDevice32">
459 |                         <Operation>1</Operation>
460 |                     </Platform>
461 |                     <Platform Name="iOSDevice64">
462 |                         <Operation>1</Operation>
463 |                     </Platform>
464 |                     <Platform Name="iOSSimulator">
465 |                         <Operation>1</Operation>
466 |                     </Platform>
467 |                 </DeployClass>
468 |                 <DeployClass Name="ProjectiOSResource">
469 |                     <Platform Name="iOSDevice32">
470 |                         <Operation>1</Operation>
471 |                     </Platform>
472 |                     <Platform Name="iOSDevice64">
473 |                         <Operation>1</Operation>
474 |                     </Platform>
475 |                     <Platform Name="iOSSimulator">
476 |                         <Operation>1</Operation>
477 |                     </Platform>
478 |                 </DeployClass>
479 |                 <DeployClass Name="ProjectOSXEntitlements">
480 |                     <Platform Name="OSX32">
481 |                         <RemoteDir>..\</RemoteDir>
482 |                         <Operation>1</Operation>
483 |                     </Platform>
484 |                 </DeployClass>
485 |                 <DeployClass Name="ProjectOSXInfoPList">
486 |                     <Platform Name="OSX32">
487 |                         <RemoteDir>Contents</RemoteDir>
488 |                         <Operation>1</Operation>
489 |                     </Platform>
490 |                 </DeployClass>
491 |                 <DeployClass Name="ProjectOSXResource">
492 |                     <Platform Name="OSX32">
493 |                         <RemoteDir>Contents\Resources</RemoteDir>
494 |                         <Operation>1</Operation>
495 |                     </Platform>
496 |                 </DeployClass>
497 |                 <DeployClass Required="true" Name="ProjectOutput">
498 |                     <Platform Name="Android">
499 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
500 |                         <Operation>1</Operation>
501 |                     </Platform>
502 |                     <Platform Name="iOSDevice32">
503 |                         <Operation>1</Operation>
504 |                     </Platform>
505 |                     <Platform Name="iOSDevice64">
506 |                         <Operation>1</Operation>
507 |                     </Platform>
508 |                     <Platform Name="iOSSimulator">
509 |                         <Operation>1</Operation>
510 |                     </Platform>
511 |                     <Platform Name="Linux64">
512 |                         <Operation>1</Operation>
513 |                     </Platform>
514 |                     <Platform Name="OSX32">
515 |                         <RemoteDir>Contents\MacOS</RemoteDir>
516 |                         <Operation>1</Operation>
517 |                     </Platform>
518 |                     <Platform Name="Win32">
519 |                         <Operation>0</Operation>
520 |                     </Platform>
521 |                 </DeployClass>
522 |                 <DeployClass Name="ProjectUWPManifest">
523 |                     <Platform Name="Win32">
524 |                         <Operation>1</Operation>
525 |                     </Platform>
526 |                     <Platform Name="Win64">
527 |                         <Operation>1</Operation>
528 |                     </Platform>
529 |                 </DeployClass>
530 |                 <DeployClass Name="UWP_DelphiLogo150">
531 |                     <Platform Name="Win32">
532 |                         <RemoteDir>Assets</RemoteDir>
533 |                         <Operation>1</Operation>
534 |                     </Platform>
535 |                     <Platform Name="Win64">
536 |                         <RemoteDir>Assets</RemoteDir>
537 |                         <Operation>1</Operation>
538 |                     </Platform>
539 |                 </DeployClass>
540 |                 <DeployClass Name="UWP_DelphiLogo44">
541 |                     <Platform Name="Win32">
542 |                         <RemoteDir>Assets</RemoteDir>
543 |                         <Operation>1</Operation>
544 |                     </Platform>
545 |                     <Platform Name="Win64">
546 |                         <RemoteDir>Assets</RemoteDir>
547 |                         <Operation>1</Operation>
548 |                     </Platform>
549 |                 </DeployClass>
550 |                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
551 |                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
552 |                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
553 |                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
554 |                 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
555 |                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
556 |                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
557 |                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
558 |             </Deployment>
559 |             <Platforms>
560 |                 <Platform value="Win32">True</Platform>
561 |                 <Platform value="Win64">False</Platform>
562 |             </Platforms>
563 |         </BorlandProject>
564 |         <ProjectFileVersion>12</ProjectFileVersion>
565 |     </ProjectExtensions>
566 |     <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
567 |     <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
568 |     <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
569 | </Project>
570 | 


--------------------------------------------------------------------------------