blob: cf5b5b894e1f5a0da02d874b226ef2ea6c022e80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
program testhtml;
{
simple demo to demonstrate rewriting a HTML file
}
uses sysutils, dom_html,sax_html, XMLWrite;
Var
H : THTMLDocument;
begin
if ParamCount<>2 then
begin
Writeln('Usage: ',ExtractFileName(Paramstr(0)),' inputfile outputfile');
Halt(1);
end;
ReadHTMLFile(H,ParamStr(1));
WriteXMLFile(H,Paramstr(2));
end.
|
