Exception bei Datenbankanmeldung

[cam]

Ich habe eine wahrscheinlich blöde Frage:
Wenn die Datenbankverbindung auf Grund fehlerhafter Login-Daten nicht zustande kommt, will ich das abfangen.
Ich dachte, das funktioniert mit try... except... aber ich weiß nicht genau wie?
Am besten soll dann die komplette Anwendung geschlossen werden.

Delphi-Quellcode:

...
try
   IB_Database1.Connect;
except
   ShowMessage('Login-Daten feherhaft');
end;

[DeddyH]

Wirft Connect denn eine Exception bei Fehlversuch? Ansonsten könntest Du doch anschließend Connected abfragen, oder täusche ich mich?

[cam]

Naja, also wenn z.B. das Passwort falsch ist, kommt nach

Delphi-Quellcode:

IB_Database1.Connect;

eine Fehlermeldung vom System und danach erst "meine" Fehlermeldung.
Die Systemmeldung möchte ich gern weg haben, dafür nur meine und das Programm schließen.

Wenn die Systemfehlermeldung nicht kommen würde, könnte ich auf connected abfragen, ja,
das wäre sogar prima.

[DeddyH]

Achso. Kommt diese System-Fehlermeldung auch, wenn Du das Programm außerhalb von Delphi startest?

[cam]

Hm, nachdem ich jetzt den Code folgendermaßen geändert habe, nicht mehr:

Delphi-Quellcode:

...
    try
      IB_Database1.Connect;
    except
      on ex: Exception do ShowMessage(ex.Message);
    end;

    if IB_Database1.Connected then
    begin
      ...
    end
    else
    begin
     Close;
    end;

Allerdings wird an der Stelle die Applikation nicht beendet, was toll wäre.

[DeddyH]

In welchem Ereignis sind wir denn? Im FormCreate?

[cam]

Oh, entschuldige, ja im FormCreate

[DeddyH]

OK, im FormCreate geht ein Close nicht. Du könntest aber z.B. ein privates Boolean-Feld belegen, im OnShow auswerten und dort ggf. closen. Das ist das, was mir spontan einfällt.

[Medium]

Application.Terminate bzw. Halt dürften im FormCreate gehen, wobei ersteres zu bevorzugen wäre, da es etwas "weicher" ist.

[cam]

Super, das mit dem OnShow hat funktioniert. Danke.