paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 08:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix whitespace

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-14 09:16:39 +01:00 committed by Ondrej Pokorny
parent 2fc71285f4
commit af4578f8ca
1 changed files with 31 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
packages/fcl-web/src/base/fphttpclientasyncpool.pas
View File

@ -873,22 +873,22 @@ begin
while I<xQueue.Count do
begin
xItem := TFPHTTPClientAsyncPoolRequestQueueItem(xQueue[I]);
if (CompareDateTime(xItem.BreakUTC, 0)<>0) and (CompareDateTime(xItem.BreakUTC, NowUTC)<0) then
begin // timeout is over
xItem.Free;
xQueue.Delete(I);
end else
if xClients=xItem.Clients then
begin // found a request waiting in queue
if (CompareDateTime(xItem.BreakUTC, 0)<>0) and (CompareDateTime(xItem.BreakUTC, NowUTC)<0) then
begin // timeout is over
xItem.Free;
xQueue.Delete(I);
end else
if xClients=xItem.Clients then
begin // found a request waiting in queue
xRequest := xItem.Request;
xItem.Request := nil; // do not destroy/abort request
xItem.Free;
xQueue.Delete(I);
CreateRequestThread(xRequest, aClient);
Exit;
end else
Inc(I);
Exit;
end else
Inc(I);
end;
// no waiting request found - release the client
@ -901,11 +901,11 @@ end;
destructor TFPCustomHTTPClientAsyncPool.Destroy;
procedure _TerminateAll(_List: TList);
var
I: Integer;
begin
I: Integer;
begin
for I := 0 to _List.Count-1 do
TThread(_List[I]).Terminate;
end;
end;
procedure _ClearWaitingQueue(_List: TList);
var
I: Integer;
@ -942,14 +942,14 @@ procedure TFPCustomHTTPClientAsyncPool.DoOnAbortedFinish(var ioRequest: TFPHTTPC
var
xResult: TFPHTTPClientPoolResult;
begin
xResult := TFPHTTPClientPoolResult.Create(ioRequest);
try
xResult.MethodResult := mrAbortedByClient;
xResult := TFPHTTPClientPoolResult.Create(ioRequest);
try
xResult.MethodResult := mrAbortedByClient;
ioRequest.DoOnFinish(xResult);
ioRequest := nil; // ioRequest gets destroyed in xResult.Free
finally
xResult.Free;
end;
ioRequest := nil; // ioRequest gets destroyed in xResult.Free
finally
xResult.Free;
end;
end;
procedure TFPCustomHTTPClientAsyncPool.DoOnAbortedFinishSynchronized;
@ -1072,9 +1072,9 @@ begin
LockWorkingThreads(xList, xQueue);
try
for I := 0 to xList.Count-1 do
begin
begin
if TObject(xList[I]) is TFPHTTPClientAsyncPoolThread then
begin
begin
xThread := TFPHTTPClientAsyncPoolThread(TObject(xList[I]));
xThread.LockProperties;
try
@ -1087,14 +1087,14 @@ begin
end;
for I := xQueue.Count-1 downto 0 do
begin
begin
xItem := TFPHTTPClientAsyncPoolRequestQueueItem(xQueue[I]);
if xItem.Request.Owner=aOwner then
begin // found a request waiting in queue
xItem.Free;
xQueue.Delete(I);
end;
xItem.Free;
xQueue.Delete(I);
end;
end;
finally
UnlockWorkingThreads;
end;
@ -1194,7 +1194,7 @@ begin
try
xStop := False;
if Request.HasProgress then
ExecOnProgress(aDirection, aCurrentPos, aContentLength, xStop);
ExecOnProgress(aDirection, aCurrentPos, aContentLength, xStop);
if xStop or Terminated then
(Sender as TFPCustomHTTPClient).Terminate;
@ -1255,9 +1255,9 @@ end;
procedure TFPHTTPClientAsyncPoolRequestThread.ExecOnInit;
begin
if Request.SynchronizeOnInit then
Synchronize(@DoOnInit)
else
DoOnInit;
Synchronize(@DoOnInit)
else
DoOnInit;
end;
procedure TFPHTTPClientAsyncPoolRequestThread.ExecOnProgress(const aDirection: TFPHTTPClientPoolProgressDirection;
@ -1352,3 +1352,4 @@ end;
end.