![]() |
Ereignisse werden nicht ausgeführt
Nachdem ich in meinen Code Exceptions-Messages abgefangen hab, um diese als Textmeldung in einem Statusfeld darzustellen, werden meine TIdSMTP-Ereignisse nicht mehr ausgelöst.
Delphi-Quellcode:
Try
Application.ProcessMessages; try Infos.Lines.Add(TimeToStr(NOW)+': Verbindungsversuch durch '+SMTP.Username+' mit '+SMTP.Host); SMTP.Connect; except on E: Exception do begin Infos.Lines.Add(''); Infos.SelAttributes.Style:=Infos.SelAttributes.Style + [fsBold]; Infos.Lines.Add('Folgende Fehlermeldung wurde vom Server zurückgeliefert:'); Infos.Lines.Add(E.Message); Infos.SelAttributes.Style:=Infos.SelAttributes.Style - [fsBold]; end; end; if SMTP.Authenticate=True then Infos.Lines.Add(TimeToStr(NOW)+': Login-Daten akzeptiert') else Infos.Lines.Add(TimeToStr(NOW)+': Login-Daten abgewiesen!'); Try Infos.Lines.Add(TimeToStr(NOW)+': Versuche Vertretungspläne zu verschicken..'); SMTP.Send(idMessage); Except on E: Exception do begin Infos.Lines.Add(''); Infos.Lines.Add('Folgende Fehlermeldung wurde vom Server zurückgeliefert:'); Infos.SelAttributes.Style:=Infos.SelAttributes.Style + [fsBold]; Infos.Lines.Add(E.Message); Infos.SelAttributes.Style:=Infos.SelAttributes.Style - [fsBold]; end; End; SMTP.Disconnect; Except If SMTP.Connected = True Then Begin Try SMTP.Disconnect; Except Infos.Lines.Add(TimeToStr(NOW)+': Verbindungsaufbau fehlgeschlagen - Vertretungspläne können nicht verschickt werden!'); End; End; Infos.Lines.Add(TimeToStr(NOW)+': Konnte Verbindung zum Host nicht herstellen oder 1. Empfänger ist fehlerhaft'); End; Die Ereignisse wurden noch normal ausgelöst, als die on-do-Anweisungen noch nicht mit eingebaut waren. [Crosspost: ![]() |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz