Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Узнать, поддерживает ли принтер PostScript

Delphi , ОС и Железо , Принтеры и Печать

Узнать, поддерживает ли принтер PostScript

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  That is really difficult do to if it has to work on all Windows 
  platforms. The best way (no kidding) may be to ask the user which 
  printer to use. What platforms do you need to support? If it is only 
  Win2K (and perhaps XP) one may be able to use this (i have no 
  postscript-enabled printer around to see if it works!): 
}

 uses
   WinSpool, Printers;

 {: Check if the currently selected printer supports postscript. 
  Only applicable on Win2K/XP! }

 function PrinterSupportsPostscript: Boolean;
 const
   POSTSCRIPT_PASSTHROUGH = 4115;
   POSTSCRIPT_IDENTIFY = 4117;

   Escapes: array[0..2] of Cardinal =
   (POSTSCRIPT_DATA, POSTSCRIPT_IDENTIFY, POSTSCRIPT_PASSTHROUGH);
 var
   res: Integer;
   i: Integer;
 begin
   Result := false;
   for i := Low(Escapes) to High(Escapes) do begin
     res := ExtEscape(printer.Handle,
       QUERYESCSUPPORT,
       sizeof(Escapes[0]),
       @Escapes[i], 0, nil);
     if res <> 0 then begin
       Result := true;
       Break;
     end;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 const
   boolstr: array[Boolean] of string = (' not', '');
 var
   i: Integer;
   S: string;
 begin
   for i := 0 to Printer.Printers.Count - 1 do begin
     Printer.PrinterIndex := i;
     memo1.Lines.add(
       Format('Printer %s does%s support Postscript',
       [printer.printers[printer.printerindex],
       boolstr[PrinterSupportsPostscript]]));
   end;
 end;

Статья Узнать, поддерживает ли принтер PostScript раздела ОС и Железо Принтеры и Печать может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Принтеры и Печать ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.02.2020 12:29:20/0.011039018630981/0