Browse Source

* Set namevalueseparator for headers

git-svn-id: trunk@43080 -
michael 5 years ago
parent
commit
413b5adb59
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-web/src/base/custmicrohttpapp.pp

+ 1 - 0
packages/fcl-web/src/base/custmicrohttpapp.pp

@@ -437,6 +437,7 @@ Var
 begin
 begin
   // Note that if the response is allocated, then you cannot set the content stream any more...
   // Note that if the response is allocated, then you cannot set the content stream any more...
   MaybeAllocateResponse;
   MaybeAllocateResponse;
+  Headers.NameValueSeparator:=':';
   For I:=0 to Headers.Count-1 do
   For I:=0 to Headers.Count-1 do
     begin
     begin
     Headers.GetNameValue(I,N,V);
     Headers.GetNameValue(I,N,V);