* Fixed header replacement when using fcl-web

This commit is contained in:
Andreas Schneider 2015-09-17 16:24:10 +02:00
parent 4f048a3d02
commit a808f949ab
1 changed files with 2 additions and 1 deletions

View File

@ -70,9 +70,10 @@ var
begin begin
parser.Content := AHeader; parser.Content := AHeader;
parser.Replace; parser.Replace;
AHeader := parser.Content;
{$ifdef use_synapse} {$ifdef use_synapse}
http.Headers.Add(parser.Content); http.Headers.Add(AHeader);
{$endif} {$endif}
{$ifdef use_fclweb} {$ifdef use_fclweb}