윈도우 98과 2000 에서 기본프린터의 상태를 체크하기 위해서 다음과 같이 했는데,

pPrinterInfo.status 값이 항상 0 으로 나옵니다.



프린터의 등록정보에서 "인쇄일시 중지","인쇄 잠깐 멈춤" 을 하면 status 값이 1이 나옵니다.(윈98/윈2000 동일)



윈98에서의 직접 프린터 인터럽트를 통해 확인하는 tip이 있었지만(이것도 잘 작동되지 않음), 윈2000과 공용으로 사용하고 싶어 이렇게 API 를 사용해서 만들려고 했는데 되질 않터군요. 실제 인쇄를 하면서 체크해야 되는 건지도.....



윈2000 과 윈98에서 공용으로 프린터의 상태를 체크할 수 있는 방법에 대해서 조언을 해 주시거나 아래 소스를 수정해 주셨으면 합니다.



감사합니다.





var

device : array [0..CCHDEVICENAME -1 ] of char;

driver : array [0..(MAX_PATH)] of char;

port : array [0..32] of char;

handle : Thandle;

hmode : Thandle;

CByteNeeded :integer;

CByteUsed : integer;

pPrinterInfo : ^Tprinterinfo2;

statstr : string;

begin

handle := 0;



printer.printerindex := -1;

printer.GetPrinter(device, driver, port, hmode);



if openprinter(device, handle, nil) = false then

exit;



//cByteNeeded 가져오기

if Getprinter(Handle, 2, nil, 0, addr(CByteNeeded)) = false then

if getlasterror() <> ERROR_INSUFFICIENT_BUFFER then

exit;



Getmem( pPrinterInfo, CByteneeded);

//프린터의 정보가져오기

if Getprinter( handle, 2, pPrinterInfo, cByteNeeded, addr(CByteUsed)) = false then

if getlasterror() <> ERROR_INSUFFICIENT_BUFFER then begin

Freemem(pPrinterInfo);

Exit;

end;



//pPrinterInfo 에 현재 프린터의 상태가 넘어옵니다.

//pPrinterInfo.status에 현재 프린터의 상태값이 옵니다.

//status값은 아래값들을 참조하시고요

// 더자세한 사항은 win32.hlp에서 printer_info_2를 참고하시면 될겁니다.



//이부분에 pPrinterInfo.status를 check하는 부분이 들어가면 되겠지요



// showmessage(pPrinterInfo.pPrinterName+' '+inttostr(pPrinterInfo.AveragePPM));



case pPrinterInfo.Status of

PRINTER_STATUS_BUSY :

statstr := 'PRINTER_STATUS_BUSY';

PRINTER_STATUS_DOOR_OPEN :

statstr := 'PRINTER_STATUS_DOOR_OPEN';

PRINTER_STATUS_ERROR :

statstr := 'PRINTER_STATUS_ERROR';

PRINTER_STATUS_INITIALIZING :

statstr := 'PRINTER_STATUS_INITIALIZING';

PRINTER_STATUS_IO_ACTIVE :

statstr := 'PRINTER_STATUS_IO_ACTIVE';

PRINTER_STATUS_MANUAL_FEED :

statstr := 'PRINTER_STATUS_MANUAL_FEED';

PRINTER_STATUS_NO_TONER :

statstr := 'PRINTER_STATUS_NO_TONER';

PRINTER_STATUS_NOT_AVAILABLE :

statstr := 'PRINTER_STATUS_NOT_AVAILABLE';

PRINTER_STATUS_OFFLINE :

statstr := 'PRINTER_STATUS_OFFLINE';

PRINTER_STATUS_OUT_OF_MEMORY :

statstr := 'PRINTER_STATUS_OUT_OF_MEMORY';

PRINTER_STATUS_OUTPUT_BIN_FULL :

statstr := 'PRINTER_STATUS_OUTPUT_BIN_FULL';

PRINTER_STATUS_PAGE_PUNT :

statstr := 'PRINTER_STATUS_PAGE_PUNT';

PRINTER_STATUS_PAPER_JAM :

statstr := 'PRINTER_STATUS_PAPER_JAM';

PRINTER_STATUS_PAPER_OUT :

statstr := 'PRINTER_STATUS_PAPER_OUT';

PRINTER_STATUS_PAPER_PROBLEM :

statstr := 'PRINTER_STATUS_PAPER_PROBLEM';

PRINTER_STATUS_PAUSED :

statstr := 'PRINTER_STATUS_PAUSED';

PRINTER_STATUS_PENDING_DELETION :

statstr := 'PRINTER_STATUS_PENDING_DELETION';

PRINTER_STATUS_PRINTING :

statstr := 'PRINTER_STATUS_PRINTING';

PRINTER_STATUS_PROCESSING :

statstr := 'PRINTER_STATUS_PROCESSING';

PRINTER_STATUS_TONER_LOW :

statstr := 'PRINTER_STATUS_TONER_LOW';

// PRINTER_STATUS_UNAVAILABLE :

// statstr := 'PRINTER_STATUS_UNAVAILABLE';

PRINTER_STATUS_USER_INTERVENTION :

statstr := 'PRINTER_STATUS_USER_INTERVENTION';

PRINTER_STATUS_WAITING :

statstr := 'PRINTER_STATUS_WAITING';

PRINTER_STATUS_WARMING_UP :

statstr := 'PRINTER_STATUS_WARMING_UP';

PRINTER_STATUS_SERVER_UNKNOWN :

statstr := 'PRINTER_STATUS_SERVER_UNKNOWN';

PRINTER_STATUS_POWER_SAVE :

statstr := 'PRINTER_STATUS_POWER_SAVE';

else

statstr := 'PRINTER_STATUS_UNKWON';

end;



showmessage(statstr);



Freemem(pPrinterInfo);