Discussion :

[calou_33]

Bonjour,

Depuis 1 mois, sur les PC en Windows 7 et server 2008 lorsque j'appelle la fonction smtp.disconnect (apres l'envoi d'un mail) j'ai le message d'erreur en titre.
Sur windows XP ca passe correctement. J'étais en version 10.1 et je suis passé sur la derniere en 10.6 et pas de changement.

Quelqu'un aurait une idée pour résoudre le probleme?

Merci

Voici le code qui bug :

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
procedure TForm4.Button1Click(Sender: TObject);
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  Message: TStrings;
  i: Integer;
  Fichiers: Array Of String;
begin
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant
 
  IdMessage.From.Address := 'xxx@free.fr';
 
  IdMessage.ReplyTo.Add.Address := 'xx@free.fr';
  IdMessage.Recipients.Add.Address := 'xx@free.fr' ;
 
  IdMessage.Subject := 'Sujet du message';
 
 
 
  Message := Memo1.Lines; //par exemple... il faut juste que ce soit un TStrings !
 
 
  //On passe ensuite à l'envoi du message:
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant
 
  IdSMTP.Port := 25; //Le port SMTP standard...
  IdSMTP.Host := 'smtp-out.adista.fr';  //Le serveur auquel se connecter
 
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire !
  Try
    Try
      IdSMTP.Connect;
      IdSMTP.Send(IdMessage);///////PLANTAGE
    except
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0);
    end;
  finally
   IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
  end;
 
end ;

[SergioMaster]

Bonjour,

J'aurais mis (et j'ai toujours mis ) le disconnect à l'intérieur du try except

Code :

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

1
2
3
4
5
6
7
Try
   Connect;
   Send;
   Disconnect;
except
 
end;

maintenant est-ce que cela changerai quelque chose ?

[calou_33]

Bonjour SergioMaster,

J'ai fait le test et hélas c'est pareil.

Merci

[calou_33]

Serait il possible que quelqu'un teste le code en W7 ou W8 voir si le probleme ne vient pas de notre fournisseur d'accés?

Merci

[Paul TOTH]

l'erreur est sur le Send() ou sur le Disconnect() ?

[calou_33]

J'ai pu faire le test ailleurs qu'au bureau et avec un autre fournisseur je n'ai pas ce message d'erreur. Je vais essayer de voir pour trouver un autre FAI pour envoyer les mails

Merci

[calou_33]

l'erreur est sur le Send() ou sur le Disconnect() ?

Bonjour,

Je me suis trompé effectivement. C'est lors de l'appel de disconnect que l'erreur arrive

[Paul TOTH]

Bonjour,

Je me suis trompé effectivement. C'est lors de l'appel de disconnect que l'erreur arrive

ok, en même temps le Disconnect devant un Free ne doit pas servir à grand chose, si le composant est bien fait il s'en chargera "si nécessaire"...notamment si le serveur SMTP ferme la connexion de lui-même la connexion est déjà coupée.