fix http error-handling (see gh #104)

benibela · Jun 27, 2023 · 9905cb0 · 9905cb0
1 parent f7a7ff6
commit 9905cb0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/xidelbase.pas b/xidelbase.pas
@@ -2237,7 +2237,7 @@ function TProcessingContext.evaluateQuery(const query: IXQuery; const data: IDat
 procedure TProcessingContext.httpReact(sender: TInternetAccess; var transfer: TTransfer; var reaction: TInternetAccessReaction);
 begin
   stupidHTTPReactionHackFlag := 0;
-  case TInternetAccess.reactFromCodeString(errorHandling, sender.lastHTTPResultCode, reaction) of
+  case TInternetAccess.reactFromCodeString(errorHandling, transfer.HTTPResultCode, reaction) of
     'retry': Sleep(trunc(wait*1000));
     'ignore': stupidHTTPReactionHackFlag := 1;
     'skip': stupidHTTPReactionHackFlag := 2;