Bei Login auf Zugriffsverletzung reagieren ...

[LOMBI]

Hallo,

Delphi-Quellcode:

procedure TFormStartseite.BtnAnmeldenClick(Sender: TObject);
...
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'p.ini');
  Key := Ini.ReadString('User', EditBenutzer.Text, '');
  if (Key = MD5_Hash2String((HashForString(EditBenutzer.Text + EditKennwort.Text)))) AND (Key <> '') then
  begin
    ShowMessage ('Sie sind angemeldet!')            
    end else
    ShowMessage ('Benutzername und/oder Kennwort falsch!');
    EditBenutzer.SetFocus;
    EditBenutzer.Text := '';
    EditKennwort.Text := '';

Problem:

Bei BtnAnmeldenClick und leeren Feldern EditBenutzer + EditKennwort kommt es zu einer Zugriffsverletzung. Wie läßt sich bitte diese Meldung vermeiden?

Delphi-Quellcode:

...
if (EditBenutzer.Text = '') Or (EditKennwort.Text = '') then
ShowMessage('Bitte anmelden');
Exit;
EditBenutzer.SetFocus;

Hab' bereits versucht, diesen Code einzuflicken, aber das funktionierte leider nicht.

Gruß
Lombi

[halinchen]

Vielleicht so?

Delphi-Quellcode:

try...except...end;

Delphi-Quellcode:

try
if (Key = MD5_Hash2String((HashForString(EditBenutzer.Text + EditKennwort.Text)))) AND (Key <> '') then
  begin
    ShowMessage ('Sie sind angemeldet!')           
    end else
    ShowMessage ('Benutzername und/oder Kennwort falsch!');
    EditBenutzer.SetFocus;
    EditBenutzer.Text := '';
    EditKennwort.Text := '';
   ...
   end;
except
//was tun bei Fehler?
end;

[LOMBI]

Hallo halinchen,

danke für die Antwort. Deinen Vorschlag habe ich umgesetzt.
Die Meldung tritt leider immer noch auf!

[halinchen]

Du kannst mal das Programm Schritt-für-Schritt ausführen und sagen an welcher Stelle es hapert. (Kann sein das das try wo anders hin muss).

Am besten setzt du einen Breakpoint am Anfang der Prozedur und drückst dann F7 (oder wars F8 :oops: )
bis ein der Fehler kommt.

[hoika]

Hallo,

Delphi-Quellcode:

if (EditBenutzer.Text = '') or 
   (EditKennwort.Text = '') then
begin
  ShowMessage('Bitte anmelden');
  EditBenutzer.SetFocus;
  Exit;
end;

Bei deinem Code fehlt überall ein

begin
end

Und er führt nur den 1. Befehl aus (auch bei "Benutzername falsch")

Heiko

[LOMBI]

Hallo halinchen/Heiko,

die Zugriffsverletzung bezieht sich auf die Verschlüsselung.
Wenn die beiden Editfelder leer bleiben, kann weder Benutzer noch
Kennwort in die .ini geschrieben werden.

Delphi-Quellcode:

...
try
  if (myKey = MD5_Hash2String((HashForString(EditBenutzer.Text + EditKennwort.Text)))) AND (myKey <> '') then
  begin
    ShowMessage ('Sie sind angemeldet!')
    end else
    begin
    ShowMessage ('Benutzername und/oder Kennwort falsch!');
    EditBenutzer.SetFocus;
    EditBenutzer.Text := '';
    EditKennwort.Text := '';
    end;
    except
   if (EditBenutzer.Text = '') or
   (EditKennwort.Text = '') then
begin
  ShowMessage('Bitte anmelden');
  EditBenutzer.SetFocus;
  Exit
  end;
end;

[hoika]

Hallo,

dann musst du dass halt vor dem Hashbilden prüfen
und nicht sofort die Edit.Text an die Methode übergeben.


Heiko

[marabu]

Guten Morgen Lombi,

manchmal muss man aufpassen, in welcher Reihenfolge man die Dinge erledigt. Besser finde ich in deinem Fall, wenn man den Button gar nicht drücken kann, bevor man sinnvolle Eingaben gemacht hat.

Freundliche Grüße