Indy SMTP: Senden abbrechen

[easywk]

Hallo zusammen,

ich benutze die SMTP-Komponente von Indy, um E-Mails zu versenden. Das klappt auch hervorragend. Jetzt habe ich eine Fortschrittsanzeige eingebaut, die im "OnWork" bedient wird. Dabei kontrolliere ich dann auch, ob ein Abbrechen-Button gedrückt worden ist. Doch wie zum Teufel kann ich das Senden der E-Mail abbrechen? IdSMTP hat keine Abort- oder Cancel-Funktion ...

Danke im voraus
cu
easywk

[easywk]

Inzwischen habe ich eine brauchbare Lösung und sehr einfache Lösung. Da es vielleicht auch andere interessiert, poste ich sie hier mal.

Man muss den untergeordneten Socket beenden:

Delphi-Quellcode:

IdSmtp.Socket.Close

Dadurch wird das Send von IdSmtp sauber durch eine Exception (closed gracefully) beendet und man muss nur noch die Exception abfangen, damit sie nicht angezeigt wird.