Discussion :

[ZenZiTone]

Bonjour à tous,

Mon application principale à pour but de créer des dossiers sur un certain répertoire, contnant des fichiers à imprimer. L'imprimante destinataire supprime les fichiers une fois consommés, puis renomme le dossier pour 'annoncer' que tout les fichers ont bien été traités.

Un répertoire crée correspond donc à une demande d'impression.

Ce que je souhaite, c'est vérifier quand l'impression est terminée. Pour celà j'utilise un Thread et la méthode Synchonize.

Sur mon applicatin principale, j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
with Thread_GestionImpressions.Create(true)
        do begin
            FreeOnTerminate := true;
            setDossier(wImpressionEnvoyee+'_OK');
            setPathDirSeriesImpression(PATH_IMPR);
            setLigne(SG_GestionImpression.RowCount-1);
            Start;
        end;

Soucis rencontré, seul la dernière instance de thread semble fonctionner. J'ai essayer avec un tableau :

Code :

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

1
2
3
4
5
    Tab_Threads[wNumeroThreadEnCours]:= Thread_GestionImpressions.Create(true);
    Tab_Threads[wNumeroThreadEnCours].FreeOnTerminate:=True;
    Tab_Threads[wNumeroThreadEnCours].setDossier(wImpressionEnvoyee+'_OK');
    Tab_Threads[wNumeroThreadEnCours].setPathDirSeriesImpression(PATH_IMPR);
    Tab_Threads[wNumeroThreadEnCours].setLigne(SG_GestionImpression.RowCount-1);

Mais j'ai le même soucis... Et quelques recherches internet n'ont pas été fructueuses.

Je vous demande donc un petit coup de main

Merci par avance,

ZenZiTone.

[Andnotor]

Difficile à dire, tu nous en montres le minimum (en tout cas rien d’intéressant au niveau de l'exécution du thread)
Mais cette ligne ne m'inspire pas SG_GestionImpression.RowCount-1. Accéder à la VCL depuis un thread entraîne plus de problèmes qu'autre chose...

[ZenZiTone]

Pour préciser un peu la chose:

J'ai une classe threadée, dans laquelle j'ai des setteurs pour passer des paramètres avant le Execute. Dans le excute, une "boulce infinie" test la présence d'un dossier dans un répertoire donné par un des setteurs.

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 Thread_GestionImpressions.Execute;
begin
  { Placer le code du thread ici }
    while FindFirst(wPath+'\'+wNomDossier,faDirectory, searchResult)=0
    do begin
        Sleep(wTempsSommeil);
        FindClose(searchResult);
    end;
    Synchronize(
        procedure
        begin
            F_PRINT.SG_GestionImpression.Cells[wCOl_EtatImpression,wLigne] := wLBL_Etat_Termine;
        end
    );
 
    Terminate;
end;
 
procedure Thread_GestionImpressions.setDossier(NomDossier:String);
begin
    wNomDossier := NomDossier;
end;
procedure Thread_GestionImpressions.setPathDirSeriesImpression(Path:String);
begin
    wPath := Path;
end;
procedure Thread_GestionImpressions.setligne(Ligne:integer);
begin
    wLigne := Ligne;
end;

Ensuite, depuis l'appication principale je souhaite créer autant d'instances de ce Thread que d'impressions sont lancées...

Pour cela, j'ai une méthode qui va faire la procédure suivante après chaque demande d'impression :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TF_PRINT.gestionDemandesImpressions(wImpressionEnvoyee : String);
begin
with Thread_GestionImpressions.Create(true)
        do begin
            FreeOnTerminate := true;
            setDossier(wImpressionEnvoyee+'_OK');
            setPathDirSeriesImpression(wPATH_IMPR);
            setLigne(SG_GestionImpression.RowCount-1);
            Start;
        end;
end;

Mon problème est que seul la dernière instance semble être en cours d'exécution.

Mais cette ligne ne m'inspire pas SG_GestionImpression.RowCount-1. Accéder à la VCL depuis un thread entraîne plus de problèmes qu'autre chose...

Dans je vais faire une procédure pour le faire alors ^^'