paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 10:11:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Ido Kanner to add HTMLEncode and HTMLDecode

Browse Source 
git-svn-id: trunk@17718 -
This commit is contained in:
michael 2011-06-11 11:54:01 +00:00
parent 6b42ee69a9
commit 8f49adf3c8
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/fcl-xml/src/htmlelements.pp
View File

@ -128,8 +128,30 @@ type
procedure WriteToStream (const aStream : TStream); override;
end;
function EscapeHTML(const s : String) : String;
function UnescapeHTML(const s : String) : String;
implementation
function EscapeHTML ( const S : String ) : String;
begin
Result := StringReplace(s, '&', '&', [rfReplaceAll]);
Result := StringReplace(Result, '<', '&lt;', [rfReplaceAll]);
Result := StringReplace(Result, '>', '&gt;', [rfReplaceAll]);
Result := StringReplace(Result, '"', '&quot;', [rfReplaceAll]);
Result := StringReplace(Result, #39, '&#39;', [rfReplaceAll]); // ' - &apos; does not work on ie :(
end;
function UnescapeHTML ( const S : String ) : String;
begin
Result := StringReplace(s, '&lt;', '<', [rfReplaceAll]);
Result := StringReplace(Result, '&gt;', '>', [rfReplaceAll]);
Result := StringReplace(Result, '&quot;', '"', [rfReplaceAll]);
Result := StringReplace(Result, '&#39;', #39, [rfReplaceAll]); // '
Result := StringReplace(Result, '&apos;', #39, [rfReplaceAll]); // '
Result := StringReplace(Result, '&amp;', '&', [rfReplaceAll]);
end;
{ THtmlCustomElement }
@ -201,8 +223,7 @@ end;
function THtmlCustomElement.EscapeString(s: string): string;
begin
result := s;
//TODO: Needs to convert all the special signs to their html names ("<" has to be "&lt;" etc.)
result := EscapeHTML(s);
end;
constructor THtmlCustomElement.create(AOwner: TDOMDocument);