Thread ?

Réponse acceptée !
re,

"deux programmes (et donc deux threads)"
dsl, mais deux programme c'est deux process. et ça me semble plus simple de faire deux thread que deux process.
C'est intéressant de faire deux PROCESS (application) si tu n'as pas besoin de l'affichage en premanance. tu laisse le process d'acquisition et de traitement tourner, et tu ne charge l'affichage que lors tu en as besoin. (et l'affichage vas lire un memorymap ou équivalent). C'est le même genre de system que pour configurer des services.

WhiteHippo a raison, tu gagne avec les thread si t'en a un nombre raisonnable. Si t'en a bcp, tu perd!

"je ne compte pas en avoir plus de 3 en tout, grand maximum." : très bien. N'oublie pas de regler les priorité !
Tu peux en avoir 4: genre un pour les acquisition lente, un pour les rapide, un pour les calculs sur les acquisition et le principal (affichage). Si els calculs sont rapide, tu peux les faire dans le thread d'acquisition.
(n'oublie pas que windows n'est PAS déterministe) sit u as besoisnd e rendre windows déterministe (ie: pour du Real time) il existe des trucs. (j'avais fait des recherche la dessus pour mon travail de diplôme. demande moi si jamais)

POur le debug, Tu peux faire une version avec un seul thread (ie: sans thread) qui fait une seul choses. En premier, disons l'acquisition, puis une fois qu'il marche bien, de faire le reste. Pour aller loin, il faut y aller par étape. (mais je pense que tu le sais déjà, non?)

Tu m'as l'aire d'avoir toute les chances de très bien t'en sortir. (Debug par log, se documenter avant de commencer, ...)

Un ou deux trucs:
-dérive la class TTHread de base pour ajouter des fct de debug/log

- nomme tes thread pour le debug. (ajout un champs fThreadName)
{$IFDEF DEBUG}
type
  TThreadNameInfo = record
    FType: LongWord;     // must be 0x1000
    FName: PChar;        // pointer to name (in user address space)
    FThreadID: LongWord; // thread ID (-1 indicates caller thread)
    FFlags: LongWord;    // reserved for future use, must be zero
  end;

procedure SetName(const Name:String);
var
  ThreadNameInfo: TThreadNameInfo;
begin
  ThreadNameInfo.FType := $1000;
  ThreadNameInfo.FName := PAnsiChar(@name[1]);
  ThreadNameInfo.FThreadID := $FFFFFFFF;
  ThreadNameInfo.FFlags := 0;
  try
    RaiseException( $406D1388, 0, sizeof(ThreadNameInfo) div sizeof(LongWord),
      @ThreadNameInfo);
  except
  end;
end;
{$ENDIF}

procedure TMonCustomThread.Execute;
begin
  inherited;

  {$IFDEF DEBUG}
  SetName(fThreadName);
  {$ENDIF}
end;

pour catcher les exception dans un thread:

procedure TMonCustomThread.DoTerminate; (override)
begin
  inherited;

  if Assigned(FatalException) then My_ProcessUnhandeledException(self,FatalException as Exception);
// tu peux faire la meme choses dans le event OnTerminate. mais pour une class de base...
end;


Si t'as des problèmes pratiques, demandes nous.

bon code,

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.