Thema: Delphi SSL Versand mit Indy

Einzelnen Beitrag anzeigen

Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#1

SSL Versand mit Indy

  Alt 8. Okt 2015, 20:57
Hallo zusammen,

mit folgendem Code versuche ich gerade meinen E-Mail Versand auf SSL umzustellen. Ich bekomme allerdings immer die Meldung "Could not load SSL libery"

Irgendjemand eine Idee, wie das mit Indy genau geht?

Delphi-Quellcode:
    //SSL Verschlüsselung
    if not chkSSLPostausgang.Checked then
      begin
        smtpSendMail.IOHandler := nil; // nicht benötigt
        smtpSendMail.UseTLS := utNoTLSSupport;
      end
    else
      begin
        // SSLHandler inititlisieren
        SSLHandler.SSLOptions.Method := sslvTLSv1;
        SSLHandler.SSLOptions.Mode := sslmUnassigned;
        SSLHandler.SSLOptions.VerifyMode := [];
        SSLHandler.SSLOptions.VerifyDepth := 0;

        smtpSendMail.IOHandler := SSLHandler;
        smtpSendMail.UseTLS := utUseImplicitTLS;
      end;

    with smtpSendMail do begin
      Username := UserEdit.Text;
      Password := PasswortEdit.Text;
      Host := SMTPEdit.Text;
      HeloName := SMTPEdit.Text;
      Port := StrToInt(SMTPPortEdit.Text);
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect;
      end;
    end;
Danke schon mal und Gruß Jens
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat