"Could not load SSL library" (D2007, Indy10, OpenSSL?)

[Klaus01]

Die DLLs kannst Du von hier laden.
Dann würde ich die neueste (32bit) verwenden.
Wo hast Du denn die DLLs abgelegt?

Grüße
Klaus

[Caps]

Zitat von Klaus01:

Die DLLs kannst Du von hier laden.
Dann würde ich die neueste (32bit) verwenden.
Wo hast Du denn die DLLs abgelegt?

Grüße
Klaus

Ich habe mir die openssl-1.0.1f-i386-win32.zip gezogen und die beiden DLLs in das Projektverzeichnis gelegt. Trotzdem kommt die Meldung "Could not load SSL library".

Meine Senderoutine sieht so aus:

Delphi-Quellcode:

  function PostMock(ASource: TIdStrings): String;
  var
     MailMessage: TIdMessage;
     _receiver,
     _subject,
     _bodycontent: String;
  begin
    // Wenn cbSSLMails gecheckt ist, dann wird die Mail mit SSL verschickt.

    with Form1 do begin
      IdSMTP1.Host := mail_host;
      IdSMTP1.Port := StrToInt(mail_port);
      IdSMTP1.Username := {Benutzername};
      IdSMTP1.Password := {Passwort};

      _receiver := ASource.Values ['receiver'];
      _subject := ASource.Values ['subject'];
      _bodycontent := ASource.Values ['bodycontent'];

      if cbSSLMails.Checked then begin // SSL konfigurieren
        with IdSSLIOHandlerSocketOpenSSL1 do begin
          MaxLineAction := maException;
          with SSLOptions do begin
            Method := sslvSSLv3;//sslvTLSv1;
            Mode := sslmUnassigned;
            VerifyMode := [];
            VerifyDepth := 0;
            PassThrough := false;
          end;
        end;
        IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
        IdSMTP1.UseTLS := utUseImplicitTLS; // für Port 465 (bereits das Greeting ist verschlüsselt)
      end;

      MailMessage := TIdMessage.Create(nil);
      try
        with MailMessage do begin
          Recipients.Clear;
          From.Name := {From-Name};
          From.Address := IdSMTP1.Username;
          ReplyTo.EMailAddresses := {Adresse};
          Recipients.EMailAddresses := _receiver;
          Date := now;
          Subject := _subject;
          Body.Text := _bodycontent;
        end;

        IdSMTP1.AuthType := atDefault;//atDefault; // (atNone, atDefault, atSASL) // atDefault ist wahrscheinlich atLogin
        IdSMTP1.Connect;
        Fred.MailSent := false;
        IdSMTP1.Send(MailMessage);
        Repeat
          Application.ProcessMessages;
        until Fred.MailSent;
        if IdSMTP1.Connected then IdSMTP1.Disconnect;
        FreeAndNil(MailMessage);
        Result := 'Success';
      except on e: Exception do begin
        FreeAndNil(MailMessage);
        Result := 'Mail delivery failed ('+e.Message+').';
      end;
      end;
    end;
  end;

Hm... (?)
lg Caps

[Klaus01]

.. in dem Project-Verzeichnis liegt auch Deine Exe?

Grüße
Klaus

[Caps]

Zitat von Klaus01:

.. in dem Project-Verzeichnis liegt auch Deine Exe?

Grüße
Klaus

Ja

[Klaus01]

.. kannst Du mal die angehängten ssl DLLs ausprobieren.
Du haben zumindest bei mir mit TurboDelphi (2006) funktioniert.

Grüße
Klaus

[Caps]

Zitat von Klaus01:

.. kannst Du mal die angehängten ssl DLLs ausprobieren.
Du haben zumindest bei mir mit TurboDelphi (2006) funktioniert.

Grüße
Klaus

Tja, haben leider nicht funktioniert. Die gleiche Fehlermeldung.

[Klaus01]

.. hast Du in einem Suchpfad vielleicht noch irgendwo anders diese Dlls liegen?

Mit meinem Latein langsam am Ende..

Zitat:

Indy's WhichFailedToLoad() function in the IdSSLOpenSSLHeaders unit will tell you why OpenSSL could not be loaded. Either you do not have the OpenSSL DLLs installed, or you have an incompatible version of the DLLs installed that is missing functionality that Indy is looking for.

Quelle

Grüße
Klaus