Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 649

/ вопрос открыт /

Здравствуйте!
Вопрос по TChromium.
На страницу в хромиум загружаю текстовый редактор
Есть ли способ послать как-нибудь в окно хрома большой текст? (через win api тоже предлагайте)

есть способ посылать по одному символу, смотрите в приложениях.
но для большого текста этот способ крайне неудобен из-за того, что в нем необходима задержка sleep(40);

Можно ли как-нибудь весь текст послать, и желательно БЕЗ использования clipboard (Буфер обмена)?

Подскажите, если знаете, заранее благодарю.

Приложение:
  1. str:='Some Text';
  2.  
  3. Chromium1.Browser.MainFrame.ExecuteJavaScript('document.element_takoy-to.focus();','about:blank',0);
  4.  
  5. for i:=1 to length(str) do
  6.  
  7. begin
  8. FillChar(event, SizeOf(TCefKeyEvent), 0);
  9. event.kind := KEYEVENT_KEYDOWN;
  10. event.character:=str[i];
  11. event.windows_key_code:=ord(str[i]);
  12. Chromium1.Browser.MainFrame.ExecuteJavaScript('document.element_takoy-to.focus();','about:blank',0);
  13. Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);
  14.  
  15. FillChar(event, SizeOf(TCefKeyEvent), 0);
  16. event.kind := KEYEVENT_CHAR;
  17. event.character:=str[i];
  18. event.windows_key_code:=ord(str[i]);
  19. Chromium1.Browser.MainFrame.ExecuteJavaScript('document.element_takoy-to.focus();','about:blank',0);
  20. Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);
  21.  
  22. FillChar(event, SizeOf(TCefKeyEvent), 0);
  23. event.kind := KEYEVENT_KEYUP;
  24. event.character:=str[i];
  25. event.windows_key_code:=ord(str[i]);
  26. Chromium1.Browser.MainFrame.ExecuteJavaScript('document.element_takoy-to.focus();','about:blank',0);
  27. Chromium1.Browser.Host.Browser.MainFrame.Browser.Host.SendKeyEvent(@event);
  28. sleep(40);
  29. end;


grigandal1580 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: grigandal1580 (статус: Посетитель)
Вопрос отправлен: 2 марта 2017, 11:35
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:31
Выполнено за 0.02 сек.