Эмуляция нажатий клавиш (число или слово из переменной)

@andrbest · Регистрация: 25.12.2015

Author24 — интернет-сервис помощи студентам

Привет всем!
Есть база данных из которой в переменную выгружаем значения. Вопрос как заставить delphi 7 эмулировать набор этого значения на клавиатуре?

Как сэмулировать нажатие клавиш я понял, а вот как заставить печатать нужные значение из переменной нет.

Помогите кто чем может))

@Hikari · 12.02.2016, 12:28

Delphi

 Key:=Код клавиши.
 State:=состояние Шифт-Ктрл-Альт
  scan:=MapVirtualKeyEx(Key,0,GetKeyboardLayout(0));
  keybd_event(key,scan,KEYEVENTF_EXTENDEDKEY or State,0);

По крайней мере так сделано у меня.

@andrbest · 12.02.2016, 13:11 **[ТС]**

Как клавишу "нажать" я знаю. Не знаю как текст из переменной туда слить...

@Hikari · 12.02.2016, 13:26

Сообщение от andrbest

Не знаю как текст из переменной туда слить...

Key:=Код клавиши.
Если строка - то в цикле Key:=ord(Строка[итератор цикла]).

DenNik · 12.02.2016, 13:54

Hikari, есть коды клавиш - это одно, а текст в переменной, типа "привет, Мир", никакого отношения к кодам не имеет, т.е. код символа "п" не является кодом клавиши, на которой нарисована буква "п"

@Hikari · 12.02.2016, 14:13

Сообщение от DenNik

код символа "п" не является кодом клавиши, на которой нарисована буква "п"

Так на то и получение сканкода...
Ладно. проехали... Предложи свой способ, раз мой не нравится.
Меня пока что он не подводил.

DenNik · 12.02.2016, 14:20

Сообщение от Hikari

Так на то и получение сканкода...

вот именно это и нужно, а не

Сообщение от Hikari

Key:=ord(Строка[итератор цикла]).

операция ord(Строка[итератор цикла]) возвратит код СИМВОЛА, который является элементом массива СТРОКА. этим элементом может быть "S", а может быть "Ы", и код в Key будет разным, но никак не сканкод клавиши, на которой нарисованы эти символы.

еще раз: я говорю о том, что алгоритм

Сообщение от Hikari

Key:=Код клавиши.
Если строка - то в цикле Key:=ord(Строка[итератор цикла]).

никоим образом не возвратит сканкод клавиши, который нужно подставлять
в код программного нажатия клавиш

@Hikari · 12.02.2016, 15:59

Сообщение от DenNik

еще раз: я говорю о том, что алгоритм

Все с тобой понятно...

@andrbest · 13.02.2016, 10:12 **[ТС]**

В общем проблема решилась так:

Delphi

procedure SendKeysAndEnter(Buffer : String);
var i : integer;
    w : word;
begin
   for i:=1 to length(Buffer) do
  begin
    w:=VkKeyScan(buffer[i]);
    keybd_event(w,0,0,0);
    keybd_event(w,0,KEYEVENTF_KEYUP,0);
  end;
   end;
 
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
      SendKeysAndEnter(DBEdit1.Text);
end;

@andrbest 0 / 0 / 0 Регистрация: 25.12.2015 Сообщений: 3
		1
	Эмуляция нажатий клавиш (число или слово из переменной) 12.02.2016, 12:17. Показов 3136. Ответов 8 Метки нет (Все метки) Привет всем! Есть база данных из которой в переменную выгружаем значения. Вопрос как заставить delphi 7 эмулировать набор этого значения на клавиатуре? Как сэмулировать нажатие клавиш я понял, а вот как заставить печатать нужные значение из переменной нет. Помогите кто чем может)) 0

@andrbest 0 / 0 / 0 Регистрация: 25.12.2015 Сообщений: 3
	12.02.2016, 13:11 [ТС]	3
	Как клавишу "нажать" я знаю. Не знаю как текст из переменной туда слить... 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	12.02.2016, 13:26	4
	Сообщение от andrbest Не знаю как текст из переменной туда слить... Key:=Код клавиши. Если строка - то в цикле Key:=ord(Строка[итератор цикла]). 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	12.02.2016, 13:54	5
	Hikari, есть коды клавиш - это одно, а текст в переменной, типа "привет, Мир", никакого отношения к кодам не имеет, т.е. код символа "п" не является кодом клавиши, на которой нарисована буква "п" 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	12.02.2016, 14:13	6
	Сообщение от DenNik код символа "п" не является кодом клавиши, на которой нарисована буква "п" Так на то и получение сканкода... Ладно. проехали... Предложи свой способ, раз мой не нравится. Меня пока что он не подводил. 0

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	12.02.2016, 14:20	7
	Сообщение от Hikari Так на то и получение сканкода... вот именно это и нужно, а не Сообщение от Hikari Key:=ord(Строка[итератор цикла]). операция ord(Строка[итератор цикла]) возвратит код СИМВОЛА, который является элементом массива СТРОКА. этим элементом может быть "S", а может быть "Ы", и код в Key будет разным, но никак не сканкод клавиши, на которой нарисованы эти символы. еще раз: я говорю о том, что алгоритм Сообщение от Hikari Key:=Код клавиши. Если строка - то в цикле Key:=ord(Строка[итератор цикла]). никоим образом не возвратит сканкод клавиши, который нужно подставлять в код программного нажатия клавиш 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	12.02.2016, 15:59	8
	Сообщение от DenNik еще раз: я говорю о том, что алгоритм Все с тобой понятно... 0

	13.02.2016, 10:12