Migration vers XE8 difficile

Version imprimable

12/11/2015, 12h17
Tillt

1 pièce(s) jointe(s)

Migration vers XE8 difficile

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 :
Pièce jointe 192443
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
12/11/2015, 13h36
Paul TOTH

Citation:

Envoyé par 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 :
Pièce jointe 192443
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 ?

Non je ne pense pas.

Voici les lignes de code qui concernent cette liste :

- La création du thread dans mon compo :

Code:

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:

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:

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.

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:

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