Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Принтер(вкл/выкл), проверка на вкл/выкл 
V
    Опции темы
bip
Дата 6.4.2010, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.3.2007

Репутация: нет
Всего: нет
Добрый Вечер! 

Подскажите как проверить включен принтер или нет... 

Задумка вообще такая - если включен то ничего не происходит, а если выключен, то в динамиках некий голос вещает-"ВКЛЮЧИ ПРИНТЕР ЮЗЕР!!!"

СОБСТВЕННО НЕ ЗНАЮ С ЧЕГО НАЧАТЬ И ГДЕ КОПАТЬ.

я предполагаю, что сие есть взаимодействие с драйвером принтера.... т.е. он должен возвращать состояние..

Это сообщение отредактировал(а) bip - 6.4.2010, 22:41
PM MAIL ICQ   Вверх
CompWorm
Дата 6.4.2010, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31
инициализацию принтера в блок try . если ошибка -> проиграть звук...


--------------------
user posted image

>>> Indie Games Club! <<<
PM MAIL   Вверх
bip
Дата 6.4.2010, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.3.2007

Репутация: нет
Всего: нет
нееее.... это банально-"инициализацию принтера в блок try . если ошибка -> проиграть звук... "

вот  содрал и собрал smile) кое-чего.... ЗАРАЗА!!!! RESULT всегда 0!(принтер HP DeskJet F2280)

Код

procedure TForm1.Button3Click(Sender: TObject);
var

   PrinterInfo : TPrinterInfo2 ;
   Result:Boolean;
   pDevice : pChar;
  pDriver : pChar;
  pPort   : pChar;
  hDMode : THandle;
  hDeviceMode:THandle;
begin
  if PrintDialog1.Execute then begin
    GetMem(pDevice, cchDeviceName);
    GetMem(pDriver, MAX_PATH);
    GetMem(pPort, MAX_PATH);
    Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
     if lStrLen(pPort) = 0 then begin
      GetProfileString('Devices', pDevice, '', pPort, MAX_PATH);
      lStrCpy(pPort,  @pPort[lStrLen(pPort)+2]);
    end;
    end;
     Result:= GetPrinterData(StrPas(pDevice),PrinterInfo) ;
     if not Result then Exit ;

   [color=red]  Result:[/color]= (PrinterInfo.Status and  (PRINTER_STATUS_ERROR
                      or PRINTER_STATUS_PAPER_PROBLEM
                      or PRINTER_STATUS_OFFLINE
                      or PRINTER_STATUS_NOT_AVAILABLE
                      or PRINTER_STATUS_NO_TONER
                      or PRINTER_STATUS_PAUSED)
                > 0);
     Memo2.Lines.Add(BoolToStr(Result));
end;


Это сообщение отредактировал(а) bip - 6.4.2010, 23:54
PM MAIL ICQ   Вверх
Keeper89
Дата 7.4.2010, 00:09 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Код

// NOTE : include Printers and WinSpool units

procedure TForm1.Button6Click(Sender: TObject);
var
    pcbNeeded: DWord;
    prn: THandle;
    x: array[0..255] of char;
    stat: Pprinterinfo2;
begin
    getmem(stat, 1000);
    try
        StrPCopy(x, printer.printers[0]);
        if OpenPrinter(x, prn, nil) then
            if GetPrinter(
                prn,
                2,      // version of printer info data structure
                stat,      // pointer to array of bytes that receives printer info. structure
                1000,      // size, in bytes, of array of bytes
                @pcbNeeded// pointer to variable with count of bytes retrieved (or required)
                ) then
                case stat.status of
                    PRINTER_STATUS_BUSY:
                        ShowMessage('The printer is busy.');
                    PRINTER_STATUS_DOOR_OPEN:
                        ShowMessage('The printer door is open.');
                    PRINTER_STATUS_ERROR:
                        ShowMessage('The printer is in an error state.');
                    PRINTER_STATUS_INITIALIZING:
                        ShowMessage('The printer is initializing.');
                    PRINTER_STATUS_IO_ACTIVE:
                        ShowMessage('The printer is in an active input/output state.');
                    PRINTER_STATUS_MANUAL_FEED:
                        ShowMessage('The printer is in a manual feed state.');
                    PRINTER_STATUS_NO_TONER:
                        ShowMessage('The printer is out of toner.');
                    PRINTER_STATUS_NOT_AVAILABLE:
                        ShowMessage('The printer is not available for printing.');
                    PRINTER_STATUS_OFFLINE:
                        ShowMessage('The printer is offline.');
                    PRINTER_STATUS_OUT_OF_MEMORY:
                        ShowMessage('The printer has run out of memory.');
                    PRINTER_STATUS_OUTPUT_BIN_FULL:
                        ShowMessage('The printers output bin is full.');
                    PRINTER_STATUS_PAGE_PUNT:
                        ShowMessage('The printer cannot print the current page.');
                    PRINTER_STATUS_PAPER_JAM:
                        ShowMessage('Paper is jammed in the printer');
                    PRINTER_STATUS_PAPER_OUT:
                        ShowMessage('The printer is out of paper.');
                    PRINTER_STATUS_PAPER_PROBLEM:
                        ShowMessage('The printer has a paper problem.');
                    PRINTER_STATUS_PAUSED:
                        ShowMessage('The printer is paused.');
                    PRINTER_STATUS_PENDING_DELETION:
                        ShowMessage('The printer is deleting a print job.');
                    PRINTER_STATUS_PRINTING:
                        ShowMessage('The printer is printing.');
                    PRINTER_STATUS_PROCESSING:
                        ShowMessage('The printer is processing a print job.');
                    PRINTER_STATUS_TONER_LOW:
                        ShowMessage('The printer is low on toner.');
                    PRINTER_STATUS_USER_INTERVENTION:
                        ShowMessage('The user needs to do something to the printer.');
                    PRINTER_STATUS_WAITING:
                        ShowMessage('The printer is waiting.');
                    PRINTER_STATUS_WARMING_UP:
                        ShowMessage('The printer is warming up.');
                    end
                    else
                        caption := inttostr(getlasterror);
        ClosePrinter(prn);
    finally
        if stat <> nil then
            freemem(stat, 1000);
    end;
end;

http://www.experts-exchange.com/Programmin...Q_10038375.html

Это сообщение отредактировал(а) Keeper89 - 7.4.2010, 00:26


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
CompWorm
Дата 7.4.2010, 00:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Допеределыватель
***


Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31
Keeper89, шикаррно!  smile 


--------------------
user posted image

>>> Indie Games Club! <<<
PM MAIL   Вверх
bip
Дата 7.4.2010, 00:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.3.2007

Репутация: нет
Всего: нет
Keeper89, да круто, СПАСИБО!!! буду разбираться...

Это сообщение отредактировал(а) bip - 7.4.2010, 00:36
PM MAIL ICQ   Вверх
bip
Дата 7.4.2010, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.3.2007

Репутация: нет
Всего: нет
Нашёл за что можно зацепиться.... Вот это поле меняется - ((TPrinterInfo2A(Buffer^).Attributes) при включении и отключении принтера.  2624/3648 - это под вистой(соответственно вкл/выкл)
2632/3656 -под Хр.... А статус всегда 0 - вроде, как оказалось так и должно быть smile...

если есть ещё варианты, напишите плиз...
Код

if ((TPrinterInfo2A(Buffer^).Attributes)=2624  )then begin MG/C?essageDlg('Включен!!!',mtWarning, mbOKCancel,MB_OK);
 PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
  end;
  if ((TPrinterInfo2A(Buffer^).Attributes)=3648 ) then begin MessageDlg('Отключен!!!',mtError, mbOKCancel,MB_OK);
 PlaySound('SND2', 0, SND_RESOURCE or SND_ASYNC);
    end;
    if ((TPrinterInfo2A(Buffer^).Attributes)=2632) then begin MessageDlg('Включен!!!',mtWarning, mbOKCancel,MB_OK);
 PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
  end;
     if ((TPrinterInfo2A(Buffer^).Attributes)=3656)  then begin MessageDlg('Отключен!!!',mtError, mbOKCancel,MB_OK);
 PlaySound('SND2', 0, SND_RESOURCE or SND_ASYNC);
 end;




Это сообщение отредактировал(а) bip - 7.4.2010, 19:34
PM MAIL ICQ   Вверх
Keeper89
Дата 7.4.2010, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
А зачем смотреть Attributes если нам нужен Status?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
bip
Дата 8.4.2010, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.3.2007

Репутация: нет
Всего: нет
Цитата(Keeper89 @ 7.4.2010,  22:43)
А зачем смотреть Attributes если нам нужен Status?

Как я уже писал - status всегда в нуле и не меняется при смене состояния принтера, в отличии от atributes.
Вот я и решил привязать к atributes проверку собственно... проверил на хр, висте и семёрке - работает, но.....


1. КТО ДАСТ ОТВЕТ ПОЧЕМУ НЕ МЕНЯЕТСЯ STATUS?
2. Есть ли другие варианты проверки?
3. Где про это толком написано?
 п.с. естественно принтер не лпт, а усб smile

Это сообщение отредактировал(а) bip - 8.4.2010, 00:17
PM MAIL ICQ   Вверх
Keeper89
Дата 8.4.2010, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Вот тут все написано ;)


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
bip
Дата 8.4.2010, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 15.3.2007

Репутация: нет
Всего: нет
так... ещё раз спасибо Keeper89!
тема закрыта.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0863 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.