Password

[allarich]

Hallo !!
Bin Anfänger und möchte Ablauf von einem Programm durch password-Sicherung in Form
Passwordfreigeben oder stoppen. Wiei tue ich das ???

MfG
allarich

[Dax]

Kommt auf das an, was du tun willst.

Was willst du tun?

[allarich]

Ich möchte beim Programmstart die Form Password aufrufen,um nach Eingabe des Passwords entweder weiterfahren(wenn password korrekt),oder Eingabewiederholung und dann abbrechen.

MfG
allarich

[-tobi-]

hallo,

es kommt darauf an, od du das Passwort als Konstante fest hinterlegen willst, oder es aus einer Datei oder DB zum vergleichen lesen willst.

Gruß

tobi

[-tobi-]

Ein Vorschlag mit Konstante und 2 Formularen währe:

Hierzu sollte bei 'Projekt/Optionen' nur Form1 in 'Automatisch erzeugt' stehen und Form2 in 'verfügbare Formulare'

Form1 für Aufruf von Form2 und Programmende.
Hier muß bei uses im Interface-Teil 'Unit2' hinzugefügt werden.

Delphi-Quellcode:

procedure TForm1.cmdEndeClick(Sender: TObject);
begin
  Form1.Close;                       //Programmende
end;

procedure TForm1.cmdAnmeldenClick(Sender: TObject);
const
  passwd = 'test';
begin
  if passwd = txtPasswort.Text then
  begin
    Form1.Enabled := False;          //Weiterarbeiten auf Form1 verhindern
    Form2 := TForm2.Create(self);    //Form2 Erstellen
    try
      Form2.ShowModal                //Form2 Anzeigen
    finally
      Form2.Free;
    end;
  end;
end;

Code von Form2 um zu Form1 zurückzukehren

Delphi-Quellcode:

implementation

{$R *.dfm}

uses
  unit1;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Enabled := True;           //ermöglichen auf Form1 weiterzuarbeiten
end;

...  //In Form2 kann nun das komplette eigendliche Programm erstellt werden.

Gruß
tobi

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Freeware" nach "Sonstige Fragen zu Delphi" verschoben.
Freeware ist zur Vorstellung von Programmen ;)

[allarich]

Hallo tobi,

danke füe Deinen Vorschlag; sieht gut aus; werde ihn gleich nachher ausprobieren !

MfG
allarich :firejump:

[pizza]

es reicht auch wenn du nur

Delphi-Quellcode:

Form2.ShowModal;

machst..
du musst es vorher nicht erstellen, da du es ja einfach mit 'neues formular erstellen'
machen kannst und dann einfach mit dem befehl oben anzeigen kannst..

mfg rob :mrgreen:

[c113plpbr]

Bei Tobi's methode ist das passwort aber sehr einfach herauszufinden. Sicherer wäre eine andere, sicherere 'speicherung' des Passwortes.

ciao, Philipp

[Ratte]

Hi,

ich hatte bei einem ähnlichen Prob. einen md5-hash des Passworts gespeichert und den Hash des eingegebenen PW's und des Richtigen PW's verglichen.

Ratte