Eingabe in der Konsole verbergen

[Luckie]

Ich habe ein Konsolen-Programm bei dem ich ein passwort eingeben muss. Nun wäre es schön, wenn entweder statt des Passwortes Sternchen erscheinen würden oder gar nichts, wie bei runas.

Hat da jemand eine Idee?

[Ultimator]

Hmmm, du könntest, wenn eine Taste gedrückt wurde, diese in eine Char-Variable speichern. Nun kannst du die gedrückte Taste auf #0 oder was du magst. Und dann alle Char-Variablen zu einem String zusammenfassen.

[Dax]

Eine Möglichkeit wäre, jedes Zeichen an der entsprechenden Stelle in einem String zu speichern, aber ein * zu schreiben.

[OrallY]

Hi,

Naja, auch wenn man die Eingabe zuerst inner Variable speichert, wird sie trotzdem im Fenster angezeigt, oder?
Spontan würde mir ein LowLevel-Keyboardhook, der die Daten nicht weitergibt, einfallen. Aber ob das so sauber ist...

greez

[Luckie]

Nun ja. Man liest ja von der Konsole über readln ein und das greift erst, wenn Return gedrückt wurde, nur dann ist es shcon zu spät, dann steht es ja schon da. Und einzelne tastendrücke abzufangen ist wohl nicht so einfach möglich. :gruebel:

[Dax]

In TP gab's doch die Funktion KeyPressed, die man dann mit Read verwenden konnte.. AFAIR gibts in den CRT-Replacement-Units auch eine KeyPressed-Funktion.

[OrallY]

Wie schon gesagt, mit einem LowLevel-Keyboardhook, der nicht CallNextHook aufruft, gibt die Daten nicht ans System weiter. Das heißt, der Hook müsste eine Nachricht an dein Programm schicken, welche Taste nun gedrückt wurde.

Was an dieser Methode allerdings stört, ist, dass dieser Hook nur ab NT aufwärts funktioniert.

greez

[static_cast]

Hi Luckie,

ich hatte mal diese freie CRT32 im netz gefunden und etwas angepasst damit sie noch mit neueren Delphi versionen funzt. Die sollte dir dabei helfen.

[nailor]

Ich glaub nicht, dass das das ist, was Luckie sucht. *kann aber irren*

[static_cast]

Zitat:

Zitat von nailor

Ich glaub nicht, dass das das ist, was Luckie sucht. *kann aber irren*

Nein natürlich nicht aber da sind die Funktionen

Delphi-Quellcode:

function KeyPressed: Boolean; 
function ReadKey:Char; 
function ReadVirtualKey:Word;

drin! Und Vllt kann er ja noch mehr von gebrauchen!?

[alcaeus]

Zitat:

Zitat von nailor

Ich glaub nicht, dass das das ist, was Luckie sucht. *kann aber irren*

Da irrst du aber. Aus der guten alten DOS-Pascal Zeit weiß ich noch folgenden Code:

Delphi-Quellcode:

var
  c: Char;
  strVar: String;
begin
  c := '';
  strVar := '';
  repeat
    strVar := strVar+c;
    c := ReadKey;
  until c = #13;
end;

Die Zeichen werden eines nach dem anderen von der Tastatur eingelesen, ohne dass die Zeichen auf dem Bildschirm ausgegeben werden.

Greetz
alcaeus

[Chewie]

Schau dir mal die Konsolen-Funktionen der WinAPI an, Luckie. Da solltest du was finden.

[nailor]

Zitat:

Zitat von alcaeus

Delphi-Quellcode:

var
  c: Char;
  strVar: String;
begin
  c := '';
  strVar := '';
  repeat
    strVar := strVar+c;
    c := ReadKey;
  until c = #13;
end;

aber wenn der Luckie den Code gewollt hätte, hätte er den auch noch hinbekommen, glaub ich.

[alcaeus]

Zitat:

Zitat von nailor

aber wenn der Luckie den Code gewollt hätte, hätte er den auch noch hinbekommen, glaub ich.

Das hätte ich nie bezweifelt. Versteh den Code als Beweis dafür, dass die Unit doch was taugt ;)

Greetz
alcaeus

[nailor]

ja schon. aber imho nicht für Luckie mit seinem aktuellen Problem.

[alcaeus]

Hi nailor,

das musst du mir jetzt erklären.

Zitat:

Zitat von Luckie

Ich habe ein Konsolen-Programm bei dem ich ein passwort eingeben muss. Nun wäre es schön, wenn entweder statt des Passwortes Sternchen erscheinen würden oder gar nichts, wie bei runas.

Zitat:

Zitat von alcaeus

Die Zeichen werden eines nach dem anderen von der Tastatur eingelesen, ohne dass die Zeichen auf dem Bildschirm ausgegeben werden.

Wenn das nicht irgendwie zusammenpasst :gruebel:

Greetz
alcaeus

[nailor]

schon schon schon. ich dachte nur (und wahrscheinlich dachte Luckie es auch) dass das mit Bordmitteln geht.

[Luckie]

Zitat:

Zitat von Chewie

Schau dir mal die Konsolen-Funktionen der WinAPI an, Luckie. Da solltest du was finden.

Genau an so was dachte ich auch. Nur wo nach soll ich suchen? Denkst du da an was bestimmtest?

[shmia]

Delphi-Quellcode:

   h_in := GetStdHandle(STD_INPUT_HANDLE);
   GetConsoleMode(h_in, mode);
   SetConsoleMode(h_in, mode and (not ENABLE_ECHO_INPUT));