paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 12:36:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_ipro: Fix codepage conversion if identified as "windows-xxxx" in html text.

Browse Source 
git-svn-id: trunk@56701 -
This commit is contained in:
wp 2017-12-12 09:17:19 +00:00
parent ebc0d9a02b
commit ee0da5fafc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphtml.pas
View File

@ -5552,6 +5552,8 @@ begin
fDocCharset := copy(content, i, j-i); fDocCharset := copy(content, i, j-i);
end else end else
fDocCharset := FindAttribute(htmlAttrCHARSET); fDocCharset := FindAttribute(htmlAttrCHARSET);
if pos('windows', Lowercase(fDocCharset)) = 1 then
fDocCharset := NormalizeEncoding(StringReplace(fDocCharset, 'windows', 'cp', [rfIgnoreCase]));
end; end;
{$ENDIF} {$ENDIF}
Scheme := FindAttribute(htmlAttrSCHEME); Scheme := FindAttribute(htmlAttrSCHEME);