powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Печать в принтеры подключннные в СОМ порт
6 сообщений из 6, страница 1 из 1
Печать в принтеры подключннные в СОМ порт
    #38283194
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ
есть принтера которые работают через СОМ интерфейс
и очень важно чтобы если принтер выключен или закончилась термо бумага
печать не "пропала" в никуда.
Видел как это реализовано в RKeepere под дос
но как такого добиться под виндой при печати на прямую в ком порт?
Вариант с текстовым файлом не очень подходит.
Наверняка есть какие-то возможности в этом плане?
Может есть возможность проверки отработанной команды принтером типа если все ок - или нет , тогда нужно повторить печать?...
всем спасибо.
VFP 9
...
Рейтинг: 0 / 0
Печать в принтеры подключннные в СОМ порт
    #38283265
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй использовать виндосовские библиотеки: Win32_Printer
Через нее можешь узнать состояние принтера, вот пример, просто тупо выдрал из проги у себя.

lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_Printer")
FOR Each loSWbemObject In lcolSWbemObjectSet
? loSWbemObject.Name
? loSWbemObject.Caption
? loSWbemObject.Default
? loSWbemObject.DeviceID
? loSWbemObject.DriverName
? loSWbemObject.Hidden
? loSWbemObject.Local
? loSWbemObject.Network
? loSWbemObject.PortName
? loSWbemObject.PrinterStatus
? loSWbemObject.ShareName
? loSWbemObject.Status
? loSWbemObject.SystemName
? loSWbemObject.Comment
NEXT
RELEASE loSWbemServices
...
Рейтинг: 0 / 0
Печать в принтеры подключннные в СОМ порт
    #38284309
Valerii
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дед ЕвгенийПопробуй использовать виндосовские библиотеки: Win32_Printer
Через нее можешь узнать состояние принтера, вот пример, просто тупо выдрал из проги у себя.

lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_Printer")
FOR Each loSWbemObject In lcolSWbemObjectSet
? loSWbemObject.Name
? loSWbemObject.Caption
? loSWbemObject.Default
? loSWbemObject.DeviceID
? loSWbemObject.DriverName
? loSWbemObject.Hidden
? loSWbemObject.Local
? loSWbemObject.Network
? loSWbemObject.PortName
? loSWbemObject.PrinterStatus
? loSWbemObject.ShareName
? loSWbemObject.Status
? loSWbemObject.SystemName
? loSWbemObject.Comment
NEXT
RELEASE loSWbemServices


loSWbemServices.InstancesOf
это что за объект
посмотри что выше у тебя в коде?
...
Рейтинг: 0 / 0
Печать в принтеры подключннные в СОМ порт
    #38284648
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если повыше, то у меня создается объект, но под разные случаи этот код может быть по разному.

ON ERROR ViewDomenIP.ErrorPrintScan(ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), YesError)
loSWbemServices = GetObject("winmgmts://"+lcKompName+"\ROOT\cimv2")
IF TYPE(loSWbemServices) = "O" .AND. YesError = .T.
lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_Printer")
**********
Текст выше....
**********
ENDIF
ON ERROR
...
Рейтинг: 0 / 0
Печать в принтеры подключннные в СОМ порт
    #38284649
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lcKompName - Имя компьютера в домене.
...
Рейтинг: 0 / 0
Печать в принтеры подключннные в СОМ порт
    #38285167
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот еще интересный пример получения свойств принтера и управления им: http://forum.foxclub.ru/read.php?29,585814
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Печать в принтеры подключннные в СОМ порт
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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