Отправлено: 12.05.09 16:53. Заголовок: Порт

Есть некая периферийное устройство (принтер, сканер ..) Можно ли опросив порт, на котором прописано это устройство, понять - оно отсутствует или просто выключено. Или же это возможно только при включенном устройстве ?

 Отправлено: 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

Ну и т.д.

 Отправлено: 13.05.09 18:31. Заголовок: Спасибо, MMK ! Через..

Спасибо, MMK ! Через TdosPrn принтера определяются по контексту довольно уверенно

 Отправлено: 14.05.09 00:53. Заголовок: Можно ли определить ..

Можно ли определить тип подключенного монитора (ЖК или трубка) ?