Автор | Сообщение |
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 12.05.09 16:53. Заголовок: Порт
Есть некая периферийное устройство (принтер, сканер ..) Можно ли опросив порт, на котором прописано это устройство, понять - оно отсутствует или просто выключено. Или же это возможно только при включенном устройстве ?
|
|
|
Ответов - 3
[только новые]
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 12.05.09 20:17. Заголовок: fil пишет: понять -..
fil пишет: цитата: | понять - оно отсутствует или просто выключено |
| Посмотри класс TdosPrn . К примеру ... .................... If ::lPrnBusy .and. ::lPaperOut .and. ! ::lPrnSelect ::LastError := 28 // "Printer out of paper" Elseif ::lPrnBusy .and. ! ::lPaperOut ::LastError := 29 // "Write fault" (Printer off line or not powered on) Else ::LastError := 6 // "Invalid handle" Endif что-то так: aPrinter:=GetPrinters() IF EMPTY(aPrinter) ? '----- No Printers installed' ELSE set printer to (GetDefaultPrinter()) ? SET(_SET_PRINTER) ? SET(_SET_PRINTFILE) set console off set printer on ? 'Default Printer' ?'----------------' ? GetDefaultPrinter() ? ? 'Printers Available' ?'-------------------' FOR x:= 1 TO LEN(aPrinter) ? aPrinter[x] NEXT x aPrinter:= GetPrinters(.T.) ? 'Printers and Ports' ?'-------------------' FOR x:= 1 TO LEN(aPrinter) ? aPrinter[x,1]+' on '+aPrinter[x,2] NEXT x Ну и т.д.
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 13.05.09 18:31. Заголовок: Спасибо, MMK ! Через..
Спасибо, MMK ! Через TdosPrn принтера определяются по контексту довольно уверенно
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 14.05.09 00:53. Заголовок: Можно ли определить ..
Можно ли определить тип подключенного монитора (ЖК или трубка) ?
|
|
|
|