Как определить состояние принтера

[Coryphaeus]

Добрый день!
Проблема: Есть принтер,подключен через LPT-порт.
Программа должна узнать состояние принтера в данный момент, узнать очередь печати.
Подскажите, пожалуйста, что для этого нужно?инструменты?примерный алгоритм?
Спсибо.
Нужно на Делфе.

[danekne]

Ммм... помнится там был обьект tprinter вроде

[Coryphaeus]

Ммм... помнится там был обьект tprinter вроде

Через него,кажись,состояние принтера нельзя узнать

[danekne]

Вот что намыл:

uses
  Winspool, Printers;
function GetCurrentPrinterHandle: THandle;
var
  Device, Driver, Port: array[0..255] of Char;
  hDeviceMode: THandle;
begin
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  if not OpenPrinter(@Device, Result, nil) then
    RaiseLastWin32Error;
end;
function SavePChar(p: PChar): PChar;
const
  error: PChar = 'Nil';
begin
  if not Assigned(p) then
    Result := error
  else
    Result := p;
end;
procedure TForm1.Button1Click(Sender: TObject);
type
  TJobs = array[0..1000] of JOB_INFO_1;
  PJobs = ^TJobs;
var
  hPrinter: THandle;
  bytesNeeded, numJobs, i: Cardinal;
  pJ: PJobs;
begin
  hPrinter := GetCurrentPrinterHandle;
  try
    EnumJobs(hPrinter, 0, 1000, 1, nil, 0, bytesNeeded,
      numJobs);
    pJ := AllocMem(bytesNeeded);
    if not EnumJobs(hPrinter, 0, 1000, 1, pJ, bytesNeeded,
      bytesNeeded, numJobs) then
      RaiseLastWin32Error;
    memo1.Clear;
    if numJobs = 0 then
      memo1.Lines.Add('No jobs in queue')
    else
      for i := 0 to Pred(numJobs) do
        memo1.Lines.Add(Format('Printer %s, Job %s, Status (%d): %s',
          [SavePChar(pJ^[i].pPrinterName), SavePChar(pJ^[i].pDocument),
          pJ^[i].Status, SavePChar(pJ^[i].pStatus)]));
  finally
    ClosePrinter(hPrinter);
  end;
end;

[Utkin]

Скачай себе DRKB - база данных по Дельфи. Там есть раздел посвященный принтерам.

[Coryphaeus]

Спасибо всем. Буду разбираться

[Alter]

Как получить информацию о заданиях на принтере - http://www.delphisources.ru/pages/fa...ter_tasks.html

Как получить статус принтера - http://www.delphisources.ru/pages/fa...er_status.html

Скачайте DelphiWorld там есть много разных статей(точнее 5005), обо всём.

[Coryphaeus]

Alter, спасибо за ссылки.
Но в программе статуса принтера используется ассемблер. Я так понял что она под Windows XP не пойдет(пробовал уже). Выдает ошибку в строке int 17h;

В ассемблере не силен(