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

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

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

ShIvADeSt (26-06-2017 02:39): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=14667 		 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411

   

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение раздела http://forum.ru-board.com/topic.cgi?forum=33&topic=6607&start=0  
Ссылки приветствуются.
См. также:
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 07:33 20-06-2007 | Исправлено: XPerformer, 14:41 24-10-2013
GRom V

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

Цитата:
 вы задайте вопрос конкретнее.  

Я же задал вопрос выше?!...... Уважаемые програММисты можно без понтов?
Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 11:52 23-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вы по ссылке сходили, пример скачали, скомпилировали, посмотрели как работает ?
 
Мне не понятно, что ещё может быть не понятно...
 
Вы DLL создали ? Не знаете, как отличить End от других кнопок ? Не срабатывает хук ?  
Что не получается-то ?
 
 
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 18:59 23-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DevExpress 2012.1.6
TcxRichEdit
 
Можно как-то повлиять на то, что попадает в список для undo ?
Хочется, чтобы undo отскакивал только по изменениям текста и пропускал изменения шрифта и цвета.
 
Или проще реализовать undo ручками ?
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 10:15 25-08-2015
MagistrAnatol



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите разобраться, что-то туплю
    

Код:
               TForm2 *Form2 = new TForm2(Application);
           Form2->Parent=Panel1;
        if (Form2->ShowModal()==mrOk)
        {
 
        }
        delete frmEditAbo;
 

Как бы все работает , за исключением - не могу получить фокус на вторую форму.
надо именно ShowModal() а не Show()
Всего записей: 2120 | Зарегистр. 09-04-2003 | Отправлено: 21:45 25-08-2015
lodyr



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот и я что-то туплю...не иначе, как звёзды... Помогите разобраться.
 
На форме есть контрол «ComboBox», в котором список всех приводов CD.
Туда, кроме физических, заносим и виртуальные приводы.
В  событии «OnChange» (ComboBox1Change) пытаюсь проверить наличие в приводе Audio CD.
Упёрся в это потому, что когда вставляю в комп. модем для Интернета, он запускает свой виртуальный привод с драйверами и «готов к работе». Отсечь его надо не потому, что он виртуальный, а потому, что в нём нет Audio CD. Нужна проверка привода на наличие в нём именно Audio CD.
 
Вопрос: как при выборе привода из списка «ComboBox» узнать есть ли там Audio CD?
 
Использую Unit «MMSystem» из Delphi multimedia API Interface. Мож есть ещё что для этой цели?
 
Добавлено:
MagistrAnatol

Цитата:
не могу получить фокус на вторую форму. надо именно ShowModal()

Что-то я не врубился. Вроде сегодня не 1 Апреля.. При методе именно ShowModal() форма получает фокус автоматически, т.к. выполнение вызывающей формы приостанавливается до закрытия вызываемой. У меня так,  а у Вас разве не так?
Гляньте для примера, нашёл в своих старых тестах для АльфаКонтрол.
http://rghost.ru/7RKDcdmG2
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 21:47 30-08-2015 | Исправлено: lodyr, 22:57 30-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lodyr
Давненько я не держал в руках AudioCD...
Насколько помню, если вы попытаетемь открыть AudioCD в проводнике - каждые трек будет выглядеть как файл в корне.
 
Так что, аудио или нет - можно отличить по содержимому.
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 06:47 31-08-2015
lodyr



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

Цитата:
Так что, аудио или нет - можно отличить по содержимому.

 Это так. Может я не ясно спросил. Тогда переформулирую проблему, в чём затык.
Продолжал копать дальше и понял, что при выборе привода из списка «ComboBox», я пытаюсь сразу открыть MCI device с номером привода (ComboBox1.ItemIndex).  Используется функция из unit MMSystem
mciSendCommand(FDeviceID, uMessage, dwCommand, dwParam);
Но похоже она не воспринимает мой индекс привода и опрашивает 0-вой из списка. Надо, наверное, сначала назначить принудительно MCI device с номером привода? Если так, дайте подсказку, как сформировать команду для MMSystem "MCI_SET_AUDIO".
 Что-то я туплю.  
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 10:50 31-08-2015 | Исправлено: lodyr, 10:53 31-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если бы был кусочек вашего кода, как-то проще было бы...
Наверняка, дело в какой-то мелочи...
 
Сначала создаём и заполняем структуру типа TMCI_OPEN_PARMS
Потом что-то вроде:
 
 if mciSendCommand(0, MCI_OPEN, ... ) = 0 then
 begin
    mciSendCommand(<ID, который получили в процессе открытия>,MCI_SET, <команда> , <параметры>);
 
Как-то так...
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 12:05 31-08-2015
lodyr



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

Цитата:
Как-то так...

 Кусочком кода не получится.
Вот я и зациклился на этом. Что-то пока упускаю. Буду копать дальше, как ей сменить № выбранного привода. Наверное, придётся делать отдельный тестовый пример, чтобы обкатать эту проблемку..
 
Спасибо, что уделяете время и пытаетесь помочь.
 
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 14:45 31-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну, ещё немного погадаем...
При выборе в комбобоксе, вы пытаетесь запустить воспроизведение ?
Тогда, наверное, ваш код похож на что-то такое:

Код:
 
var
  OP: MCI_OPEN_PARMS;
  PP: TMCI_PLAY_PARMS;
  dID: Cardinal;
begin
  OP.lpstrDeviceType:= 'CDAudio';
  OP.lpstrElementName:= 'D:\';
  if mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OP)) = 0 then
  begin
    dID:= OP.wDeviceID;
    if mciSendCommand(dID, MCI_PLAY, 0, Longint(@PP)) <> 0 then  // <- Может вот здесь ? Не 0, а ID устройства, которое мы получили выше.
    begin
       // Что-то случилось. Начинайте беспокоиться. Может это не AudioCD ?
    end;
  end
     else
  begin
     // Не смогли получить ID
  end;
end;
 
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 15:07 31-08-2015
lodyr



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KDPoid
При выборе в комбобоксе, я пытаюсь просто проверить, есть ли в приводе AudioCD.
Я специально вставил в физический (F) привод AudioCD, а в виртуальном (H), естественно, нет AudioCD. Там драйвера Интернет-модема.
При попытке выполнить подобную команду открыть MCI device с номером привода (ComboBox1.ItemIndex)  mciSendCommand(dID, MCI_OPEN, 0, Longint(@PP))  у меня он подставляется, но видно, что обращение идёт всё время только к первому в списке. Т.е. не могу принудительно сменить № привода.  
 
Цитата:
 if mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OP)) = 0 then  
 
 А разве при mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OP)) всегда должен быть 0, а не ID устройства, которое мы получили выше?
 

Цитата:
    if mciSendCommand(dID, MCI_PLAY, 0, Longint(@PP)) <> 0 then  // <- Может вот здесь ? Не 0, а ID устройства, которое мы получили выше.

У меня друг за другом идут 2 команды mciSendCommand и перед первой с MCI_OPEN нет полученного  ID устройства.
и OP.lpstrElementName:= '';  Может здесь тоже ошибка? Буква привода обязательна?
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 16:35 31-08-2015 | Исправлено: lodyr, 17:03 31-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Первый вызов:
mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OP))
 
Первый параметр не используется вместе с MCI_OPEN (так говорит MSDN), поэтому первый раз там 0.
Какой привод мы пытаемся открыть - это внутри OP.lpstrElementName
В вашем первом случае:
OP.lpstrElementName := 'F:\';
 
Вызов MCI_OPEN как раз и получает ID устройства. Засовывает его в OP.wDeviceID
 
Второй вызов надо уже делать с этим ID.
Не с индексом комбобокса, а с ID.
 
И при смене значения в комбобоксе, надо заново получить новый ID,(заполнить OP.lpstrElementName и вызвать MCI_OPEN) и потом вызывать вторую команду с этим ID
 
По-моему так. (с)
 
 
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 18:05 31-08-2015
lodyr



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KDPoid
Очень подробно, ясно и понятно разъяснили логику работы multimedia API Interface.  Огромное Вам спасибо! И, главное, не поленились проштудировать раздел MSDN.
 Надеюсь, что теперь все заработает, как надо. У меня была мысль обратиться к MSDN, как я всегда делал, когда уже тупик, но сбило то, что под рукой на компе ее не было, а в Интернете прочитать MSDN, не знаю что помешало..усталость, наверное.
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 21:34 31-08-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lodyr, надеюсь, вы обратите внимание на 2 вещи:
 
1. В форуме вы потратили на решение своей проблемы сутки. Заглянув в MSDN ( __ttps://msdn.microsoft.com/en-us/library/windows/desktop/dd757160(v=vs.85).aspx ), вы бы решили её за час. Документация есть и она доступна. Практически, по любому вопросу. Форум - это для "что-то не получается, как в доке написано". В остальных случаях, быстрее RTFM.
 
2. Для программиста стесняться показывать код, это как для стриптизёрши стесняться раздеваться. Господи, мы это делаем за деньги! Кусок вашего варианта обработчика onChange тоже бы кардинально сократил время поиска несуразицы.
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 06:23 01-09-2015
lodyr



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

Цитата:
Заглянув в MSDN

Я же сказал
Цитата:
прочитать MSDN, не знаю что помешало..усталость, наверное.


Цитата:
 программиста стесняться показывать код,

Да никто не стесняется. Не упрощайте. Выдрать  кусок из большого проекта со сторонними компонентами, где всё взаимосвязано, толку никакого.
А вот отдельный тестовый пример со всеми нужными "фишками" я уже почти подготовил. Выложу сюда, как только, так сразу.
 
P.S. отвечаю сегодня, т.к. вчера пытался с ходу реализовать ваши советы. Пока толку никакого. Система не реагирует на смену привода. Чтобы отсечь всё лишнее, я и делаю отдельный работающий тестовый модуль. Так что ждите. Выложу!
 
 
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 19:47 01-09-2015
protoror



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lodyr
вот это правильный подход, обычно лень, но когда ничего не помогает, остается только это
Всего записей: 494 | Зарегистр. 23-11-2009 | Отправлено: 19:57 01-09-2015
Zlodeyz



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите скачать или может у кого есть утилита Jawa2op для XE8  
ссылка http://cc.embarcadero.com/item/30326
Всего записей: 189 | Зарегистр. 18-11-2006 | Отправлено: 16:40 02-09-2015 | Исправлено: Zlodeyz, 16:40 02-09-2015
lodyr



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Выкладываю рабочий тестовый пример тут. Правда так и не удалось в примере привязать  кнопку "Eject" к конкретному приводу. Она срабатывает в любом случае на физический привод, даже если выбран виртуальный. Все замечания и поправки приветствуются. Для проверки работы надо иметь минимум 2 CD привода, можно виртуальных. В один из них вставьте/смонтируйте AudioCD.
В примере используются 2 сторонних компонента, в модуле я указал в комментах.
 
 Ошибка была в том, что когда во время работы программы запускался виртуальный или USB привод, надо было делать синхронизацию списка ComboBox и DeviceID всех открытых MCI device, чтобы правильно обратиться к нужному приводу.
Выражаю признательность KDPoid за участие и дельные советы. Ещё бы с "Eject" разобраться
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 02:15 04-09-2015 | Исправлено: lodyr, 04:43 04-09-2015
KDPoid



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lodyr, да ладно вам,
"Всё что человек делает, он делает для себя."
 
У меня Win8.1 Физических приводов нет до горизонта.
Права админа.
Монтирую iso
Вижу в проводнике виртуальный CD.  
Захожу на него - всё нормально. Могу даже оставить привод открытым в проводнике.  
Создаю приложение, в котором обработчик кнопки:

Код:
 
procedure TForm6.cxButton1Click(Sender: TObject);
var
  OP: MCI_OPEN_PARMS;
  PP: TMCI_PLAY_PARMS;
begin
  OP.lpstrDeviceType := 'CDAudio';
  OP.lpstrElementName := 'D:\';  
  if mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, LongInt(@OP)) = 0 then
  begin
    mciSendCommand(OP.wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
    mciSendCommand(OP.wDeviceID, MCI_CLOSE, 0, 0);
  end
     else
  begin
     // Не смогли получить ID
  end;
end;
 

Запускаю, нажимаю кнопку.
Проводник закрылся.  
Открываю снова. Привод D: присутствует, но образа в нём нет.
При попытке зайти, пишет "Вставьте диск в устройство".
 
Так что у меня на виртуальных приводах извлечение работает.  
Значит, скорее всего, у вас какая-то путанница с ID...  
Попробую постучать ваш пример, когда установлю MiTeC SysInfo Component Suite
Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 07:56 04-09-2015 | Исправлено: KDPoid, 07:59 04-09-2015
lodyr



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

Цитата:
извлечение работает.  

У меня тоже, с одним приводом, но речь то о
 
Цитата:
Для проверки работы надо иметь минимум 2 CD привода, можно виртуальных

Вот тогда и глюки. Отрабатывает первый по счёту, а не тот, который мы хотим, указывая нужный ID.
Цитата:
у вас какая-то путанница с ID.

Вот в этом собака и зарыта, а что не так, отловить не могу.

Цитата:
Попробую постучать ваш пример, когда установлю MiTeC SysInfo Component Suite

Тогда для чистоты эксперимента установите и второй компонент из TMS.
 
P.S. мне самому что-то не нравится подход с определением подключения/отключения приводов в реальном времени. Алгоритм тяжеловесный, появляются дополнительные проблемы. Глюки неизбежны. Если переделать тестовый пример так, чтобы прога видела только те приводы, какие были в системе на момент запуска и не отслеживать их в реальном времени, было бы проще контролировать ситуацию со списком ID и списком ComboBox. Правда тогда непонятно, как быть со списком приводов в ComboBox, если во время работы мы отсоединили/размонтировали привод? В списке ComboBox он то остался... и при его выборе.....всё круг замкнулся. Есть какие-нибудь мысли на этот счёт?
 
Добавлено:
Всё гениальное просто! Обдумал и нашёл решение.
Отказаться от списка приводов ComboBox вообще. Оставить только Edit для информации с указанием выбранного привода.
 При запуске прога определяет все приводы типа CD и DVD. Если больше одного, то всплывает новое окно, в котором предлагается выбрать привод для работы. Попытка выбрать привод с информацией не AudioCD блокируется.
 И дальше работать только с одним ID MCI device!
Всего записей: 710 | Зарегистр. 06-02-2005 | Отправлено: 13:13 04-09-2015
   

Страницы: 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 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по компонентам для Delphi, C++ Builder разных версий
ShIvADeSt (26-06-2017 02:39): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=14667


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru