Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Embarcadero RAD Studio

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327

Открыть новую тему     Написать ответ в эту тему

V1s1ter



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
         
Обсуждаем новые возможности и баги
 
Просьба писать про Embarcadero RAD Studio XE5, XE6, XE7, XE8, 10.x (Seattle, Berlin,Tokyo)
  По вопросам скачивания - Тема в Варезнике (lite-версии тут)
  Вопросы по неюникодным версиям Delphi — шестая бумага
  Бесплатные Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus
  Коммерческие компоненты и утилиты для Delphi/BCB
  Вопросы по компонентам для Delphi, C++ Builder разных версий
  Новые языковые возможности, начиная с Delphi 2005 по XE4 — здесь, и New!здесь еще
  Англоязычный официальный форум Embarcadero — здесь
  Embarcadero Quality Central, веб интерфейс — здесь, новый Quality Portal тут
  Программирование на Delphi — викиверситет
  Другие ресурсы
   Предыдущие бумаги
 
     Вопросы ..XE4       Вопросы ..XE3    Вопросы ..XE2      
  Вопросы ..2009-XE    Вопросы ..<2009 / ч.5    Вопросы ..<2009 / ч.4      
  Вопросы ..<2009 / ч.3    Вопросы ..Delphi 2 / ч.2    Вопросы ..Delphi  
  Выключение встроенного эксперта Castalia  для XE8 (иногда помогает при вылетах и тормозах)  
  Полезные плагины(эксперты)
Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 15:25 11-09-2013 | Исправлено: Komandor, 15:49 31-03-2024
stanzdor



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
 
  h := findwindow(nil, '*тест.txt - Notepad');
  if h <> 0 then begin
 
    SetForegroundWindow(h);
 
    keybd_event(VK_CONTROL, 0, 0, 0);
    keybd_event(VK_SHIFT, 0, 0, 0);
    keybd_event(ord('S'), 0, 0, 0);
 
    // save As
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(ord('S'), 0, KEYEVENTF_KEYUP, 0);
 
 
  end;
 
Всего записей: 601 | Зарегистр. 12-04-2004 | Отправлено: 19:37 25-10-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Frodo_Torbins

Цитата:
Сначала нужно активировать окно (SetForegroundWindow)
stanzdor

Цитата:
Код:

 
Спасибо, это я делаю, SendInput поробую. Все, что нашел в гугле у меня не работает.
 
stanzdor

Цитата:
Код

Спасибо, попробую.
Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 20:28 25-10-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сделал тест на эмуляцию нажатия клавиш:
Ctrl+A или Ctrl+V - отлично работают, но вот Ctl+End не работает! Вот код и что получает окно, куда посылается.
Почему не срабатывает не подскажите?
 

Код:
var
  KeyInputs: array of TInput;
  KeyInputCount: Integer;
begin
  SetLength(KeyInputs, 4);
 
  KeyInputCount := 4;
 
  KeyInputs[0].Itype := INPUT_KEYBOARD;
  KeyInputs[0].ki.wVk := VK_SHIFT;
 
  KeyInputs[1].Itype := INPUT_KEYBOARD;
  KeyInputs[1].ki.wVk := VK_END;
 
  KeyInputs[2].Itype := INPUT_KEYBOARD;
  KeyInputs[2].ki.wVk := VK_SHIFT;
  KeyInputs[2].ki.dwFlags := KEYEVENTF_KEYUP;
 
  KeyInputs[3].Itype := INPUT_KEYBOARD;
  KeyInputs[3].ki.wVk := VK_END;
  KeyInputs[3].ki.dwFlags := KEYEVENTF_KEYUP;
 
  SendInput(KeyInputCount, KeyInputs[0], SizeOf(KeyInputs[0]));
 
 

 
Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 13:43 26-10-2022 | Исправлено: Samotek, 15:55 26-10-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Случайно нашел в инете: надо при нажатии клавиши указывать UNICODE
   
Код:
KeyInput.ki.dwFlags := KEYEVENTF_UNICODE;  

а при отпускании
   
Код:
 KeyInput.ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;

 
Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 18:24 26-10-2022 | Исправлено: Samotek, 19:04 26-10-2022
HekTo

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
del.
[сам тормоз]
Всего записей: 187 | Зарегистр. 30-09-2003 | Отправлено: 15:34 10-11-2022 | Исправлено: HekTo, 16:36 10-11-2022
Zatupitel



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Samotek

Цитата:
VK_SHIFT

ты же вроде хотел CTRL нажимать ( VK_CONTROL)
Всего записей: 474 | Зарегистр. 31-08-2006 | Отправлено: 21:29 16-11-2022 | Исправлено: Zatupitel, 21:30 16-11-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Zatupitel

Цитата:
ты же вроде хотел CTRL нажимать ( VK_CONTROL)

Я уже забыл чего я хотел, но вот работающая функция, может кому сгодится:

Код:
 
procedure SendKeysAsKeyboard(Keys: array of word);
var
  inp: TInput;
  i, k: integer;
begin
  // Послать нажатия клавиш в чужое или свое окно
  // Послано будет, естественно, окну с фокусом
  // Предварительно надо перевести фокус на окно например
  // SetForegroundWindow(w); // Чтоб стало принимать клавиши
 
  k := Length(Keys);
  Inp.Itype := INPUT_KEYBOARD;
  Inp.ki.dwFlags := KEYEVENTF_UNICODE;
  for i := 0 to k - 1 do begin
    Inp.ki.wVk := Keys[i];
    SendInput(1, Inp, SizeOf(TInput));
  end;
 
  Inp.Itype := INPUT_KEYBOARD;
  Inp.ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
  for i := 0 to k - 1 do begin
    Inp.ki.wVk := Keys[i];
    SendInput(1, Inp, SizeOf(TInput));
  end;
end;
 
Пример:
 
    SendKeysAsKeyboard([VK_CONTROL, VK_HOME]);
    SendKeysAsKeyboard([VK_CONTROL, ORD('A')]);
    SendKeysAsKeyboard([VK_RETURN]);
 

Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 00:49 17-11-2022 | Исправлено: Samotek, 11:36 17-11-2022
arafree2

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго, установил Delphi11.2 + всё что нужно для Android (надеюсь), создаю пусой проект под мобилку. Пытаюсь скомпилировть под Android64, выдаёт warning "Would you like to update the platform SDK now?"  при компиляции, жму Y/N не важно результат один и тот же:
"Compiling Project1.dproj (Debug, Android64)
[Error]  
Failed
Elapsed time: 00:02:11.5"
Не поможете с проблемой? Видать что-то не установил сверху, но в самой дельфи я установил всё, что требовалось для Android
 
Разобрался:
Нельзя дельфи устанавливать с заблокированной сеткой к ресурсам дельфи (firewall or hosts), она в момент установки подтягивает дополнительные пакеты под андроид NDK. Хотя этот пакет можно доставить прям из самой дельфи (Tools -> Manage Platforms)
 
Есть ещё баг. Так и не понял, как подружить дельфи с эмуляторами, что виндовый эмулятор windows subsystem for android, что и от андроид студии (хотя тут я копал не сильно) не смогли запустится по F5. Только через ручной деплой "adb install .\XXX\bin\XXX.apk"
Хотя если подрубить телефон по USB, то запуск и дебаг работают нормально.
Всего записей: 64 | Зарегистр. 20-08-2014 | Отправлено: 23:22 03-12-2022 | Исправлено: arafree2, 02:14 13-12-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При вызове справки по F1 (delphi 10.4) не работает копирование в буфер обмена по Ctrl-C. А если вызвать напрямую например system.chm, то все работает! Кто нибудь знает, как это пофиксить?
Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 13:32 06-12-2022
relictus

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Samotek
Оно и в 11-й не работает, только через контекстное меню - бесит неимоверно!
Кстати, на QC есть несколько закрытых репортов на эту тему, типа все пофиксили. Но вот этот https://quality.embarcadero.com/browse/RSP-12284 еще открыт, можно проголосовать...
Всего записей: 3762 | Зарегистр. 19-04-2005 | Отправлено: 13:50 06-12-2022 | Исправлено: relictus, 14:32 06-12-2022
StalkerSoftware



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hi All,
 
Может ли кто поделится локализацией (Русский, Украинский) для библиотеки DevExpress ?
 
P.S. Написал им в поддержку по по поводу их стандартной локализации на разные языки (как это есть в других библиотеках, например EHLib или FastReport), а они говорят что такого у них нет. ;-(
Всего записей: 683 | Зарегистр. 23-06-2008 | Отправлено: 14:57 06-12-2022
stanzdor



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите кто знает какой альтернативный Deployment Manager, а то стоковый это просто жесть..
хотя бы сделали простое copy\paste.
нашел какой то https://github.com/grijjy/GrijjyDeployMan  но кривоватый.
Всего записей: 601 | Зарегистр. 12-04-2004 | Отправлено: 22:04 09-12-2022
arafree2

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Никто не знает, как починить в D11.2 code compleate. Он ломается, через 10 минут работы.
Пока нарыл только, через рестарт LSP: taskkill /f /IM DelphiLsp.exe. Буду тестить
Всего записей: 64 | Зарегистр. 20-08-2014 | Отправлено: 02:15 13-12-2022 | Исправлено: arafree2, 03:00 13-12-2022
arafree2

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Для ведроидеров посвещается:
Запуск и компиляция под Andoid64, батники + рекомендую настроить из вызов из делфи Tools -> Configure tools.
1. --------------------------------------
manualadb.bat
@echo off
REM Call from Delphi/RAD Studio IDE (Tools -> Configure tools) with the following parameters
REM $PATH($EXENAME) $NAMEONLY($PROJECT)
echo =============================================================
echo Be sure you Compile Android 64 and Deploy [Shift-Ctrl-Alt-F9]
echo.  
echo Also set <application android:resizeableActivity="true"> in AndroidManifest.template.xml
echo =============================================================
set apk=%2\bin\%2.apk
echo APK: %apk%
cd /d %1
cd %2\bin
echo.
dir %2.apk
echo.
if exist %2.apk (
adb connect localhost:58526
adb uninstall com.embarcadero.%2
adb install %2.apk
adb shell am start -n com.embarcadero.%2/com.embarcadero.firemonkey.FMXNativeActivity
echo You can close this window....
rem timeout /t 3
) else (
echo =============================================================
echo Your APK file is missing!
echo Be sure you Compile Android 64 and Deploy [Shift-Ctrl-Alt-F9]
echo =============================================================
echo Path: %1; Name: %2
pause
)
2. --------------------------------------
adb_build_and_exec.bat
@echo off
REM Call from Delphi/RAD Studio IDE (Tools -> Configure tools) with the following parameters
REM $PATH($PROJECT) $PATH($EXENAME) $NAMEONLY($PROJECT)
echo adb_build_and_exec %1 %2 %3
msbuild %1\%3.dproj /t:Build /p:Configuration=Debug /target:Deploy /p:platform=Android64
manualadb.bat %2 %3
Всего записей: 64 | Зарегистр. 20-08-2014 | Отправлено: 13:31 13-12-2022
StalkerSoftware



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hi All,
 
Просьба помочь с компонентом
 
1) Устанавливает компонент в IDE (PakPanelTest.dpk), после этого открывает
в Delphi демо-проект (PakPanelTest.dpk).
2) В дизайнере устанавливаем свойство TestPanel1.ExternalToolBarPanel = SuperPanel
3) Удаляем в дизайнере SuperPanel.
 
  По идее кнопка "M" должна была удалиться с SuperPanel (вызов метода  
DestroyToolBar из SetExternalToolBarPanel), а потом создатся заново на  
внутренней панеле (вызов метода из CreateToolBar из  
SetExternalToolBarPanel).
 Но вместо этого происходит AV на строке FreeAndNil(FTestSpeedButton)  
метода DestroyToolBar. Почему происходит AV понять не могу.
Очень нужна помощь.
 
Ссылка
Всего записей: 683 | Зарегистр. 23-06-2008 | Отправлено: 09:50 21-12-2022
stanzdor



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
-del-
Всего записей: 601 | Зарегистр. 12-04-2004 | Отправлено: 15:23 22-12-2022 | Исправлено: stanzdor, 15:34 22-12-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Del! Извиняюсь за бред!
Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 15:11 23-12-2022 | Исправлено: Samotek, 15:37 23-12-2022
Dook

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Samotek

Цитата:
При вызове справки по F1 (delphi 10.4) не работает копирование в буфер обмена

Для autohotkey:
 
#IfWinActive ahk_exe bds.exe ahk_class HH Parent
^c::  
^Ins::
^NumpadIns::
SendMessage, 0x111, 0x1000F,0, Internet Explorer_Server1, ahk_exe bds.exe ahk_class HH Parent
return
 
 
Всего записей: 85 | Зарегистр. 02-11-2002 | Отправлено: 20:39 23-12-2022
Samotek

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dook

Цитата:
Для autohotkey:  

Ура! Работает! Спасибо!
Всего записей: 2596 | Зарегистр. 18-05-2005 | Отправлено: 20:55 23-12-2022
relictus

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dsk

Цитата:
Вчера звонила какая-то тетя из Embarcadero и с жЮтким акцентом сказала, что они дескать снова продают лицензии. Сегодня спросил в allsoft, ответили, нет, не продают. Что это было?!  

Ха, походу пошла продажа Пришло такое письмо от Allsoft:
"Ранее Вы обращались к нам с вопросом продления Вашей лицензии Embarcadero, и мы рады Вам сообщить, что поставки данного программного обеспечения возобновились.
Уточните, пожалуйста, приобретение данного продукта актуально для Вас?
Если Вам необходим расчет стоимости, просьба уточнить следующую информацию:
1. Информация о Вашей организации на английском языке:
Company Name:
INN
Address
Telephone:
First and Last Name of user:
Email
2. Наименование банка, который обслуживает Вашу организацию и через которую Вы планируете проводить оплату по счету.
3. Цепочка продажи.
4. Данные Вашей лицензии PID.
Если у Вас возникнут вопросы, пожалуйста, обращайтесь, будем рады Вам помочь."
Всего записей: 3762 | Зарегистр. 19-04-2005 | Отправлено: 21:18 24-12-2022
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Embarcadero RAD Studio


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru