SendMail v. himitsu

[hanvas]

Bei obiger, älteren Komponente die ich hier gefunden habe scheitert bei mir die Authentifzierung. Ich glaube den Fehler in Zeile 775 gefunden zu haben :

  SMTP.AuthType := TIdSMTPAuthenticationType(Ord(FAuthType)); und durch

Delphi-Quellcode:

  if (FAuthType = atSASL) then SMTP.AuthType := satSASL
                          else SMTP.AuthType := satDefault;

ersetzt habe funktioniert alles. Ich habe den Quellcode aber nicht wirklich weitergehend durchgeschaut.

Ich vermute das bei den Indy Komponenten (mal wieder) Quellcode Änderungen stattgefunden haben und der alte Quelltext dazu nicht passt. Da der Originalauthor hier mitliest habe ich die Hoffnung das er mir sagen kann ob meine Änderung richtig ist oder Gefahren birgt und ob evtl. noch andere ähnliche Fallstricke in seiner Komponente stecken.

Danke

Hans-Jörg

[mkinzler]

ord() funktioniert so nur bei Ansi. Ich vermute diese Unit war für eine ältere Delphiversion gedacht

[hanvas]

Zitat von mkinzler:

ord() funktioniert so nur bei Ansi.

Es geht doch gar nicht um Strings, sondern um zwei! unterschiedliche Enumerationen. An der fraglichen Stelle wurde ein Aufzählungstyp mit Hilfe von Ord umgewandelt und das Ergebnis in einen anderen Aufzählungstypen gecastet.

Zitat von mkinzler:

Ich vermute diese Unit war für eine ältere Delphiversion gedacht

Das ist ganz sicher so, und beim verwendeten Quelltext hat sich an dieser Stelle vermutlich die Reihenfolge und/oder Anzahl der Optionen von TIdSMTPAuthenticationType geändert (und wie so oft bei Indy nicht dokumentiert), allerdings weiss ich nicht welche Optionen in welcher Reihenfolge damals bei TIdSMTPAuthenticationType zur Verfügung standen und auch nicht ob das Problem noch an anderen Stellen auftauchen kann.

cu Ha-Jö

[himitsu]

Ord passt schon, da es sich um einen Cast von einem Enum in einen anderen Enum hantelt,
aber da wurde im Indy der Enum wohl etwas umgebaut, so daß der Cast nicht mehr geht, da nun die beiden Werte vertauscht sind.

Also ja, die Lösung wäre so richtig/besser.


PS: Du hättest vielleicht besser direkt in dem jeweiligen Thread antworten können, oder ihn hier zumindestens verlinken können.
http://www.delphipraxis.net/164880-s...component.html

[hanvas]

Zitat:

PS: Du hättest vielleicht besser direkt in dem jeweiligen Thread antworten können, oder ihn hier zumindestens verlinken können.

Nächstesmal mach ichs besser

cu Ha-Jö

[himitsu]

Die 4 Stellen mit diesen Casts hab ich erstmal repariert, auch wenn die anderen Stellen "noch" funktionierten.

Werde dann nochmal drüberschauen und es danach auch im anderen Thread aktualisieren.

[himitsu]

Abgesehn vom unfertigen ReadMail-Teil hab ich mal versucht alle aktuellen Versionen zusammenzumergen. (mindestens XE3-XE7)

http://svn.geheimniswelten.de:8080/svn/SendMail/

[hanvas]

Zitat von himitsu:

Abgesehn vom unfertigen ReadMail-Teil hab ich mal versucht alle aktuellen Versionen zusammenzumergen. (mindestens XE3-XE7)

Wenn ich mir die Urzeiten der Postings ansehe dann habe ich Dir Dein Wochenende mit Arbeit zerschossen Ein einfacher Hinweis hätte mir vollkommen gereicht. Danke.

Hast Du die Klasse eigentlich selbst noch im Gebrauch?

cu Ha-Jö