[Indy smtp] Comment avoir une PogressBar ?

**piscine** · 17/04/2005, 19h03

bonjour,
est-il possible de mettre une progressbar lors de l'envoi d'un fichier (avec IdSmtp)? A un moment dans ma modeste application, on peut envoyer un état créé avec rave report (en fait une commande) à un fournisseur. L'envoi dure un certain temps et je voudrais mettre une progressbar afin que l'utilisateur ne pense pas que le programme s'est planté.
Merci de votre aide.

**octal** · 17/04/2005, 22h42

Oui il est possible de rajouter une progressbar. Le Composant idSMTP déclanche trois évenements :
1- OnWork (Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer)

>>> permet de faire progresser ta barre avec le param aWorkCount qui indique le facteur de progression

2- OnWorkBegin (Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
>>> se déclanche au début de l'émission, donc tu pourra l'utiliser pour afficher ta barre ou l'initialiser avec AWorkCountMax indiquant le max de la barre

3- OnWorkEnd (Sender: TObject; AWorkMode: TWorkMode)
>>> se déclanche à la fin du traitement .. pemet de faire disparaitre/remettre à zéro la barre de prog par exemple.

Il est à noter que ces trois évenements sont dispo pour la majorité des composant Indy faisant une émission ou une réception (idFTP, idPOP3, ...)
ce qui explique (en partie) l'existance du param AWorkMode du type TWorkMode qui indique le sens de l'opération en cours (émission ou réception, ou selon les termes Indy Read or Write)

tiré de l'aide Indy

TWorkMode = (wmRead, wmWrite);

Description

TWorkMode is an enumerated type that indicates the work mode or operation, and is used in the TWorkBeginEvent, TWorkEvent, and TWorkEndEvent events. TWorkMode can contain the values:

wmRead - The component is reading data from the peer.
wmWrite - The component is sending data to the peer.

**piscine** · 18/04/2005, 10h05

Merci,
voici mon 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
15
16
17
18
19
20
21
22
23
24
25
26
procedure TFMail.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
   if AWorkMode = wmWrite then
     begin
        ProgressBar1.Max := AWorkCountMax; //Maximum = taille de l'élément
        ProgressBar1.Position := 0; //Position à zéro
     end;
end;
 
procedure TFMail.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   if AWorkMode = wmWrite then
     begin
       ProgressBar1.Position := AWorkCount;
     end;
end;
 
procedure TFMail.IdSMTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
   if AWorkMode = wmWrite then
     begin
      ProgressBar1.Position := 0;
     end;
end;

et évidemment, il ne se passe rien au niveau de la progressbar.
Le fichier s'envoie mais j'oublie certainement quelque chose. y a-t-il des propriétés spéciales a ajouter sur la progressbar?
Merci de votre aide.

**Rayek** · 18/04/2005, 10h33

selon la taille du fichier que tu envoie, tu n'as pas le temps de voir la progressbar bougé, enleve ce que tu as mis sur le onworkend.

**octal** · 18/04/2005, 10h48

Envoyé par Malatar

selon la taille du fichier que tu envoie, tu n'as pas le temps de voir la progressbar bougé, enleve ce que tu as mis sur le onworkend.

tout à fait d'accord, et dans la procedure onWork rajoute un petit :

ProgressBar.Refresh;
Application.ProcessEvents;

ca ira mieux apres je pense

**piscine** · 19/04/2005, 04h47

Merci de vous donner la peine de répondre, mais désolé ca ne marche pas.

L'envoi d'un fichier .pdf (c'est mon état créé avec rave) dure +/-entre 5 et 10 sec.

ProgressBar.Refresh;
Application.ProcessEvents;

ProcessEvents n'est pas reconnu, il me manque quelque chose dans les uses?

Code :

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

1
2
3
4
5
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, Buttons, ExtCtrls,
  ComCtrls;

Encore merci a vous.

**octal** · 19/04/2005, 07h51

Quand j'y pense ... Je me rapelle qu'avec une certaine version (9.xx je pense) des Indy il y avait un Bug dans le OnWorkBegin et le paramètre AWorkCountMax été tjr à 0 (vérifiez en mode debug). Dans ce cas là on remplacait le code

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFMail.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
   if AWorkMode = wmWrite then
     begin
        ProgressBar1.Max := AWorkCountMax; //Maximum = taille de l'élément
        ProgressBar1.Position := 0; //Position à zéro
     end;
end;

par le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFMail.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
   if AWorkMode = wmWrite then
     begin
        ProgressBar1.Max := TailleFichier; //Maximum = taille de l'élément
        ProgressBar1.Position := 0; //Position à zéro
     end;
end;

où la TailleFichier est calculée comme celà

Code :

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

1
2
TailleFichier := TailleFichier + TailleFichier div 3 ; 
P.S. Vous pouvez sortit TailleMsg en facteur si vous voulez  :wink:

parce que en codage base64 la taille est augmentée d'environ 1/3 par rapport à la taille réelle du fichier.

Bien sûr que dans le cas d'un envoi de fichier multiple TailleFichier est la somme des tailles des fichiers

**octal** · 19/04/2005, 07h52

Envoyé par piscine

ProgressBar.Refresh;
Application.ProcessEvents;

ProcessEvents n'est pas reconnu, il me manque quelque chose dans les uses?

Désolé ... c'était Application.ProcessMessages

**Rayek** · 19/04/2005, 08h12

Es tu sûr que AWorkMode est bien a wmWrite ?
Essais sans le if.

**piscine** · 19/04/2005, 13h22

à Malatar :

Es tu sûr que AWorkMode est bien a wmWrite ?

oui, oui
:

Essais sans le if

tjs pas

à octal :

c'était Application.ProcessMessages

j'avais déja essayé, désolé

en tout cas merci à tous les deux encore une fois, je vais esssayer avec

Code:

procedure TFMail.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkMode = wmWrite then
begin
ProgressBar1.Max := TailleFichier;
ProgressBar1.Position := 0
end;

a+

**Rayek** · 19/04/2005, 14h39

Es tu sûr que ta piece jointe est bien mise dasn ton composant IDMessage ?

Car un mail uniquement Text tu verras meme pas la progressbar se deplacer.

De plus je crois qu'il y a un soucis avec un IDMessage au format HTML + Piece jointe. quand le texte est au format HTML la piece jointe disparait.
Autant ton problème vient de la.

Fait une recherche sur le forum sur smtp ou idmessage, y a un post qui en parle

**piscine** · 20/04/2005, 09h35

Je crois bien que oui. voici mon code de l'évenement envoyer:

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
procedure TFMail.BEnvoyerClick(Sender: TObject);
Var
  IdSMTP1: TIdSMTP;
  IdMessage1: TIdMessage;
  idText2: TidText;
  p: TidMessageParts;
  MyBody:TStrings;
Begin
     if (messagedlg('Voulez-vous envoyer cette commande?',mtconfirmation,[mbok,mbcancel],0) = mrok) then
        begin
          IdMessage1:=TIdMessage.Create(nil);
          IdSMTP1:=TIdSMTP.Create(nil);
 
          p := idMessage1.MessageParts;
          MyBody:=TStringlist.create;
          MyBody.Add('<b>Mon message </b>');
 
          idText2 := TidText.Create(p);
          idText2.ContentType := 'text/plain';
          idText2.Body.Text := mMessage.text;
 
          With IdMessage1 do
            Begin
              CharSet:='iso-8859-1';
              Encoding:=meMIME;
              ContentType:= 'multipart/mixed';
              From.Text:=eExp.text;
              Body.Text := mMessage.Text;
 
              Recipients.EMailAddresses:=eDestin.text;
              Subject:=eObjet.text;
 
              TIdAttachment.Create(IdMessage1.MessageParts,opendialog1.FileName);
            End;
          with IdSMTP1 do
          begin
              Host:='relay.skynet.be';
              Connect(300);
              try
                send(IdMessage1);
                showmessage('La commande a bien été envoyée.');
              finally
                Disconnect;
              End;
                IdMessage1.Free;
                Free;
          end;
        end
        else
          begin
            FMail.Refresh;
            LFichJoint.Caption := '';
          end;
end;

Le fichier envoyé est en format .pdf, il s'envoie bien, le destinataire recoit l'objet, le texte du message et le fichier en .pdf. merci encore

**piscine** · 20/04/2005, 09h43

alors un oubli, à tout seigneur, tout honneur, "mon code" provient de la faq delphi.

**Rayek** · 20/04/2005, 10h36

Normal que cela ne fonctionne pas, vu que tu crées dynamiquement le composant IDsmtp et que tu ne lies pas les événements a ce composant .

Code :

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

1
2
3
4
5
 
IdSMTP1:=TIdSMTP.Create(nil); 
IdSMTP1.OnWork := IdSMTP1Work;
idSMTP1.OnWorkBegin := IdSMTP1WorkBegin;
idSMTP1.OnWorkEnd := IdSMTP1WorkEnd;

Tu ne fais jamais appel aux événements ^^

**piscine** · 20/04/2005, 21h05

ben ca ne marche toujours pas, mais est-ce que ce n'est pas la même chose de les définir dans les évevènements de l'inspecteur d'objet?

**Rayek** · 21/04/2005, 08h16

Si tu as posé ton composant IDSMTP sur une form, tu n'as aucunement besoin de le créer dynamiquement.

Moi je te conseil

1 - de poser un composant IDSMTP sur la form
2 - de virer la creation dynamique ( TIDSMPT.create(nil))
3 - de nommer le composant IDSMTP en IDSMTP1 (normalement pas besoin mais au cas ou.
4 - de virer les if dans tes evenements.
5 - de lier tes evenements au composant

Normalement ca devrait fonctionner, j'ai toujours utilisé comme ça et j'ai jamais eu de problème.

[Indy smtp] Comment avoir une PogressBar ?

Composants VCL Delphi

Discussions similaires

Partager

Partager