فهرست منبع

* Accidentally reversed condition...

Michaël Van Canneyt 3 روز پیش
والد
کامیت
b3094cef04
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      packages/fcl-web/src/base/fphttpclient.pp

+ 1 - 1
packages/fcl-web/src/base/fphttpclient.pp

@@ -1029,7 +1029,7 @@ Var
 
 begin
   S:=Uppercase(GetNextWord(AStatusLine));
-  If StartsStr('HTTP/',S) then
+  If not StartsStr('HTTP/',S) then
     Raise EHTTPClient.CreateFmt(SErrInvalidProtocolVersion,[S]);
   System.Delete(S,1,5);
   FServerHTTPVersion:=S;