paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_IPro: remove leading and trailing spaces of ContentType in TIpHttpDataProvider.CheckURL

Browse Source 
git-svn-id: trunk@53994 -
This commit is contained in:
wp 2017-01-24 17:40:39 +00:00
parent df696ddabc
commit d0311c6a2c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphttpbroker.pas
View File

@ -132,7 +132,7 @@ begin
{$IF FPC_FULLVERSION > 30000}or FClient.IsRedirect(FClient.ResponseStatusCode){$ENDIF};
if Result then
begin
FContentType := FClient.ResponseHeaders.Values['Content-Type'];
FContentType := AllTrimSpaces(FClient.ResponseHeaders.Values['Content-Type']);
AContentType := FContentType;
end;
finally