événement dans un thread

**butch** · 12/08/2010, 16h17

Bonjour.
Je viens d'utiliser les threads pour la première fois.
Dans mon thread, j'établie une connexion avec un serveur,
je remonter un fichier en tcp. (pas en ftp, mais avec un protocole propriétaire)
Tout fonctionne bien.

Le fichier est remonté en plusieurs paquets.
A chaque paquet, je souhaiterais déclencher un evt qui donne la taille envoyé et la taille totale.

Dans cet evenement, je souhaiterais dans le thread principal afficher la progression dans un composant TLabel.
Mais le label ne se rafraichit pas.
Ou est le pb ?
J'ai aussi mis une progressbar, elle se rafraichit bien

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
procedure TUploadThread.Execute;
begin
 if not Connexion then exit;
 if not Upload then exit;
 DeConnexion;
end;
 
procedure TUploadThread.callOnPacketSent();
begin
 if Assigned(fOnPacketSent)then
 begin
  fOnPacketSent(LenSent,LenTot)
 end;
end;
 
function TUploadThread.Upload():boolean;
var
temp,chaineIconv:string;
code3:string;
LenToSend:integer;
begin
 result := false;
 fStream.LoadFromFile(ffileSrc);
 temp := TRAME_UPLOAD_THREAD;
 CnvA2E(temp);
 chaineIconv := temp+ ShortToString(length(fFileDest));
 temp := fFileDest;
 cnvA2E(temp);
 chaineIconv := chaineIconv + temp;
 fTcpClient.Sendln(chaineIconv,'');
 code3 := receptionAlpha(fTcpClient,3);
 if(Code3 =TRAME_MESSAGE_ERREUR)then
 begin
  if assigned(fOnErrorUpload)then
  begin
   fOnErrorUpload(teFileName);
  end;
  exit;
 end;
 result := true;
 LenSent := 0;
 fStream.Seek(0,soFromBeginning);
 LenTot :=  fStream.Size;
 while(LenSent < LenTot)do
 begin
  LenToSend := fStream.Size - LenSent;
  if(LenToSend) > fPacketSize then
  begin
   LenToSend := fPacketSize;
  end;
  SetString(temp,nil,lenToSend);
  fStream.Read(temp[1],lenToSend);
  chaineIconv := #1 + inttostring(LenToSend) +temp;
  fTcpClient.Sendln(chaineIConv,'');
  LenSent := LenSent + LenToSend;
  code3 := receptionAlpha(fTcpClient,3);
  if(Code3 =TRAME_MESSAGE_ERREUR)then
  begin
   if assigned(fOnErrorUpload)then
   begin
    fOnErrorUpload(teWrite);
   end;
   exit;
  end;
 
  Synchronize(callOnPacketSent);
 
  if(fToStop)then
  begin
   chaineIconv := #0;
   fTcpClient.Sendln(chaineIConv,'');
   receptionAlpha(fTcpClient,3);
  end;
 end;
 chaineIconv := #0;
 fTcpClient.Sendln(chaineIConv,'');
 code3 := receptionAlpha(fTcpClient,3);
 if(Code3 =TRAME_MESSAGE_ERREUR)then
 begin
  if assigned(fOnErrorUpload)then
  begin
   fOnErrorUpload(teSync);
  end;
  exit;
 end;
 Synchronize(callOnEndUpload);
 
 
 
end;
//fonction appelée dans l'evenement onPacketSent 
 
procedure TFormDesigner.MySent(sent:integer;Total:integer);
begin
 Label1.Caption := inttostr(sent)+'/'+inttostr(total);
 ProgressBar1.Max := total;
 ProgressBar1.Position := sent;
end;

**tourlourou** · 12/08/2010, 17h57

Idem en ajoutant (Label1.)Refresh ou Repaint dans MySent ?
ou Application.ProcessMessages ?

**Andnotor** · 12/08/2010, 20h49

Il ne faut pas accéder directement à la VCL depuis un thread secondaire.
A la place, utilise PostMessage avec tes positions actuelle et Max en paramètres.

Même si c'était fait pour du download, tu as un exemple ici (tout ce qui concerne WM_DOWNLOADPROGRESS).

**ShaiLeTroll** · 13/08/2010, 11h09

AndNotOr, il a utilisé Synchronize pour lancer ses events, c'est donc sans risque !
Mais PostThreadMessage ou PostMessage conserve l'avantage de la rapidité (le traitement d'affichage ne ralentissant pas le traitement)

la ProgressBar est un control windows, il se rafraichit automatiquement dès que l'on le modifie
le Label est un control graphique delphi, il faut le dessiner explicitement ou ajouter un Application.ProcessMessages (à éviter pour les performances du thread)

**butch** · 13/08/2010, 11h33

Bonjour. Merci pour vos réponses.
Je viens de constater qu'en enlevant la propriété mdiform de la fenêtre principale, le pb ne se produit plus.

j'ai fait un autre test dans une nouvelle appli , juste un timer et une fenetre mdi mere , je constate le meme pb.

Le pb ne vient donc sans doute pas du thread, désolé pour le dérangement.

**LadyWasky** · 13/08/2010, 12h11

Envoyé par ShaiLeTroll

AndNotOr, il a utilisé Synchronize pour lancer ses events, c'est donc sans risque !
Mais PostThreadMessage ou PostMessage conserve l'avantage de la rapidité (le traitement d'affichage ne ralentissant pas le traitement)

la ProgressBar est un control windows, il se rafraichit automatiquement dès que l'on le modifie
le Label est un control graphique delphi, il faut le dessiner explicitement ou ajouter un Application.ProcessMessages (à éviter pour les performances du thread)

Tout à fait d'accord avec toi

**Andnotor** · 13/08/2010, 17h34

Envoyé par ShaiLeTroll

AndNotOr, il a utilisé Synchronize pour lancer ses events, c'est donc sans risque !

J'ai répondu le soir sans relire le code. Le premier posté n'avait pas de synchronize (ou alors j'ai rêvé)

**Montor** · 13/08/2010, 19h42

invalidate ...

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
var Step :integer =0;
procedure TFormDesigner.MySent(sent:integer;Total:integer);
begin
 
  if(Step = (sent*100 div Total ))then
      Exit;
 
   Step:=sent*100 div Total ;
 
 Label1.Caption := inttostr(sent)+'/'+inttostr(total);
 ProgressBar1.Max := total;
 ProgressBar1.Position := sent;
 
 invalidate();
 
end;

**butch** · 16/08/2010, 11h52

andnotor :Tu n'as pas rêvé, j'ai ajouté le synchronize après.
Montor: Le invalidate fonctionne, mais fait scintiller la fenêtre.
Mais il s'agit simplement d'un pb avec la fenetre mdi mere, ce qui m'est égal puisque j'avais mis le label juste pour vérifier que tout se passe bien.

Merci de vos réponses

événement dans un thread

Langage Delphi

Discussions similaires

Partager

Partager