Buttonabhängiges Schließen des Programms

[DeddyH]

Ein kurzer Blick in die Referenz:

Zitat von Delphi-Referenz:

constant Controls.mrOk

Aha, Controls fehlt in der uses-Klausel Und Formulare sind per Default erst einmal nicht visible, das hast Du anscheinend im OI geändert. Also setze ich das wieder zurück, um die Fehlermeldung abzustellen.

[hans ditter]

Danke! Funktioniert jetzt.
Wenn ich das jetzt als Login-Fenster nehmen will, dann hab ich mir das so gedacht, dass man eben seinen Benutzernamen und Passwort eingibt. Diese werden als 'Nachricht' an den Server geschickt, der überprüft, ob die Zugangsdaten korrekt sind und schickt eine Nachricht zurück, die dann das Schließen des Fensters regelt.
Wenn alles korrekt war, dann eben das, was man mir hier freundlicherweise gezeigt hat. Wenn die Daten aber nicht stimmen, dann soll das Fenster geöffnet bleiben, möglicherweise auch eine Fehlermeldung kommen.

ABER: Wie realisier ich das jetzt?

lg, hans ditter

[DeddyH]

Das dürfte mit dem jetzigen Lösungsweg schwierig bzw. sehr umständlich werden. Nur so als Gedankengang:
-die Client-/Server-Funktionalität in eine eigene Unit (z.B. ein Datenmodul) auslagern
-das LoginForm zum Hauptformular machen
-nach erfolgreichem Login verstecken, Form1 erzeugen und anzeigen
-um die Anwendung zu beenden, dann eben das versteckte MainForm (also Form2) schließen

[Bummi]

Warum nicht im Constructor des Mainforms den Logindialog öffnen , wenn hier nicht erfolgreich abgearbeitet wird , Meldung anzeigen und ein Terminateflag setzen welches die Anwendung beendet.

[hans ditter]

@ Bummi ... äääääh, weil ich das nicht kann?!
@ daddyH Ja, ok... ich versteh nicht ganz was du meinst mit

Zitat:

die Client-/Server-Funktionalität in eine eigene Unit (z.B. ein Datenmodul) auslagern

... sowas hab ich noch nie gemacht...

[DeddyH]

Ich vermute, dass Du die Socket- (oder Indy, oder welche auch immer) Komponenten auf Form1 hast. Diese kannst Du in ein TDataModule packen und dann von beiden Units darauf zugreifen.

[youuu]

Sorry hatte etwas wenig Zeit gehabt, aber DeddyH hat es dir ja erklärt gehabt.

Ich zeig dir mal wie ich mein Login Form benutze:

Delphi-Quellcode:

  Try
    QueryLogin.SQL.Text:='Select * from `Table` WHERE username LIKE EINGABE;';
    QueryLogin.Open;

    if QueryLogin.FieldByName('pw').AsString = md5string(EditPasswort.Text) then // PW ist in MD5 gespeichert
      ModalResult:= mrOk
    Else
      Showmessage('Benutzername und Passwort stimmen nicht überein.');
  Finally
    QueryLogin.Close;             // Schließe Query zum schluss
    QueryLogin.Free;
  End;

Exception Behandlung habe ich mal weg gelassen.