diff --git a/xidelbase.pas b/xidelbase.pas index 221f907..1d8c232 100644 --- 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;