[SOLVED] Decode html symbols

[artem101]

Is there any built-in solution in Lazarus for decode html entries like ", ' and etc.?

Something like this:

Code: Pascal  [Select][+][-]

1. s := '"hello" 'world'';
2. s := decode_html(s);
3. writeln(s); // "hello" 'world'

Or I need to "reinvent the bicycle"?

[dsiders]

Is there any built-in solution in Lazarus for decode html entries like ", ' and etc.?

Something like this:

Code: Pascal  [Select][+][-]

1. s := '"hello" 'world'';
2. s := decode_html(s);
3. writeln(s); // "hello" 'world'

Or I need to "reinvent the bicycle"?

FCL includes EscapeHtml and UnescapeHtml routines in fcl-xml/src/htmlelements.pp. They handle the common name entities you mentioned.

[wp]

Or uses ResolveHTMLEntityReference in unit HtmlDefs:

Code: Pascal  [Select][+][-]

1. uses
2.  HtmlDefs;
3. procedure TForm1.Button1Click(Sender: TObject);
4. var
5.   entity: String;
6.   wCh: WideChar;
7. begin
8.   entity := 'Auml';
9.   if ResolveHTMLEntityReference(WideString(entity), wCh) then
10.     ShowMessage(entity + ' --> ' + UTF8Encode(wCh));
11. end;

[artem101]

FCL includes EscapeHtml and UnescapeHtml routines in fcl-xml/src/htmlelements.pp. They handle the common name entities you mentioned.

This is what I need. Thanks.