Problem mit Indy SMTP

[easywk]

Hi. Bei den Indy-Komponenten ist bekannt, dass sie auch dann Exceptions auslösen, wenn etwas gut gegangen ist - zumindest in bestimmten Fällen. Außerdem meine ich, dass in deinem Code-Beispiel die except / finally-Anweisungen nicht in der richtigen Reihenfolge sind. Hier kommt der Code-Teil, wie ich es mache - und damit gibt es keine Probleme:

Delphi-Quellcode:

  // Verbinden
  try SMTP.Connect;
  except on E: Exception do
    begin
      MessageDlg(E.Message, mtError,[mbOk], E.HelpContext);
      Exit;
    end;
  end;
  // Senden
  try
    try SMTP.Send(IdMsgSend);
    except on E:Exception do
      begin
        MessageDlg(E.Message, mtError,[mbOk], E.HelpContext);
      end;
    end;
  finally
    SMTP.Disconnect;
  end;

cu
easywk