Tastendruck simulation nach eingabe im Editfeld?

[rhodan]

Moin.

ich weiss das ich mit

Delphi-Quellcode:

keybd_event(Ord('R'), 0, 0, 0);
Keybd_Event(Ord('R'),0,KEYEVENTF_KEYUP,0);

einen tastendruck auf "R" simulieren kann.
Nun möchte ich aber das der User in ein Editfeld Text bzw. zahlen eingibt welche dann simuliert gedrückt werden.

Wie könnte ich realisieren das wenn jemand z.B das "R" ins editfeld eingibt das Keybd_event Bsp. von oben ausgeführt wird nachdem der text mit nem button bestätigt wurde?

Für Anregungen wäre ich dankbar.

grüße aus Hamburg,

rhodan

[DGL-luke]

na dass is ja wohl echt nich schwer...

Delphi-Quellcode:

{BDS Code}
var
  c: char;
for c in Edit1.Text do
begin
  keybd_event(Ord(c), 0, 0, 0);
  Keybd_Event(Ord(c),0,KEYEVENTF_KEYUP,0);
end;

[rhodan]

hmmm...ich hab mal diesen code in den button gesetzt:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
c: char;
begin
for c in Edit1.Text do
begin
  keybd_event(Ord(c), 0, 0, 0);
  Keybd_Event(Ord(c),0,KEYEVENTF_KEYUP,0);
end;
end;

dann bekomme ich ne meldung "Operator ist auf diesen Operandentyp nicht anwendbar." in der Edit1.Text Zeile

[rhodan]

ich habs jetzt hinbekommen

allerdings drückt er nur "C" wenn ich ins editfeld "c" schreibe...

Delphi-Quellcode:

if (Edit1.Text = 'c') then
  keybd_event(Ord('C'), 0, 0, 0);
  Keybd_Event(Ord('C'),0,KEYEVENTF_KEYUP,0);

wie kriege ich ihn dazu auch "HALLO" simuliert zu schreiben? klar kann ich ihm sagen

Delphi-Quellcode:

if (Edit1.Text = 'hallo') then
keybd_event(Ord('H'), 0, 0, 0);
Keybd_Event(Ord('H'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('A'), 0, 0, 0);
Keybd_Event(Ord('A'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('L'), 0, 0, 0);
Keybd_Event(Ord('L'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('L'), 0, 0, 0);
Keybd_Event(Ord('L'),0,KEYEVENTF_KEYUP,0);
keybd_event(Ord('O'), 0, 0, 0);
Keybd_Event(Ord('O'),0,KEYEVENTF_KEYUP,0);

aber ich weiss ja nicht was der user schreibt...wie lese ich jeden buchstaben einzelnd aus?

danke

[ghost007]

hi,
du kannst so die einzelnen buchstaben auslesen:
Edit1.Text[1] //steht z.b. für den ersten buchstaben MfG - Ghost007

[xZise]

Der String (Edit1.Text) besteht aus mehreren Chars.
Diese kannst du nun in einer for-Schleife nacheinander abfragen.
(Ehrlich gesagt kenne ich mich mit "for-in" nicht aus)

Delphi-Quellcode:

for i := 1 to Length(str) do
begin
  str[i];
end;

str ist der Textstring und "str[i]" ist der Buchstabe an der Position "i". (Beginnend bei 1)
Also würde, wenn "str" "Hallo" wäre, str[i] folgende Ergebnisse liefern:

• H
  a
  l
  l
  o

Und die kannst du dann über "Ord()" benutzen um den Tastendurck zu simulieren.

PS: Ich weiß nicht ob es wichtig ist, aber normalerweise simuliert man den Tastendruck mit dem Grossbuchstaben.
Kann sein, dass ich mich irre

Aber wenn nicht, dann führe vorher "UpperCase()" aus.

[rhodan]

@Ghost007 es funzt ^^ danke dir recht herzlich

gibt es ne möglichkeit die arrays 1-30 zu festzulegen so das ich nicht für jede buchstabenposition das alphabet runterschreiben muss, sondern dass ich ihm z.B sage das wenn an buchstabenplatz 1-30 der buchstabe "A" gedrückt wird schreib es, etc etc, für das gesamte Alphabet halt.
sonst wird daraus ein mega code 30*26 Zeilen für 30 mögliche positionen :/

[xZise]

Wo liegt das Problem?
Du willst doch, wenn man im Edit "Hallo" eingibt, dass er "H" "a" "l" "l" "o" drückt oder?
Und das ist oben beschrieben worden.

[rhodan]

hmm, entweder bin ich zu doof oder hab zuwenig ahnung von delphi..wahrscheinlich beides ^^

ich hab i als integer definiert aber ich bekomme trotzdem ne fehlermeldung...muss ich

for i := 1 to Length(str) do nicht irgendwie noch meinem edit1.text zuweisen?

[xZise]

str ist "Edit1.Text"

@erste aussage: lol... Man wird ja nicht mit "DelphI" geboren

Also ein Tipp: Schreibe statt "str" "Edit1.Text".
Dann sollte es funktionieren.

PS: Du müsstest noch das zwischen begin und end der for-schleife anpassen