Discussion :

[portu]

Bonjour, J'aimerai pouvoir annuler l'envoi d'un mail pendant le traitement. Donc dans l'évenement OnWork, j'ai mis un truc du style.

Code :

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

1
2
3
4
5
 
If StopSend then
begin
  IdSmtp1.Disconnect;
end;

Mais j'ai une exception EStreamError "Mémoire insuffisante lors de l'extension du flux mémoire" --> super clair quoi .

Avez-vous une méthode plus adaptée ?

Merci

[Jipété]

Yep !

IdSmtp1.Disconnect;

C'est pas un peu "violent" ?
Je ne sais pas comment fonctionnent à bas niveau ces composants, mais si l'on admet l'hypothèse que quand tu envoies ça crée un thread interne avec un job à bas niveau pour gérer l'entrée/sortie SMTP, peut-être que le Disconnect libère la mémoire dont ce thread a besoin ?

Il n'existe pas de méthode Stop (désolé, j'ai pas les Indy) ou apparentée ?
Mes 2 cts,
--
jp

[portu]

Salut,

Il n'existe pas de méthode Stop (désolé, j'ai pas les Indy) ou apparentée ?
Mes 2 cts,

Non il n'y a pas ça. Mais j'ai trouvé la méthode EndWork qui force l'évenement OnWorkEnd.

Merci.

[portu]

He bein non, ça ne marche pas, il me l'envoi quand même .

Help please

[portu]

Je trouvé la solution , la bonne cette fois.

Code :

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

1
2
 
IdSmtp.disconnectSocket;

Génere une exception

Code :

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

La connexion s'est terminée proprement.

Que demander de plus !

A+

[Rayek]

et comme çà ?

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TfrmMain.IdSMTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 If StopSend then begin
   TIdTCPConnection(ASender).Socket.CheckForDisconnect;
   TIdTCPConnection(ASender).Socket.Close;
 end;
end;

[edit]
Ah bin, t'as trouvé la solution ^^
[/edit]