paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 07:17:23 +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 FPC_FULLVERSION > 30000}or FClient.IsRedirect(FClient.ResponseStatusCode){$ENDIF};
if Result then if Result then
begin begin
FContentType := FClient.ResponseHeaders.Values['Content-Type']; FContentType := AllTrimSpaces(FClient.ResponseHeaders.Values['Content-Type']);
AContentType := FContentType; AContentType := FContentType;
end; end;
finally finally