Discussion :

[Tillt]

Bonjour.

J'utilise une TObjectList dans un TThread afin de dépiler des requêtes vers un web service.
Ce code fonctionne bien sous Delphi 2010 mais explose avec XE8 et une version d'évaluation de 10.

Mon thread est censé tourner tant que ma liste n'est pas vide sauf que lorsqu'elle l'est il passe encore sur une condition Liste.Count > 0.
La preuve en image :

On voit en la liste est vide avec le popup de debug...

Avez-vous une idée de ce que j'ai pu louper..?

Merci

[Paul TOTH]

Bonjour.

J'utilise une TObjectList dans un TThread afin de dépiler des requêtes vers un web service.
Ce code fonctionne bien sous Delphi 2010 mais explose avec XE8 et une version d'évaluation de 10.

Mon thread est censé tourner tant que ma liste n'est pas vide sauf que lorsqu'elle l'est il passe encore sur une condition Liste.Count > 0.
La preuve en image :

On voit en la liste est vide avec le popup de debug...

Avez-vous une idée de ce que j'ai pu louper..?

Merci

difficile à dire hors contexte, la liste est-elle mise à jour par plusieurs threads par exemple ?

[Tillt]

Non je ne pense pas.

Voici les lignes de code qui concernent cette liste :

- La création du thread dans mon compo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TMyComponent.ExecuteRequests;
var
  Thread: TMyThread;
begin
  Thread := TMyThread.Create;
  ...
  Thread.OnRequestDone := ThreadRequestDoneEv;
  Thread.OnTerminate := ThreadTerminateEv;
  Thread.OnLog := ThreadLogEv;
 
  Thread.RequestList.AddRequest(RequestType1, RequestObject1);
  Thread.RequestList.AddRequest(RequestType2, RequestObject2);
  Thread.RequestList.AddRequest(RequestType3, RequestObject3);
 
  Thread.Start;
end;

- La procédure Execute du thread

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TMyThread.Execute;
var
  Request: TMyRequest;
begin
  while FRequestList.Count > 0 do
  begin
    if not FProcessing then
    begin
      Request := FRequestList.First;
 
      FProcessing := True;
      DoRequest(Request);
    end;
  end;
end;

- L'acquitement de ma requête dans laquelle je supprime la requête dans la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TMyThread.RequestDoneEv(ASender: TObject; ARqType: THttpRequest; AErrCode: Word);
var
  ...
begin
  ...
 
  if AErrCode = 0 then
  begin
    FCriticalSection.Enter;
    try
      ...
      if Assigned(FRequestDoneEv) then
        FRequestDoneEv(Request, FRequestList);
    finally
      FCriticalSection.Leave;
    end;
  end
  else
  begin
    ...
  end;
 
  FRequestList.Remove(Request);
  FProcessing := False;
end;

Merci pour votre aide.

[Paul TOTH]

je vois des choses étranges dans ce code...mais rien qui expliquerait le problème

pour ce genre de situation j'utilise une technique qui a fait ses preuves

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TMyThread.Execute;
var
  Request: TMyRequest;
begin
{$IFDEF LOG}
  AllocConsole; // dans Winapi.Windows
  WriteLn('Début du thread');
{$ENDIF}
  while FRequestList.Count > 0 do
  begin
{$IFDEF LOG}
  WriteLn('Count= ',FRequestList.Count,', Processing = ', FProcessing);
{$ENDIF}
    if not FProcessing then
    begin
      Request := FRequestList.First;
{$IFDEF LOG}
  WriteLn('Traitement de la requête');
{$ENDIF} 
      FProcessing := True;
      DoRequest(Request);
{$IFDEF LOG}
  WriteLn('Fin du traitement');
{$ENDIF}
    end;
  end;
{$IFDEF LOG}
  WriteLn('Fin du Thread');
{$ENDIF}
end;

cela permet d'avoir une console avec le déroulement des traitements