Discussion :

[Teufa]

Salut à tous,

Voila j'envoie un mail avec le TIdSMTP, et je voulais affiché la progression avec un TGauge, donc j'ai déclaré dans la var :

Code :

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

1
2
3
4
5
 
var
Form1: TForm1;
MaxSize : Integer;
TempsDebut,Temps : Dword;

Puit j'ai écrit comme code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
TempsDebut := GetTickCount;
Gauge1.Progress := Round(AWorkCount / MaxSize * 100);
Application.ProcessMessages;
end;
 
procedure TForm1.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
Temps := GetTickCount;
MaxSize := AWorkCountMax;
Gauge1.Progress := 0;
end;

Le problème c'est qu'il me dit comme erreur quant j'envoie le mail :

Le projet xxxx a provoqué une classe d'exception EZeroDivide avec le message 'Division par zéro en virgule flotante'.
Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

Pour la ligne suivante

Code :

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

Gauge1.Progress := Round(AWorkCount / MaxSize * 100);

Merci d'avance.

[Rayek]

Rajoute :

Code :

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

1
2
3
 
if Maxsize <> 0 then
Gauge1.Progress := Round(AWorkCount / MaxSize * 100);

Tu n'auras plus l'erreur

[Teufa]

Salut Malatar,
J'ai plus l'erreur, mais le TGauge n'avance pas

[Rayek]

Salut Malatar,
J'ai plus l'erreur, mais le TGauge n'avance pas

Normal, la taille de ton mail est trop petite. Essaie avec une piece jointe

[Teufa]

Meme avec une piece jointe sa ne marche pas.

[Rayek]

Pose un Memo dans ta form

Dans les evenements onworkbegin, onwork et onworkend met des
Memo.lines.add('Debut') , 'Encours' et 'fin'.
Pour voir si les evenements sont bien traités car je crois que le composant IDSMTP est buggé au niveau de ses evenements car ils ne passent pas toujours.