Процедура Delphi для имитации набора текста

Question

Процедура Delphi для имитации набора текста

Я пытаюсь разработать подпрограмму в Delphi XE для вывода текста на экран для имитации ввода текста в игру. Это не так просто, как объединение символов в TMemo, например, поскольку это приводит к мерцанию даже при использовании beginupdate / endupdate. Я использовал технику здесь , преобразован в код Delphi, насколько это возможно, и модифицировал его на основе комментариев здесь, но я не получаю правильный текст. Я получаю мусор, я думаю, потому что персонажи каким-то образом не в правильном формате. Кто-нибудь видит, что здесь не так, или знает лучший способ имитировать типизацию?

procedure SendEnter();
var
  KeyInputs: array [0..1] of TInput;
begin
  ZeroMemory(@KeyInputs,sizeof(KeyInputs));
  KeyInputs[0].Itype := INPUT_KEYBOARD;
  KeyInputs[0].ki.wVk := VK_RETURN;
  KeyInputs[0].ki.dwFlags := 0;
  KeyInputs[1].Itype := INPUT_KEYBOARD;
  KeyInputs[1].ki.wVk := VK_RETURN;
  KeyInputs[1].ki.dwFlags := KEYEVENTF_EXTENDEDKEY;
  SendInput(2, KeyInputs[0], SizeOf(TInput));
end;

function TForm2.PrintOutLine(sLine: string): boolean;
var
  i: integer;
  VKRes: SmallInt;
  VK: byte;
  KeyInputsU: array [0..3] of TInput;
  KeyInputsL: array [0..1] of TInput;
  bUppercase: boolean;
begin
  Memo1.SetFocus;
  i:= 1;
  while (i<=Length(sLine)) do begin
    bUppercase:= sLine[i]=UpCase(sLine[i]);
    VKRes:= VkKeyScanEx(sLine[i],GetKeyboardLayout(0));
    VK:= VKRes;
    if (bUppercase) then begin
      ZeroMemory(@KeyInputsU,sizeof(KeyInputsU));
      KeyInputsU[0].Itype := INPUT_KEYBOARD;
      KeyInputsU[0].ki.wVk := VK_LSHIFT;
      //KeyInputsU[0].ki.dwFlags := 0;
      KeyInputsU[1].Itype := INPUT_KEYBOARD;
      KeyInputsU[1].ki.wVk := vk;
      KeyInputsU[1].ki.dwFlags := KEYEVENTF_UNICODE ;
      KeyInputsU[2].Itype := INPUT_KEYBOARD;
      KeyInputsU[2].ki.wVk := vk;
      KeyInputsU[2].ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
      KeyInputsU[3].Itype := INPUT_KEYBOARD;
      KeyInputsU[3].ki.wVk := VK_LSHIFT;
      KeyInputsU[3].ki.dwFlags := KEYEVENTF_KEYUP;
      SendInput(4, KeyInputsU[0], SizeOf(TInput));
    end
    else begin
      ZeroMemory(@KeyInputsL,sizeof(KeyInputsL));
      KeyInputsL[0].Itype := INPUT_KEYBOARD;
      KeyInputsL[0].ki.wVk := vk;
      KeyInputsL[0].ki.dwFlags := KEYEVENTF_UNICODE;
      KeyInputsL[1].Itype := INPUT_KEYBOARD;
      KeyInputsL[1].ki.wVk := vk;
      KeyInputsL[1].ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
      SendInput(2, KeyInputsL[0], SizeOf(TInput));
    end;
    Application.ProcessMessages;
    Sleep(80);
    inc(i);
  end;
  SendEnter;
  Form2.SetFocus;
  Result:= True;
end;

delphi,sendinput,

0

Ответов: 2

Дельфы, SendInput,

Похожие вопросы

score 1 · Accepted Answer

1 вниз голос принят

Чтобы ответить на ваш измененный вопрос, и ваш последний комментарий о не-альфа-символах все еще не работает правильно:

Вы обнаруживаете, что верхний / нижний регистр терпит неудачу на любом персонаже, в котором нет a .. z. Если вы посмотрите на документацию для System.UpCase()него, то значения символов не в диапазоне a..z не затронуты. Поэтому, если вы его кормите <, вы получите то же самое <. Ваш код будет интерпретировать это как символ верхнего регистра, хотя это не так.

Вам сказали в комментарии отправить ключи (на самом деле персонажи) dwFlags KEYEVENTF_UNICODE. Вы, кажется, приняли это только частично, а также ошибочно.

Обратите внимание, что в документации MSDN говорится:

wVk: ... Если член dwFlags указывает KEYEVENTF_UNICODE, wVk должно быть 0 .

wScan: ... Если dwFlags указывает KEYEVENTF_UNICODE, wScan указывает символ Unicode

и далее для флага KEYEVENTF_UNICODE:

Если указано, система синтезирует нажатие клавиши VK_PACKET. Параметр wVk должен быть равен нулю. Этот флаг можно комбинировать только с флагом KEYEVENTF_KEYUP.

Ergo, вам не нужно обнаруживать и отдельно обрабатывать символы верхнего регистра и нижнего регистра. Вы просто установите wScanпорядковый номер символа UTF-16, который хотите отправить. Поэтому ваши не-альфа-символы также корректно работают со следующим измененным кодом:

function TForm3.PrintOutLine(sLine: string): boolean;
var
  i: integer;
  KeyInputsL: array [0..1] of TInput;
begin
  Memo1.SetFocus;
  i:= 1;
  while (i<=Length(sLine)) do begin
    ZeroMemory(@KeyInputsL,sizeof(KeyInputsL));

    KeyInputsL[0].Itype := INPUT_KEYBOARD;
//    KeyInputsL[0].ki.wVk := vk;            // don't use wVk with KEYEVENTF_UNICODE
    KeyInputsL[0].ki.wScan := ord(sLine[i]); // instead use wScan
    KeyInputsL[0].ki.dwFlags := KEYEVENTF_UNICODE;

    KeyInputsL[1].Itype := INPUT_KEYBOARD;
//    KeyInputsL[1].ki.wVk := vk;
    KeyInputsL[1].ki.wScan := ord(sLine[i]);
    KeyInputsL[1].ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;

    SendInput(2, KeyInputsL[0], SizeOf(TInput));

    Application.ProcessMessages;
    Sleep(80);
    inc(i);
  end;
  SendEnter;
  Form3.SetFocus;
  Result:= True;
end;

Вышеупомянутый отвечает на ваш реальный вопрос, но не рассматривает суррогатные пары кодов UTF-16. Здесь есть полный код (на C ++) для показанного здесь

Кроме того, не часть вашего вопроса, но я не могу позволить ему пройти без комментариев: Application.ProcessMessagesи Sleep()это не правильный способ отправки одного символа за раз. Вместо этого используйте таймер, чтобы вызвать отправку каждого символа.

score 0 · Accepted Answer

0

Решение Remy Lebeau также хорошо работает.

function TForm2.PrintOutLine(sLine: string): boolean;
var
  i: integer;
begin
  i:= 1;
  while (i<=Length(sLine)) do begin
    Memo1.SelStart := Memo1.GetTextLen;
    Memo1.SelText := sLine[i];
    Application.ProcessMessages;
    Sleep(80);
    inc(i);
  end;
  Memo1.SelStart := Memo1.GetTextLen;
  Memo1.SelText := #13#10;
  Result:= True;
end;