Thema: Delphi Debugger-Exception

Einzelnen Beitrag anzeigen

H.Bothur

Registriert seit: 25. Jun 2012
Ort: Seevetal & Lagos
257 Beiträge
 
Delphi 11 Alexandria
 
#1

Debugger-Exception

  Alt 1. Jun 2017, 12:00
Moin,

beim verlassen meines Programmes (Schliessen durch X im Fensterrahmen) bekomme ich eine Exception der Klasse $C0000005.
Ich nehme an das das etwas mit der Mailroutine zu tun hat die ich nutze da ich das vorher nicht hatte.

Leider verstehe ich bei solchen Dingen aber nur Bahnhof und die Routine ist zugegebenermaßen Copy+Paste. Kann trotzdem jemand einmal kucken ob da noch etwas freigegeben werden muss.

Danke !!
Hans

Delphi-Quellcode:
function TUMailen.SendeMail(MailEmpfaenger, CCListe, Betreff, Anhang :string; Body :TStringList; MailAbsender, MailPasswort, MailServer: String; MailPort: Integer) : boolean;
var
  iAttachment : TIdAttachment;
  Erfolg: Boolean;

begin
  (* Connect mit Server *)
  UMailen.IdSMTP1.AuthType := satDefault; // simpler Login ohne Authentifizierung
  UMailen.IdSMTP1.Host := MailServer;
  UMailen.IdSMTP1.Port := MailPort;
  UMailen.IdSMTP1.UseTLS := utUseRequireTLS; // mit SSL -> Port dann in aller Regel 587
  UMailen.IdSMTP1.Username := MailAbsender; // Benutzername
  UMailen.IdSMTP1.Password := MailPasswort; // Passwort
  // Verbinden mit Server
  try
   UMailen.IdSMTP1.Connect;
  except
   on E: Exception do
    begin
       result := false;
       Application.MessageBox (PChar(E.Message),'Verbindungsfehler Connect !',MB_OK);
       UMailen.IdSMTP1.Disconnect;
       exit;
    end;
  end;

  (* Mail erstellen *)
  UMailen.IdMessage1.ContentType := 'multipart/*'; // mit Anhang!
  if Anhang <> 'then iAttachment := TIdAttachmentFile.Create(UMailen.IdMessage1.MessageParts, Anhang) ;
  UMailen.IdMessage1.Body.Assign(Body); // der eigentliche eMail -Text aus einem TMemo
  UMailen.IdMessage1.Priority := TIdMessagePriority(2); // Priorität
  UMailen.IdMessage1.Recipients.EMailAddresses := MailEmpfaenger; // Empfängeradresse
  UMailen.IdMessage1.ReplyTo.EMailAddresses := MailAbsender; // Anwortadresse
  UMailen.IdMessage1.From.Text := MailAbsender; // Absenderadresse
  UMailen.IdMessage1.Subject := Betreff;

  try
     UMailen.IdSMTP1.Send(UMailen.IdMessage1);

  except
    on E: Exception do
    begin
       result := false;
       Application.MessageBox (PChar(E.Message),'Verbindungsfehler Versand !',MB_OK);
       UMailen.IdSMTP1.Disconnect;
       exit;
    end;
  end;
  result := true;
end;
Hans-Georg Bothur
www.hermann-juergensen.de
  Mit Zitat antworten Zitat