Форум » FiveWin » Порт » Ответить
Порт
fil: Есть некая периферийное устройство (принтер, сканер ..) Можно ли опросив порт, на котором прописано это устройство, понять - оно отсутствует или просто выключено. Или же это возможно только при включенном устройстве ?
Ответов - 3
mmk: 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 Ну и т.д.
fil: Спасибо, MMK ! Через TdosPrn принтера определяются по контексту довольно уверенно
fil: Можно ли определить тип подключенного монитора (ЖК или трубка) ?
полная версия страницы