Update Horse.BasicAuthentication.pas

Author: AndreaLai74

src/Horse.BasicAuthentication.pas

@@ -97,6 +97,9 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
   end;
 
   LBasicAuthenticationEncode := Req.Headers[Config.Header];
+  
+  //* 03-01-2023 - the authentication Header under Apache Module must be readed from "RawWebRequest" .....
+  if LBasicAuthenticationEncode.Trim.IsEmpty then LBasicAuthenticationEncode := Req.RawWebRequest.GetFieldByName(Config.Header);  
 
   if LBasicAuthenticationEncode.Trim.IsEmpty and not Req.Query.TryGetValue(Config.Header, LBasicAuthenticationEncode) then
   begin