fpcsrc/tests/test/packages/fcl-xml/thtmlwriter.pp


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.