ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Дисковод
12 сообщений из 12, страница 1 из 1
Дисковод
    #37244852
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Как открыть дисковод из кода?
...
Рейтинг: 0 / 0
04.05.2011, 10:24
| Ответить | Цитировать | Написать  
Дисковод
    #37244896
Локшин Марк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Локшин Марк
Участник
RiskaКак открыть дисковод из кода?
Что имеется ввиду?
...
Рейтинг: 0 / 0
04.05.2011, 10:45
| Ответить | Цитировать | Написать  
Дисковод
    #37244976
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
RiskaКак открыть дисковод из кода?
Может это поможет.
...
Рейтинг: 0 / 0
04.05.2011, 11:14
| Ответить | Цитировать | Написать  
Дисковод
    #37244983
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Riska ,
можно конечно и через DeviceIoControl, но это громоздко и сложнее, как мне кажется.
...
Рейтинг: 0 / 0
04.05.2011, 11:17
| Ответить | Цитировать | Написать  
Дисковод
    #37245127
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
AIS,
Код: plaintext
FUNCTION long mciSendString (string lpstrCommand, string lpstrReturnString, long uReturnLength, long zerro) LIBRARY "winmm.dll"
Код: plaintext
mciSendString((LPSTR)"open ding.wav type waveaudio alias snd wait", (LPSTR)szBuf,  256 , NULL);
Как это должно выглядеть в РВ?
...
Рейтинг: 0 / 0
04.05.2011, 12:17
| Ответить | Цитировать | Написать  
Дисковод
    #37246185
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
RiskaAIS,
Код: plaintext
FUNCTION long mciSendString (string lpstrCommand, string lpstrReturnString, long uReturnLength, long zerro) LIBRARY "winmm.dll"
Код: plaintext
mciSendString((LPSTR)"open ding.wav type waveaudio alias snd wait", (LPSTR)szBuf,  256 , NULL);
Как это должно выглядеть в РВ?
если обобщить, то всё выглядит одинаково, только меняется строка команды, т.е. так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
/*Function long mciSendStringA( string lpstrCommand, &
	ref string lpstrReturnString, long uReturnLength, &
	long hwndCallback ) Library "winmm.dll" alias for "mciSendStringA;Ansi"*/
String ls_Command, ls_Dummy
Long ll_Len

ls_Command = "здесь_текст_комманды"
ls_Dummy = Space(  255  )
ll_Len =  255 

this.mciSendStringA( ls_Command , ls_Dummy, ll_Len,  0  )
P.S. у меня PB10.5
В прикрепленном архиве чей-то старый примерчик с разными коммандами.
...
Рейтинг: 0 / 0
04.05.2011, 19:37
| Ответить | Цитировать | Написать  
Дисковод
    #37246687
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
AIS,
У меня как раз проблемы с " здесь_текст_комманды "
Вот это не работает:
Код: plaintext
mciSendStringA( "set cd door open" , ls_Dummy,  0 ,  0  )
Ошибки нет, но просто ничего не происходит.
...
Рейтинг: 0 / 0
05.05.2011, 10:17
| Ответить | Цитировать | Написать  
Дисковод
    #37246749
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
05.05.2011 11:17, Riska пишет:

> mciSendStringA("set cd door open" , ls_Dummy,*0*,*0* )
>
> Ошибки нет, но просто ничего не происходит.

В том и дело, что ошибка есть, только ты её поленился посмотреть ;). У
меня работает так:

mciSendStringA('set cdaudio door open', '', 0, 0)
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
05.05.2011, 10:39
| Ответить | Цитировать | Написать  
Дисковод
    #37247293
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Dim2000,
Все равно не работает.
Код: plaintext
1.
2.
3.
4.
5.
6.
Function long mciSendStringA( string lpstrCommand, &
	ref string lpstrReturnString, long uReturnLength, &
	long hwndCallback ) Library "winmm.dll"

String 	ls_Command = 'set cdaudio door open', ls_Dummy = ''
Long 		ll_Dummy, ll, zz
zz = mciSendStringA(ls_Command , ls_Dummy, ll_Dummy, ll)
return: zz = 292
...
Рейтинг: 0 / 0
05.05.2011, 13:53
| Ответить | Цитировать | Написать  
Дисковод
    #37247395
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
05.05.2011 14:53, Riska пишет:

> Все равно не работает.

Я вообще-то проверял ;). Но у меня PB9.
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
05.05.2011, 14:21
| Ответить | Цитировать | Написать  
Дисковод
    #37248682
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
RiskaAIS,
У меня как раз проблемы с " здесь_текст_комманды "
Вот это не работает:
Код: plaintext
mciSendStringA( "set cd door open" , ls_Dummy,  0 ,  0  )
Ошибки нет, но просто ничего не происходит.
Даже не знаю, что Вам сказать. У меня РВ10.5 и с этим старым примером после миграции, всё работает, при чем без всяких исправлений.
Вот например, есть событие "eject" в объекте "nc-cdcontrol", которое Вас интересует:
Код: plaintext
1.
2.
String ls_Command = "set cd door open", ls_Dummy
Long ll_dummy
this.mciSendStringA( ls_Command, ls_dummy, ll_Dummy,  0  )
И что , это не работает?

Может у Вас нет "winmm.dll"? (в чем я лично сомневаюсь)
Если Вас интересует только "открыть/закрыть" CD-привод, то могу конечно предложить 100% вариант через "DeviceIoControl", но дальнейшие манипуляции будут несравненно сложнее (хотя Вы уже сможете взаимодействовать с устройством на самом низком уровне, но с другой стороны - "оно Вам надо").

Во как бывает. :))
...
Рейтинг: 0 / 0
06.05.2011, 02:42
| Ответить | Цитировать | Написать  
Дисковод
    #37248685
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Riska ,
а вообще по этой технологии, из приведённой ссылки, я пробывал почти все примеры, и они все работали.
Но увы мне этого оказалось мало. ;)
...
Рейтинг: 0 / 0
06.05.2011, 02:53
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Дисковод
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=15&fpage=20&tid=1335729]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 12ms
total:  160ms
созд. / загр.: 160ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]