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...

markieren

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:

markieren

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...

markieren

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

zusammenfalten · markieren

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)

markieren

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

Tastendruck simulation nach eingabe im Editfeld?

Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Re: Tastendruck simulation nach eingabe im Editfeld?

Forumregeln

ghost007 Registriert seit: 31. Okt 2005 Ort: München 1.024 Beiträge Delphi 7 Personal	#5 Re: Tastendruck simulation nach eingabe im Editfeld? 17. Jan 2007, 16:38 hi, du kannst so die einzelnen buchstaben auslesen: Edit1.Text[1] //steht z.b. für den ersten buchstaben MfG - Ghost007 Christian Es gibt möglich Dinge und unmöglich Dinge. Für unmögliche braucht man lediglich etwas länger.
	Zitat

xZise Registriert seit: 3. Mär 2006 Ort: Waldbronn 4.303 Beiträge Delphi 2009 Professional	#8 Re: Tastendruck simulation nach eingabe im Editfeld? 17. Jan 2007, 17:19 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. Fabian Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
	Zitat

rhodan Registriert seit: 4. Okt 2005 Ort: Hamburg 150 Beiträge Delphi 7 Personal	#9 Re: Tastendruck simulation nach eingabe im Editfeld? 17. Jan 2007, 17:32 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?
	Zitat