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;
Trouble logging in? Simply enter your email address OR username in order to reset your password.
For faster and more reliable delivery, add admin@clevercomponents.com to your trusted senders list in your email software.