SMTP-Problem, Indy und TLS 1.3 oder ICS

[Delphi.Narium]

Zip auspacken.

XE2 entspricht der VER230 (http://docwiki.embarcadero.com/RADSt...piler_Versions)

Demnach dürfte Indy230.groupproj für Dich interessant sein.

Oder aus dem Verzeichnis Core die Packages IndyCore230.dpk und dclIndyCore230.dpk kompilieren und installieren.

Bei Delphi 7 mache ich das immer ganz einfach:

Vorhandenes Indy-Verzeichnis umbenennen.

Neues Indy-Verzeichnis umbenennen, so dass es den "alten" Namen bekommt.

Die beiden o. g. Packages in der genannten Reihenfolge öffnen und kompilieren bzw. installieren. Klappt eigentlich immer.

[HappyJoe]

Ach, du hast mich so glücklich gemacht. 26 neuen Kompos wurden installiert (von TIdAntiFreeze bis TIdUPDServer), ...

..bis ich mein Prog öffnen wollte. Irgendwie scheint noch was von den alten Indys da zu sein, obwohl ich den Ordner umbenannt habe (Fehlermeldung s. Grafik). Klicke ich auf abbrechen und starte mein Prog erneut, kommt die Meldung "Klasse TIdSMTP nicht gefunden". TIdSMTP ist bei den neuen Kompos auch nicht aufgeführt. Hast du eine Idee, woran das liegen kann?

[Delphi.Narium]

Ggfls. musst Du all "alten" .DCU von Indy, wo immer auch bei Deinen Projekten der Ausgabepfad dafür sein mag, löschen.

Kompilieren alleine reicht nicht zwingend, eventuell mal "alles neu erstellen".

Das Package mit der 160 im Namen gehört wohl zu Delphi 8.

Dann mal in der IDE nachschauen, welche Packages da so alles installiert sind und auch hier für Ordnung sorgen. Ggfls. dort mal alle momentan installierten Packages von Indy entfernen und dann nur die für Dein Delphi relevanten installieren.

Da solltest Du mal gründlich aufräumen und sicherstellen, dass Du nur die zu Deiner Delphiversion gehörenden Packages nutzt. Mal aus dem Verzeichnis mit den kompilieren Packages (*.bpl) alles entfernen, was zu alten Indyversionen gehört. Vorher die IDE zumachen. Beim Neustart der IDE wird sie Dich dann darüber informieren, was da so schiefgeht, z. B. Dich informieren, dass "alte" Indypackages nicht mehr geladen werden können ... (was ja durchaus erwünscht ist).

Du kannst dazu auch im "neuen Indyverzeichnis" mal alles "wegwerfen", was nicht zu Deiner Delphiversion gehört, das dürften vermutlich alle Dateien unter \Lib\Core\ sein, die am Ende eine Zahl im Namen haben, die aber nicht 230 ist. So ungefähr alles von dclIndyCore100.* bis dclIndyCore220.* und alles ab dclIndyCore240.* bis dclindycorelaz.*, analog dann auch noch für IndyCore*.*, unter \Lib\Protocols\ sieht es ähnlich aus, ebenso unter \Lib\System\.

Für Dein Delphi dürftest Du wohl alles benötigen, was in Indy230.groupproj aufgeführt ist. Die Projektgruppe zu verwenden, wäre eventuell auch keine schlechte Idee. Damit sollte eigentlich alles für Dein Delphi korrekt kompiliert und installiert werden können.

Mal in allen Pfaden nach dem Package IndySystem160 suchen.

[HappyJoe]

Jetzt habe ich deine Ratschläge befolgt und alles ist installiert und ich kann mein Prog sogar compilieren. Dein ausführlicher Post war echt super, danke.
Leider geht der Verbindungsaufbau zu strato trotzdem nicht. Je nachdem, welche Version ich einstelle, kommen unterschiedliche Fehlermeldung (s. Grafik). Vermutlich fehlen nur noch ein paar Einstellungen. Würdest du mal einen kurzen Blick auf meine Routine werfen? Vielleicht springt dir der Fehler ja sofort ins Auge. Brauche ich eine spezielle Version von libeay32.dll oder ssleay32.dll?

Delphi-Quellcode:

procedure TMainForm.Btn_TESTMAILClick(Sender: TObject);
var
  idAttachment : TIdAttachmentFile;
  Mail : TIdMessage;
  SMTP : TIdSMTP;
  SSL  : TIdSSLIOHandlerSocketOpenSSL;
  MBHTML: TIdMessageBuilderHTML;
  MailText : string;

begin
  SMTP := TIdSMTP.Create;
  SSL  := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
  SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];            //XXX

  Mail := TIdMessage.Create;

  try
    MBHTML := TIdMessageBuilderHTML.Create;
    try
      with MBHTML do
      begin
        HTML.Text := 'Die ist eine Testmail.';
        HtmlCharSet := 'utf-8';
        FillMessage(Mail);
      end;
    finally
      MBHTML.Free;
    end;

    with Mail do
    begin
      From.Address := ... ;
      From.Name    := ... ;
      Recipients.EMailAddresses := ... ;
      Subject := 'Test-Mail';
    end;

    with SMTP do
    begin
      Host      := 'smtp.strato.de';
      Username  := ... ;
      Password  := ... ;
      Port      := 465;
      AuthType  := satDefault;
      IOHandler := SSL;
      UseTLS    := utUseImplicitTLS;  

      try
        Connect;
        Send(Mail);
      finally
        Disconnect;
      end;
    end;
  finally
    Mail.Free;
    SMTP.Free;
  end;
end;

[Union]

Welche Versionen der OpenSSL dll verwendest Du?

[HappyJoe]

Version 0.9.8.14

[Union]

DIe Version sollte > 1 sein. Ich setze hier u.a. 1.0.2.12 ein. Zum Herumspielen unter Erhaltung der Interoperabilität empfiehlt es sich, die dlls jeweils gezielt von Indy laden zu lassen.
IdSSLOpenSSLHeaders.IdOpenSSLSetLibPath(<Pfad der ssl dll>);