Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
daniele.teti 2013-11-18 10:51:59 +00:00
parent fb2ed8fd9f
commit 1ab21574be
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
sources/MVCFramework.pas
View File

@ -1142,15 +1142,18 @@ var
c: String;
begin
inherited Create;
c := AWebRequest.GetFieldByName('content-type');
CT := c.Split([';']);
FContentType := trim(CT[0]);
FContentEncoding := 'UTF-8'; // default encoding
if Length(CT) > 1 then
c := AWebRequest.GetFieldByName('Content-Type');
if not c.IsEmpty then
begin
if CT[1].trim.StartsWith('charset', true) then
CT := c.Split([';']);
FContentType := trim(CT[0]);
FContentEncoding := 'UTF-8'; // default encoding
if Length(CT) > 1 then
begin
FContentEncoding := CT[1].trim.Split(['='])[1].trim;
if CT[1].trim.StartsWith('charset', true) then
begin
FContentEncoding := CT[1].trim.Split(['='])[1].trim;
end;
end;
end;
end;