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

zusammenfalten · markieren

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;

Soweit ich das überblick wird TIdAttachmentFile zwar u.U. angelegt, aber nirgends freigegeben.

Zitat von Ghostwalker:

Soweit ich das überblick wird TIdAttachmentFile zwar u.U. angelegt, aber nirgends freigegeben.

Stimmt ... das kann es aber eigentlich nicht sein da bisher kein Anhang erstellt worden ist.

Stop -es kann nicht an der Routine liegen - auch wenn ich die auskommentiere kommt die exception. Dann suche ich mal weiter

Hans

ERROR_ACCESS_DENIED (5) + severity code "Error" ($C000000) = STATUS_ACCESS_VIOLATION ($C0000005)
siehe Windows.pas { Error code definitions for the Win32 API functions } PS: bezüglich Copy&Paste
Man kann Fehlermeldungen auch kopieren und hier als Text einfügen, damit alle Infos hier landen.
Im Delphi-Logfenster oder bei allen Dialogen Strg+C und dann hier im Editor Strg+V

Tipp: In OnCloseQuery, OnClose oder OnDestroy einen Haltepunkt rein, das Fenster schließen und dann schrittweise durchgehn bis es kanllt.
Falls der Debugger hier wirklich nicht die richtige Fehlerstelle direkt anzeigt.

Danke für die Info .. und vor allem für den Tip. Im Moment werde ich gerade wahnsinnig - es knallt zur Zeit gar nicht.

Sobald es wieder passiert melde ich mich.

Hans