Discussion :

[SergioMaster]

Bonjour,

Plutôt que d'écrire

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
 
var idSmtpThread : TIdSmtp;
    ssl : TIdSSLIOHandlerSocketOpenSSL;
begin
idSmtpThread := TIdSMTP.Create(nil);
  try
     with datas.GSmtp do
      begin
       idSmtpThread.Host:=Host;
       idSmtpThread.Password:=Password;
       idSmtpThread.Username:=Username;
       idSmtpThread.Port:=Port;
       idSmtpThread.UseTLS:=UseTLS;
      end;
      if idSmtpThread.UseTLS= utUseImplicitTLS
        then ssl := TIdSSLIOHandlerSocketOpenSSL.Create(idSmtpThread);
     ....
  finally
    idSmtpThread.Free;
  end;

est-ce que je peux écrire en toute sécurité (N.B. cette procédure serait dans un Thread ou plutôt une TTask)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var idSmtpThread : TIdSmtp;
    ssl : TIdSSLIOHandlerSocketOpenSSL;
begin
idSmtpThread := TIdSMTP.Create(nil);
try
idSmtpThread:=Datas.Gsmtp;  //<<< simplification ?
if idSmtpThread.UseTLS= utUseImplicitTLS
        then ssl := TIdSSLIOHandlerSocketOpenSSL.Create(idSmtpThread);
..
finally

idsmtpThread.Free
end;

[ShaiLeTroll]

la prudence voudrait une copie si plusieurs thread envoie des mails simultanément (faut éviter de partager le même objet global Datas.Gsmtp)

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
procedure TIdSMTP.Assign(Source: TPersistent);
var
  LS: TIdSMTP;
begin
  if Source is TIdSMTP then begin
    LS := Source as TIdSMTP;
    AuthType := LS.AuthType;
    HeloName := LS.HeloName;
    SASLMechanisms := LS.SASLMechanisms;
    UseEhlo := LS.UseEhlo;
    UseTLS := LS.UseTLS;
    Host := LS.Host;
    MailAgent := LS.MailAgent;
    Port := LS.Port;
    Username := LS.Username;
    Password := LS.Password;
    Pipeline := LS.Pipeline;
  end else begin
    inherited Assign(Source);
  end;
end;