Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как проверить наличие бумаги в USB-принтере? [D6, WinXP]

romick © (2006-11-01 09:25:00)
Есть USB-принтер. Необходимо программно проверить наличие в нем бумаги. Подскажите плз. как мне это сделать в WinXP-pro.

Anatoly Podgoretsky (2006-11-08 14:29:00) [1]
Твое желание выполнено.

romick (2006-11-08 05:20:00) [2]

> Ну и ладно, спулер дальше сам разберется.

Если не чего посоветовать - не советуйте ничего вообще. Да и посты читать не мешало-бы. Мне нужно мониторить кучу принтеров, причем принеры ВСЕ самые что есть РЕАЛЬНЫЕ (килограмм по 5 каждый!) и мне совсем не надо, чтоб с бумагой разбирался спулер или кто-то там еще!
Virgo_Style вообще "отличился", молодец!

Anatoly Podgoretsky (2006-11-04 11:23:00) [3]
> Дмитрий Белькевич (04.11.2006 2:47:05) [5]

Да и принтер физический тоже не обязателен, а откуда в виртуальном бумага?

Дмитрий Белькевич (2006-11-04 02:47:00) [4]
>При отправке документа на печать, документ становится в очередь печати и весит там до тех пор, пока в принтер не сунут бумагу. При этом программа завершается успешно.

Ну и ладно, спулер дальше сам разберется.

romick (2006-11-03 14:00:00) [5]
Пробовал вот так:
procedure TForm1.btnPrintInfoClick(Sender: TObject);
var
hPrinter: THandle;
info: array[0..10000] of PRINTER_INFO_6;
count: PDWORD;
i: integer;

begin
if OpenPrinter(PChar(printerName), hPrinter, nil) then
if GetPrinter(hPrinter, 6, @info, length(info), count) then
begin
memo1.Clear;
for i:=0 to count^-1 do
memo1.Lines.Add('Status: '+IntToStr(info[i].dwStatus));
end
else
showMessage('Failg with message : '+SysErrorMessage(GetLastError))
else
showMessage('Failg with message : '+SysErrorMessage(GetLastError))
end;

Но статус (dwStatus) всегда равен 0.

Virgo_Style (2006-11-02 21:30:00) [6]
Romick © (02.11.06 15:33) [2]
"а у нас в квартире газ" (c)

Romick (2006-11-02 15:33:00) [7]
При отправке документа на печать, документ становится в очередь печати и весит там до тех пор, пока в принтер не сунут бумагу. При этом программа завершается успешно.

Дмитрий Белькевич (2006-11-02 12:48:00) [8]
Так же, как и в неusb, попробовать что-нить напечатать - если вернется папер аут значит собсно...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »