Runtime error 216 at ...

Version imprimable

Bonjour a tous,

Me voila confronté à un problème : "Impossible d'envoyer un mail avec indy 10 & ssl / Gmail" les sujets ne manquent pas sur le net mais impossible de débloquer le problème :(

libeay32.dll & ssleay32.dll sont bien dans le répertoire de l'application.

Quand j’envoie un mail l'application reste bloquée et ne soulève aucune expression d'erreur.

Pièce jointe 167746

Code:

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
procedure TForm1.BtnEnvoyerClick(Sender: TObject);
begin
  IdSMTP.host := 'smtp.gmail.com'  ;
  IdSMTP.username := 'greg.ory51.gp@gmail.com';
  IdSMTP.Password := '******';
  IdSMTP.port := 587;
  IdSMTP.UseTLS := utUseExplicitTLS;
 
  with IdSSLGMail do
   begin
     SSLOptions.Mode := sslmClient;
     SSLOptions.Method:= sslvTLSv1;
     SSLOptions.VerifyDepth := 2;
     SSLOptions.VerifyMode := [];
     Host := IdSMTP.Host;
     Port := IdSMTP.Port;
   end;
 
  with IdMessage do
   begin
     From.address := 'greg.ory51.gp@gmail.com';
     CClist.EMailAddresses := Adr.Text;
     Subject := Sujet.Text;
     Body.Clear;
     Body.Add(Msg.Text);
   end;
    try
      IdSMTP.Connect;
      IdSMTP.Authenticate;
     try
      idSMTP.Send(IdMessage);
      ShowMessage('Message envoyé');
     except on E:Exception do
       Log.Lines.Insert(0, 'ERROR: ' + E.Message);
     end;
    finally
     if idSMTP.Connected then idSMTP.Disconnect;
    end;
end;

Merci pour votre réponse.

Gmail

j'ai trouvé d'où vient le problème j'ai ajouté la ligne : PassThrough := True; & IdSSLGMail.StartSSL; puis activé l'accès pour les applications moins sécurisées Gmail

Mais à la fermeture du programme un message d'erreur apparait "runtime error 216 at" aucune idée d'où ça peut venir :?

Code:

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 TForm1.BtnEnvoyerClick(Sender: TObject);
begin
  IdSMTP.host := 'smtp.gmail.com'  ;
  IdSMTP.username := 'greg.ory51.gp@gmail.com';
  IdSMTP.Password := '******';
  IdSMTP.port := 587;
  IdSMTP.UseTLS := utUseExplicitTLS;
 
  with IdSSLGMail do
   begin
     SSLOptions.Mode := sslmClient;
     SSLOptions.Method:= sslvTLsv1;
     SSLOptions.VerifyDepth := 0;
     SSLOptions.VerifyMode := [];
     Host := IdSMTP.Host;
     Port := IdSMTP.Port;
     PassThrough := True;
     IdSSLGMail.StartSSL;
   end;
 
  with IdMessage do
   begin
     From.address := 'greg.ory51.gp@gmail.com';
     CClist.EMailAddresses := Adr.Text;
     Subject := Sujet.Text;
     Body.Clear;
     Body.Add(Msg.Text);
   end;
    try
      IdSMTP.Connect;
      IdSMTP.Authenticate;
     try
      idSMTP.Send(IdMessage);
      ShowMessage('Message envoyé');
     except on E:Exception do
       Log.Lines.Insert(0, 'ERROR: ' + E.Message);
     end;
    finally
     if idSMTP.Connected then idSMTP.Disconnect;
    end;
   idSMTP.Disconnect;
   IdLogEvent.Active := false;
end;

01/02/2015, 22h16
Ph. B.

Bonjour,

Citation:

Envoyé par Gregory666

Mais à la fermeture du programme un message d'erreur apparait "runtime error 216 at" aucune idée d'où ça peut venir :?

Peut-être que la :faq: a la solution à votre problème ?
http://delphi.developpez.com/faq/?pa...sseur-Intel-P4
02/02/2015, 09h40
SergioMaster

Bonjour,

j'arrive un peu tard (moi aussi j'ai à nouveau des problèmes d'envoi mail) mais aviez vous lu ceci
05/02/2015, 00h31
Gregory666

Runtime error 216 sur des PC équipés de processeur Intel P4

Bonjour Philippe & SergioMaster.

merci de votre aide

SergioMaster : Oui j'ai vu ce lien , mais je n'ai plus de problème d’envoi , le problème maintenant vient de la fermeture de la forme.

Philippe : j'ai du mal a comprendre pourquoi ce message d'erreur ? c'est la premièrer fois que j'ai ce problème de fermeture d'application

:? Runtime error 216 sur des PC équipés de processeur Intel P4 :ptdr: J'ai un processeur AMD multicore 4.40 Ghz en 8 :heart: est pas de Intel P4 :ptdr:

- Je vois vraiment pas d'où peu venir le problème ou alors cela vient des DLLs (libeay32.dll & ssleay32.dll) il y a des :bug: dans l'une des dlls.

Merci pour votre réponse.
05/02/2015, 00h53
Gregory666

http://indy.fulgan.com/SSL/

J'ai téléchargé la nouvelle version 2015 des dlls , Monday, January 12, 2015 5:14 PM 863731 openssl-0.9.8zd-i386-win32.zip
Résultat plus possible d’envoyer un mail (G mail) l'application reste bloquée et ne soulève aucune expression.

Donc j'ai téléchargé la version 2002 mais toujours le problème "runtime error 216"
05/02/2015, 07h36
SergioMaster

Bonjour,

je vais faire un essai , mais à mon avis ton code est le coupable.
Quelle est la version de Delphi et Indy utilisée ?
05/02/2015, 10h05
Gregory666

Delphi 2010 & Indy 10

J'ai même essayer de créer les composants directement mail ce-la ne change rien, après pour se qui est du code le mail s’envoie sans problème donc je doute que sa viens du code ou j'ai Zapper quelque chose.
06/02/2015, 08h13
SergioMaster

Citation:

Envoyé par Gregory666

Delphi 2010 & Indy 10

ça tombe bien , j'ai ça en magasin ;)
et en plus une application toute faite pour tester (j'ai récemment eu des problèmes avec une vieille application et j'ai du re-tester les configurations).
la seule chose qui restera donc différente au niveau du test c'est la machine et bien sur les adresses mail .
Le tout se trouvant sur mon poste de développement , je passe dessus et éditerai ce message pour infos supplémentaires ( code + exécutable)
06/02/2015, 08h23
ALWEBER

ET les données

Tu utilise un accès à une base de donnée dans cette appli ?
06/02/2015, 09h09
SergioMaster

1 pièce(s) jointe(s)

Après tests , sur mon poste de Dev

Re,

j'ai eu plus de mal à retrouver mon mot de passe gmail et désactiver certaines fonctions (déblocage pour envoyer via une application desktop) que de faire le test
qui s'est passé nickel (oserai-je dire comme une lettre à la poste ?) pas d'erreur 216 à l'horizon

comme promis le programme (sans prétention) utilisé en pj
06/02/2015, 14h35
anapurna

salut

attend tu bien la fin de tout tes messages pour fermer ta fenêtre ?
comment la ferme tu ?
a priori tu as une demande d’accès a un composant alors que celui ci n'existe plus
08/02/2015, 14h54
Gregory666

Citation:

Envoyé par SergioMaster

Re,

j'ai eu plus de mal à retrouver mon mot de passe gmail et désactiver certaines fonctions (déblocage pour envoyer via une application desktop) que de faire le test
qui s'est passé nickel (oserai-je dire comme une lettre à la poste ?) pas d'erreur 216 à l'horizon

comme promis le programme (sans prétention) utilisé en pj

bonjour SergioMaster

Je viens de tester ton petit programme donc j'ai télécharger la dernière version des fichier dll & mise les port en 465 pour une connexion ssl gmail sa marche impeccable.

Merci SergioMaster sujet résolu. :D