(Delphi DLL) Setting the XML DOCTYPE
Demonstrates setting an XML document's DOCTYPE. The sample code below produces the following XML output:
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<body>This is the HTML body</body>
</html>
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xml;
...
procedure TForm1.Button1Click(Sender: TObject);
var
root: HCkXml;
begin
root := CkXml_Create();
CkXml_putTag(root,'html');
CkXml_putDocType(root,'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">');
CkXml_NewChild2(root,'body','This is the HTML body');
Memo1.Lines.Add(CkXml__getXml(root));
CkXml_Dispose(root);
end;
|
