blob: b8ffb6ee68c6cdb3712ad213d2aec2e7b5ff857d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
program TestHtmlWriter;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, htmlwriter, htmlelements;
var hwriter: THtmlWriter;
hdoc : THTMLDocument;
begin
hdoc := THTMLDocument.Create;
hwriter := THTMLwriter.create(hdoc);
hwriter.Starthtml;
hwriter.Starthead;
hwriter.title('Test website');
hwriter.Endhead;
hwriter.Startbody;
hwriter.paragraph('test line 1');
hwriter.paragraph('test line 2');
hwriter.Endbody;
hwriter.Endhtml;
hwriter.Free;
writeln(hdoc.Asstring);
hdoc.Free;
end.
|