开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
HtmlTags.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：14k
源码类别：

Email服务器

开发平台：

Delphi

HtmlTags.pas：源码内容
  1. unit HtmlTags;
  3. interface
  5. uses
  6.   Classes, DomCore;
  8. const
  9.   MAX_TAGS_COUNT  = 128;
  10.   MAX_FLAGS_COUNT = 32;
  12. type
  13.   THtmlTagSet = set of 0..MAX_TAGS_COUNT - 1;
  15.   THtmlTagFlags = set of 0..MAX_FLAGS_COUNT - 1;
  17.   THtmlTag = class
  18.   private
  19.     FName: TDomString;
  20.     FNumber: Integer;
  21.     FParserFlags: THtmlTagFlags;
  22.     FFormatterFlags: THtmlTagFlags;
  23.   public
  24.     constructor Create(const AName: TDomString; ANumber: Integer; AParserFlags, AFormatterFlags: THtmlTagFlags);
  25.     property Name: TDomString read FName;
  26.     property Number: Integer read FNumber;
  27.     property ParserFlags: THtmlTagFlags read FParserFlags;
  28.     property FormatterFlags: THtmlTagFlags read FFormatterFlags;
  29.   end;
  31.   TCompareTag = function(Tag: THtmlTag): Integer of object;
  33.   THtmlTagList = class
  34.   private
  35.     FList: TList;
  36.     FUnknownTag: THtmlTag;
  37.     FSearchName: WideString;
  38.     FSearchNumber: Integer;
  39.     function CompareName(Tag: THtmlTag): Integer;
  40.     function CompareNumber(Tag: THtmlTag): Integer;
  41.     function GetTag(Compare: TCompareTag): THtmlTag;
  42.   public
  43.     constructor Create;
  44.     destructor Destroy; override;
  45.     function GetTagByName(const Name: TDomString): THtmlTag;
  46.     function GetTagByNumber(Number: Integer): THtmlTag;
  47.   end;
  49.   TURLSchemes = class(TStringList)
  50.   private
  51.     FMaxLen: Integer;
  52.   public
  53.     function Add(const S: String): Integer; override;
  54.     function IsURL(const S: String): Boolean;
  55.     function GetScheme(const S: String): String;
  56.     property MaxLen: Integer read FMaxLen;
  57.   end;
  59. var
  60.   HtmlTagList: THtmlTagList;
  61.   URLSchemes: TURLSchemes;
  63. const
  64.   UNKNOWN_TAG    = 0;
  65.   A_TAG          = 1;
  66.   ABBR_TAG       = 2;
  67.   ACRONYM_TAG    = 3;
  68.   ADDRESS_TAG    = 4;
  69.   APPLET_TAG     = 5;
  70.   AREA_TAG       = 6;
  71.   B_TAG          = 7;
  72.   BASE_TAG       = 8;
  73.   BASEFONT_TAG   = 9;
  74.   BDO_TAG        = 10;
  75.   BIG_TAG        = 11;
  76.   BLOCKQUOTE_TAG = 12;
  77.   BODY_TAG       = 13;
  78.   BR_TAG         = 14;
  79.   BUTTON_TAG     = 15;
  80.   CAPTION_TAG    = 16;
  81.   CENTER_TAG     = 17;
  82.   CITE_TAG       = 18;
  83.   CODE_TAG       = 19;
  84.   COL_TAG        = 20;
  85.   COLGROUP_TAG   = 21;
  86.   DD_TAG         = 22;
  87.   DEL_TAG        = 23;
  88.   DFN_TAG        = 24;
  89.   DIR_TAG        = 25;
  90.   DIV_TAG        = 26;
  91.   DL_TAG         = 27;
  92.   DT_TAG         = 28;
  93.   EM_TAG         = 29;
  94.   FIELDSET_TAG   = 30;
  95.   FONT_TAG       = 31;
  96.   FORM_TAG       = 32;
  97.   FRAME_TAG      = 33;
  98.   FRAMESET_TAG   = 34;
  99.   H1_TAG         = 35;
  100.   H2_TAG         = 36;
  101.   H3_TAG         = 37;
  102.   H4_TAG         = 38;
  103.   H5_TAG         = 39;
  104.   H6_TAG         = 40;
  105.   HEAD_TAG       = 41;
  106.   HR_TAG         = 42;
  107.   HTML_TAG       = 43;
  108.   I_TAG          = 44;
  109.   IFRAME_TAG     = 45;
  110.   IMG_TAG        = 46;
  111.   INPUT_TAG      = 47;
  112.   INS_TAG        = 48;
  113.   ISINDEX_TAG    = 49;
  114.   KBD_TAG        = 50;
  115.   LABEL_TAG      = 51;
  116.   LEGEND_TAG     = 52;
  117.   LI_TAG         = 53;
  118.   LINK_TAG       = 54;
  119.   MAP_TAG        = 55;
  120.   MENU_TAG       = 56;
  121.   META_TAG       = 57;
  122.   NOFRAMES_TAG   = 58;
  123.   NOSCRIPT_TAG   = 59;
  124.   OBJECT_TAG     = 60;
  125.   OL_TAG         = 61;
  126.   OPTGROUP_TAG   = 62;
  127.   OPTION_TAG     = 63;
  128.   P_TAG          = 64;
  129.   PARAM_TAG      = 65;
  130.   PRE_TAG        = 66;
  131.   Q_TAG          = 67;
  132.   S_TAG          = 68;
  133.   SAMP_TAG       = 69;
  134.   SCRIPT_TAG     = 70;
  135.   SELECT_TAG     = 71;
  136.   SMALL_TAG      = 72;
  137.   SPAN_TAG       = 73;
  138.   STRIKE_TAG     = 74;
  139.   STRONG_TAG     = 75;
  140.   STYLE_TAG      = 76;
  141.   SUB_TAG        = 77;
  142.   SUP_TAG        = 78;
  143.   TABLE_TAG      = 79;
  144.   TBODY_TAG      = 80;
  145.   TD_TAG         = 81;
  146.   TEXTAREA_TAG   = 82;
  147.   TFOOT_TAG      = 83;
  148.   TH_TAG         = 84;
  149.   THEAD_TAG      = 85;
  150.   TITLE_TAG      = 86;
  151.   TR_TAG         = 87;
  152.   TT_TAG         = 88;
  153.   U_TAG          = 89;
  154.   UL_TAG         = 90;
  155.   VAR_TAG        = 91;
  157.   BlockTags               = [ADDRESS_TAG, BLOCKQUOTE_TAG, CENTER_TAG, DIV_TAG, DL_TAG, FIELDSET_TAG, {FORM_TAG,} H1_TAG, H2_TAG, H3_TAG, H4_TAG, H5_TAG, H6_TAG, HR_TAG, NOSCRIPT_TAG, OL_TAG, PRE_TAG, TABLE_TAG, UL_TAG];
  158.   BlockParentTags         = [ADDRESS_TAG, BLOCKQUOTE_TAG, CENTER_TAG, DIV_TAG, DL_TAG, FIELDSET_TAG, H1_TAG, H2_TAG, H3_TAG, H4_TAG, H5_TAG, H6_TAG, HR_TAG, LI_TAG, NOSCRIPT_TAG, OL_TAG, PRE_TAG, TD_TAG, TH_TAG, UL_TAG];
  159.   HeadTags                = [BASE_TAG, LINK_TAG, META_TAG, SCRIPT_TAG, STYLE_TAG, TITLE_TAG];
  160.   {Elements forbidden from having an end tag, and therefore are empty; from HTML 4.01 spec}
  161.   EmptyTags               = [AREA_TAG, BASE_TAG, BASEFONT_TAG, BR_TAG, COL_TAG, FRAME_TAG, HR_TAG, IMG_TAG, INPUT_TAG, ISINDEX_TAG, LINK_TAG, META_TAG, PARAM_TAG];
  162.   PreserveWhiteSpaceTags  = [PRE_TAG];
  163.   NeedFindParentTags      = [COL_TAG, COLGROUP_TAG, DD_TAG, DT_TAG, LI_TAG, OPTION_TAG, P_TAG, TABLE_TAG, TBODY_TAG, TD_TAG, TFOOT_TAG, TH_TAG, THEAD_TAG, TR_TAG];
  164.   ListItemParentTags      = [DIR_TAG, MENU_TAG, OL_TAG, UL_TAG];
  165.   DefItemParentTags       = [DL_TAG];
  166.   TableSectionParentTags  = [TABLE_TAG];
  167.   ColParentTags           = [COLGROUP_TAG];
  168.   RowParentTags           = [TABLE_TAG, TBODY_TAG, TFOOT_TAG, THEAD_TAG];
  169.   CellParentTags          = [TR_TAG];
  170.   OptionParentTags        = [OPTGROUP_TAG, SELECT_TAG];
  172. implementation
  174. uses
  175.   SysUtils;
  177. constructor THtmlTag.Create(const AName: TDomString; ANumber: Integer; AParserFlags, AFormatterFlags: THtmlTagFlags);
  178. begin
  179.   inherited Create;
  180.   FName := AName;
  181.   FNumber := ANumber
  182. end;
  184. constructor THtmlTagList.Create;
  185. begin
  186.   inherited Create;
  187.   FList := TList.Create;
  188.   FList.Capacity := MAX_TAGS_COUNT;
  189.   FList.Add(THtmlTag.Create('a',          A_TAG,          [], []));
  190.   FList.Add(THtmlTag.Create('abbr',       ABBR_TAG,       [], []));
  191.   FList.Add(THtmlTag.Create('acronym',    ACRONYM_TAG,    [], []));
  192.   FList.Add(THtmlTag.Create('address',    ADDRESS_TAG,    [], []));
  193.   FList.Add(THtmlTag.Create('applet',     APPLET_TAG,     [], []));
  194.   FList.Add(THtmlTag.Create('area',       AREA_TAG,       [], []));
  195.   FList.Add(THtmlTag.Create('b',          B_TAG,          [], []));
  196.   FList.Add(THtmlTag.Create('base',       BASE_TAG,       [], []));
  197.   FList.Add(THtmlTag.Create('basefont',   BASEFONT_TAG,   [], []));
  198.   FList.Add(THtmlTag.Create('bdo',        BDO_TAG,        [], []));
  199.   FList.Add(THtmlTag.Create('big',        BIG_TAG,        [], []));
  200.   FList.Add(THtmlTag.Create('blockquote', BLOCKQUOTE_TAG, [], []));
  201.   FList.Add(THtmlTag.Create('body',       BODY_TAG,       [], []));
  202.   FList.Add(THtmlTag.Create('br',         BR_TAG,         [], []));
  203.   FList.Add(THtmlTag.Create('button',     BUTTON_TAG,     [], []));
  204.   FList.Add(THtmlTag.Create('caption',    CAPTION_TAG,    [], []));
  205.   FList.Add(THtmlTag.Create('center',     CENTER_TAG,     [], []));
  206.   FList.Add(THtmlTag.Create('cite',       CITE_TAG,       [], []));
  207.   FList.Add(THtmlTag.Create('code',       CODE_TAG,       [], []));
  208.   FList.Add(THtmlTag.Create('col',        COL_TAG,        [], []));
  209.   FList.Add(THtmlTag.Create('colgroup',   COLGROUP_TAG,   [], []));
  210.   FList.Add(THtmlTag.Create('dd',         DD_TAG,         [], []));
  211.   FList.Add(THtmlTag.Create('del',        DEL_TAG,        [], []));
  212.   FList.Add(THtmlTag.Create('dfn',        DFN_TAG,        [], []));
  213.   FList.Add(THtmlTag.Create('dir',        DIR_TAG,        [], []));
  214.   FList.Add(THtmlTag.Create('div',        DIV_TAG,        [], []));
  215.   FList.Add(THtmlTag.Create('dl',         DL_TAG,         [], []));
  216.   FList.Add(THtmlTag.Create('dt',         DT_TAG,         [], []));
  217.   FList.Add(THtmlTag.Create('em',         EM_TAG,         [], []));
  218.   FList.Add(THtmlTag.Create('fieldset',   FIELDSET_TAG,   [], []));
  219.   FList.Add(THtmlTag.Create('font',       FONT_TAG,       [], []));
  220.   FList.Add(THtmlTag.Create('form',       FORM_TAG,       [], []));
  221.   FList.Add(THtmlTag.Create('frame',      FRAME_TAG,      [], []));
  222.   FList.Add(THtmlTag.Create('frameset',   FRAMESET_TAG,   [], []));
  223.   FList.Add(THtmlTag.Create('h1',         H1_TAG,         [], []));
  224.   FList.Add(THtmlTag.Create('h2',         H2_TAG,         [], []));
  225.   FList.Add(THtmlTag.Create('h3',         H3_TAG,         [], []));
  226.   FList.Add(THtmlTag.Create('h4',         H4_TAG,         [], []));
  227.   FList.Add(THtmlTag.Create('h5',         H5_TAG,         [], []));
  228.   FList.Add(THtmlTag.Create('h6',         H6_TAG,         [], []));
  229.   FList.Add(THtmlTag.Create('head',       HEAD_TAG,       [], []));
  230.   FList.Add(THtmlTag.Create('hr',         HR_TAG,         [], []));
  231.   FList.Add(THtmlTag.Create('html',       HTML_TAG,       [], []));
  232.   FList.Add(THtmlTag.Create('i',          I_TAG,          [], []));
  233.   FList.Add(THtmlTag.Create('iframe',     IFRAME_TAG,     [], []));
  234.   FList.Add(THtmlTag.Create('img',        IMG_TAG,        [], []));
  235.   FList.Add(THtmlTag.Create('input',      INPUT_TAG,      [], []));
  236.   FList.Add(THtmlTag.Create('ins',        INS_TAG,        [], []));
  237.   FList.Add(THtmlTag.Create('isindex',    ISINDEX_TAG,    [], []));
  238.   FList.Add(THtmlTag.Create('kbd',        KBD_TAG,        [], []));
  239.   FList.Add(THtmlTag.Create('label',      LABEL_TAG,      [], []));
  240.   FList.Add(THtmlTag.Create('legend',     LEGEND_TAG,     [], []));
  241.   FList.Add(THtmlTag.Create('li',         LI_TAG,         [], []));
  242.   FList.Add(THtmlTag.Create('link',       LINK_TAG,       [], []));
  243.   FList.Add(THtmlTag.Create('map',        MAP_TAG,        [], []));
  244.   FList.Add(THtmlTag.Create('menu',       MENU_TAG,       [], []));
  245.   FList.Add(THtmlTag.Create('meta',       META_TAG,       [], []));
  246.   FList.Add(THtmlTag.Create('noframes',   NOFRAMES_TAG,   [], []));
  247.   FList.Add(THtmlTag.Create('noscript',   NOSCRIPT_TAG,   [], []));
  248.   FList.Add(THtmlTag.Create('object',     OBJECT_TAG,     [], []));
  249.   FList.Add(THtmlTag.Create('ol',         OL_TAG,         [], []));
  250.   FList.Add(THtmlTag.Create('optgroup',   OPTGROUP_TAG,   [], []));
  251.   FList.Add(THtmlTag.Create('option',     OPTION_TAG,     [], []));
  252.   FList.Add(THtmlTag.Create('p',          P_TAG,          [], []));
  253.   FList.Add(THtmlTag.Create('param',      PARAM_TAG,      [], []));
  254.   FList.Add(THtmlTag.Create('pre',        PRE_TAG,        [], []));
  255.   FList.Add(THtmlTag.Create('q',          Q_TAG,          [], []));
  256.   FList.Add(THtmlTag.Create('s',          S_TAG,          [], []));
  257.   FList.Add(THtmlTag.Create('samp',       SAMP_TAG,       [], []));
  258.   FList.Add(THtmlTag.Create('script',     SCRIPT_TAG,     [], []));
  259.   FList.Add(THtmlTag.Create('select',     SELECT_TAG,     [], []));
  260.   FList.Add(THtmlTag.Create('small',      SMALL_TAG,      [], []));
  261.   FList.Add(THtmlTag.Create('span',       SPAN_TAG,       [], []));
  262.   FList.Add(THtmlTag.Create('strike',     STRIKE_TAG,     [], []));
  263.   FList.Add(THtmlTag.Create('strong',     STRONG_TAG,     [], []));
  264.   FList.Add(THtmlTag.Create('style',      STYLE_TAG,      [], []));
  265.   FList.Add(THtmlTag.Create('sub',        SUB_TAG,        [], []));
  266.   FList.Add(THtmlTag.Create('sup',        SUP_TAG,        [], []));
  267.   FList.Add(THtmlTag.Create('table',      TABLE_TAG,      [], []));
  268.   FList.Add(THtmlTag.Create('tbody',      TBODY_TAG,      [], []));
  269.   FList.Add(THtmlTag.Create('td',         TD_TAG,         [], []));
  270.   FList.Add(THtmlTag.Create('textarea',   TEXTAREA_TAG,   [], []));
  271.   FList.Add(THtmlTag.Create('tfoot',      TFOOT_TAG,      [], []));
  272.   FList.Add(THtmlTag.Create('th',         TH_TAG,         [], []));
  273.   FList.Add(THtmlTag.Create('thead',      THEAD_TAG,      [], []));
  274.   FList.Add(THtmlTag.Create('title',      TITLE_TAG,      [], []));
  275.   FList.Add(THtmlTag.Create('tr',         TR_TAG,         [], []));
  276.   FList.Add(THtmlTag.Create('tt',         TT_TAG,         [], []));
  277.   FList.Add(THtmlTag.Create('u',          U_TAG,          [], []));
  278.   FList.Add(THtmlTag.Create('ul',         UL_TAG,         [], []));
  279.   FList.Add(THtmlTag.Create('var',        VAR_TAG,        [], []));
  280.   FUnknownTag := THtmlTag.Create('', UNKNOWN_TAG, [], [])
  281. end;
  283. destructor THtmlTagList.Destroy;
  284. var
  285.   I: Integer;
  286. begin
  287.   for I := FList.Count - 1 downto 0 do
  288.     THtmlTag(FList[I]).Free;
  289.   FList.Free;
  290.   FUnknownTag.Free;
  291.   inherited Destroy
  292. end;
  294. function THtmlTagList.GetTag(Compare: TCompareTag): THtmlTag;
  295. var
  296.   I, Low, High, Rel: Integer;
  297. begin
  298.   Low := -1;
  299.   High := FList.Count - 1;
  300.   while High - Low > 1 do
  301.   begin
  302.     I := (High + Low) div 2;
  303.     Result := FList[I];
  304.     Rel := Compare(Result);
  305.     if Rel < 0 then
  306.       High := I
  307.     else
  308.     if Rel > 0 then
  309.       Low := I
  310.     else
  311.       Exit
  312.   end;
  313.   if High >= 0 then
  314.   begin
  315.     Result := FList[High];
  316.     if Compare(Result) = 0 then
  317.       Exit
  318.   end;
  319.   Result := nil
  320. end;
  322. function THtmlTagList.CompareName(Tag: THtmlTag): Integer;
  323. begin
  324.   Result := CompareStr(FSearchName, Tag.Name)
  325. end;
  327. function THtmlTagList.CompareNumber(Tag: THtmlTag): Integer;
  328. begin
  329.   Result := FSearchNumber - Tag.Number
  330. end;
  332. function THtmlTagList.GetTagByName(const Name: TDomString): THtmlTag;
  333. begin
  334.   FSearchName := Name;
  335.   Result := GetTag(CompareName);
  336.   if Result = nil then
  337.     Result := FUnknownTag
  338. end;
  340. function THtmlTagList.GetTagByNumber(Number: Integer): THtmlTag;
  341. begin
  342.   FSearchNumber := Number;
  343.   Result := GetTag(CompareNumber)
  344. end;
  346. function TURLSchemes.Add(const S: String): Integer;
  347. begin
  348.   if Length(S) > FMaxLen then
  349.     FMaxLen := Length(S);
  350.   Result := inherited Add(S)
  351. end;
  353. function TURLSchemes.IsURL(const S: String): Boolean;
  354. begin
  355.   Result := IndexOf(LowerCase(S)) >= 0
  356. end;
  358. function TURLSchemes.GetScheme(const S: String): String;
  359. const
  360.   SchemeChars = [Ord('A')..Ord('Z'), Ord('a')..Ord('z')];
  361. var
  362.   I: Integer;
  363. begin
  364.   Result := '';
  365.   for I := 1 to MaxLen + 1 do
  366.   begin
  367.     if I > Length(S) then
  368.       Exit;
  369.     if S[I] = ':' then
  370.     begin
  371.       if IsURL(Copy(S, 1, I - 1)) then
  372.         Result := Copy(S, 1, I - 1);
  373.       Exit
  374.     end
  375.   end
  376. end;
  378. initialization
  380.   HtmlTagList := THtmlTagList.Create;
  381.   URLSchemes := TURLSchemes.Create;
  382.   URLSchemes.Add('http');
  383.   URLSchemes.Add('https');
  384.   URLSchemes.Add('ftp');
  385.   URLSchemes.Add('mailto');
  386.   URLSchemes.Add('news');
  387.   URLSchemes.Add('nntp');
  388.   URLSchemes.Add('gopher');
  390. finalization
  392.   HtmlTagList.Free;
  393.   URLSchemes.Free
  395. end.