HTML parser for Firemonkey

 
procedure TForm1.Button1Click(Sender: TObject);
var
  parser: TclHtmlParser;
  src: TStrings;
begin
  parser := nil;
  src := nil;
  try
    parser := TclHtmlParser.Create(nil);
    src := TStringList.Create();
 
    src.LoadFromFile(Edit1.Text);
 
    parser.Parse(src);
 
    Memo1.Lines.Clear();
    Memo1.Lines.Add(parser.Title);
    Memo1.Lines.Add(parser.Description);
 
    Memo1.Lines.Add('Tags: ' + IntToStr(parser.Tags.Count));
    Memo1.Lines.Add('Links: ' + IntToStr(parser.Links.Count));
    Memo1.Lines.Add('Images: ' + IntToStr(parser.Images.Count));
    Memo1.Lines.Add('Done!');
  finally
    src.Free();
    parser.Free();
  end;
end;

Add Feedback