AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Ereignisse werden nicht ausgeführt

Offene Frage von "Svenkan"
Ein Thema von Svenkan · begonnen am 1. Jul 2009
Antwort Antwort
Svenkan

Registriert seit: 10. Feb 2007
Ort: Bersenbrück
547 Beiträge
 
Delphi 7 Enterprise
 
#1

Ereignisse werden nicht ausgeführt

  Alt 1. Jul 2009, 15:28
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: http://www.delphi-forum.de/viewtopic...569827#569827]
Sven Kannenberg
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz