Delphi HTMLParser - Sample 1 - Reading tags
July 30th, 2007 by William YangHTMLParser is really easy to use. I have made an sample project for anyone who likes to use HTMLParser for their project.
Assume you have downloaded HTMLParser , and have extracted the files into your library directory.
First you need to drop the following items to your form.
- Memo1: TMemo;
- Edit1: TEdit;
- OpenDialog1: TOpenDialog;
- Button1: TButton;
- Button2: TButton;
- txtTitle: TEdit;
- txtDescription: TEdit;
- txtKeywords: TEdit;
- Memo2: TMemo;
2. Add the following code.
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if (OpenDialog1.Execute) then
- begin
- Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
- end;
- end;
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- fHTML := THTMLObject.Create;
- end;
- procedure TForm1.FormDestroy(Sender: TObject);
- begin
- fHTML.Free;
- end;
- procedure TForm1.Memo1Change(Sender: TObject);
- begin
- fHTML.LoadFromStrings(Memo1.Lines);
- UpdateFields;
- end;
3. Create a new procedure in Form1.
This method is used to make calls to fHTML to get TITLE tag, Description and Keywords meta tag
- procedure TForm1.UpdateFields;
- var
- i: Integer;
- metatag: TTagObject;
- begin
- //Get title content, just like in Javascipt, tagobject has innerText property
- txtTitle.Text := fHTML.TagByName['TITLE'].innerText;
- //Specify which tag we need look for
- fHTML.TagName := 'META';
- // Reset tag array index to first
- fHTML.First;
- // Look for next META tag
- metatag := fHTML.Next;
- while metatag <> nil do
- begin
- if metatag.CompareValue('NAME', 'DESCRIPTION') or metatag.CompareValue('HTTP-EQUIV', 'DESCRIPTION') then
- begin
- txtDescription.Text := metatag.ReadString('CONTENT', '');
- end else
- if metatag.CompareValue('NAME', 'KEYWORDS') or metatag.CompareValue('HTTP-EQUIV', 'KEYWORDS') then
- begin
- txtKeywords.Text := metatag.ReadString('CONTENT', '');
- end;
- metatag := fHTML.Next;
- end;
- end;
4. At this point you can already run this program, you should be able click Browse (button1) to parse any file on your computer or paste the HTML content from clipboard.
The following code is to show you how to get all A tags from an HTML content
- procedure TForm1.Button2Click(Sender: TObject);
- var
- i: Integer;
- metatag: TTagObject;
- begin
- fHTML.TagName := 'A';
- // Reset tag array index to first
- fHTML.First;
- // Look for next A tag
- metatag := fHTML.Next;
- Memo2.Lines.Clear;
- while metatag <> nil do
- begin
- Memo2.Lines.Add(metatag._RS('href', '(empty url)'));
- metatag := fHTML.Next;
- end;
- end;
Monday, August 13th 2007 at 11:52 am
[Error] Unit1.pas(69): Illegal character in input file: ‘&’ ($26)
in procedure TForm1.UpdateFields;
…..
while metatag <> nil do
…..
Friday, August 24th 2007 at 11:41 pm
Hi Sam:
Is this compiling time error? If is, what Delphi version are you using?
I know the code compiles without any errors on Delphi v7.