Re: [Firebird-devel] XML Load/Dump Utility

[Derryck W. <der...@tn...>]

About the encoding,

this is something i use in a web-engine:

function TSpecialChars.To_XmlValue_Characters(source: wideString):
UTF8String;
// encode content

// This function replaces the following characters
//http://www.wdvl.com/Authoring/HTML/Tutorial/special_characters.html
// with their respective character references:
//              <     &#60;
//              >     &#62;
//              ?     &#63;
//              &     &#38;
//              '     &#39;
//              "     &#34;
//              [     &#91;
//              ]     &#93;
//              `     &#96;
//              !     &#33;



(****************************************
Unused &#00; - &#08;
Horizontal Tab &#09;
Line Feed &#10;
Unused &#11; - &#31;
Space &#32;
! &#33;
" &#34;
# &#35;
$ &#36;
% &#37;
& &#38;
' &#39;
( &#40;
) &#41;
* &#42;
+ &#43;
, &#44;
- &#45;
. &#46;
/ &#47;
0-9 &#48; - &#57;
: &#58;
; &#59;
< &#60;
= &#61;
> &#62;
? &#63;
@ &#64;
A - Z &#65; - &#90;
[ &#91;
\ &#92;
] &#93;
^ &#94;
_ &#95;
` &#96;
a - z &#97; - &#122;
{ &#123;
| &#124;
} &#125;
~ &#126;
Unused &#127; - &#160;
****************************)
var
  i,l: integer;
  s: UTF8String;
  v:integer;
begin
  result:= '';
  s:='';
  if source<>'' then
  try
  l:=length(source);
  for i:= 1 to l do
  begin
    v:=ord(source[i]);

    if ( v in [33,34,38,39,60,62,91,93,96])
    then  s:=s+'&#'+inttostr(v)+';' else
    if (i=l) and (v=0) then s := s + ' ' else
    s := s + source[i];

  end;

  except  S:='String Exception';
  end;

  Result:= s;


end;
-----


Greetings,

Derryck