mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:27:58 +02:00
20 lines
351 B
ObjectPascal
20 lines
351 B
ObjectPascal
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.
|
|
|