*Correct encoding

packages/fcl-web/src/base/fcgigate.pp

@@ -106,7 +106,7 @@ Type
     // Transform CGI environment variables.
     Function TransformRequestVars: String;virtual;
     // Encode name=value pair for PARAMS fastcgi record.
-    Function EncodeFastCGIParam(N, V: AnsiString): String;
+    Function EncodeFastCGIParam(N, V: AnsiString): ansiString;
     // High-level Communication
     // Send data from request
     procedure SendRequestData(const ARequest : TRequest); virtual;
@@ -246,7 +246,7 @@ begin
       Result:=Result+Format('#%.3d',[Ord(S[i])]);
 end;
 
-Function TFastCGIGatewayHandler.EncodeFastCGIParam(N,V : AnsiString) : String;
+Function TFastCGIGatewayHandler.EncodeFastCGIParam(N,V : AnsiString) : AnsiString;
 
   Function CalcJump(ALen : Integer) : Integer;
   begin
@@ -256,7 +256,7 @@ Function TFastCGIGatewayHandler.EncodeFastCGIParam(N,V : AnsiString) : String;
       Result:=4;
   end;
 
-  Procedure AddLengthEncoding(Var S : String; ALen : Integer; Var Offset : Integer);
+  Procedure AddLengthEncoding(Var S : AnsiString; ALen : Integer; Var Offset : Integer);
 
   Var
     J,L : integer;
@@ -445,7 +445,7 @@ var
   BytesRead : integer;
   ContentLength : word;
   PaddingLength : byte;
-  ReadBuf : Pchar;
+  ReadBuf : PAnsiChar;
 
   function ReadBytes(ByteAmount : Word) : boolean;
 
@@ -470,7 +470,7 @@ begin
   PaddingLength:=Header.paddingLength;
   Result:=Getmem(BytesRead+ContentLength+PaddingLength);
   Result^:=Header;
-  ReadBuf:=Pchar(Result)+SizeOf(Header);
+  ReadBuf:=PAnsiChar(Result)+SizeOf(Header);
   ReadBytes(ContentLength);
   ReadBuf:=ReadBuf+BytesRead;
   ReadBytes(PaddingLength);
@@ -492,7 +492,7 @@ Procedure TFastCGIGatewayHandler.ReadResponse(AResponse : TResponse);
 Var
   Rec : PFCGI_Header;
   CL : Integer;
-  WBuf : PChar;
+  WBuf : PAnsiChar;
   EOR : Boolean;
 
 begin
@@ -508,7 +508,7 @@ begin
          begin
          AResponse.ContentStream:=TMemoryStream.Create;
          end;
-      WBuf:=Pchar(Rec)+SizeOf(FCGI_Header);
+      WBuf:=PAnsiChar(Rec)+SizeOf(FCGI_Header);
       AResponse.ContentStream.WriteBuffer(WBuf^,CL);
       end
     else If (Rec^.ReqType=FCGI_END_REQUEST) and (CL>0) then