Форум на Исходниках.RU

Перехватывать печать на принтере

DC-AC — Tue, 19 Apr 2011 07:30:02 +0000

DC-AC: Возьмите в драйвере конкретного принтера поставьте галку "Печатать в файл". Получившийся prn анализируйте, исходя из типа принтера. Например, prn-файл при печати драйвером струйных Эпсонов содержит управляющие коды (на двух языках управления принтером) и растровую графику, как правило в формате ESC i r c b nL nH mL mH d1...dk. В виде графики печатается и любой текст (из Word, например). При печати на лазерниках, поддерживающих PCL, есть шанс перехватить текст в явном виде. В .bmp - это вряд ли получится. Пути решения задачи можно прояснить, если знать четкую постановку задачи и список предполагаемых принтеров.

Перехватывать печать на принтере

sorokin.dmitr — Thu, 14 Apr 2011 19:51:27 +0000

sorokin.dmitr: Привет всем!
Мне нужно перехватить данные с принтера и сохранить их в файл (BMP, например), для последующей обработки (данные при этом до принтера доходить не должны)... В каком виде можно эти данные перехватить? В каком формате посылаются данные на принтер? Какие возможны пути решения этой проблемы?

Перехватывать печать на принтере

VahaC — Mon, 14 Jun 2010 15:04:24 +0000

VahaC: Я думаю что программисты тоже не знают что вам делать с этими файлами

Перехватывать печать на принтере

reflexible — Mon, 14 Jun 2010 14:00:53 +0000

reflexible: Здрастуйте!!! У меня такая же проблема,мне надо паралельно с печатью на принтере сохранять документ в файле (word, excel, bmp). Я не програмист потому попрошу чтобы вы мне подсказали что я с этими файлами должен делать. Заранее благодарен. Жду ответа.

Перехватывать печать на принтере

Pacha — Fri, 12 Mar 2010 11:36:08 +0000

Pacha: Да нет! Я в мирных целях. Для блага пользователя. User хочет сохранять и распечатывать, но не хочет на это всё смотреть.
Типа автоматически.

Перехватывать печать на принтере

aster_x — Fri, 12 Mar 2010 07:47:53 +0000

aster_x:

Цитата Pacha @ 12.03.10, 07:08

тайно от пользователя в свою папку и потом отправить на печать?

Я хаккеров не обучаю.

Хотя ели на печать то ВАРИАНТ2

Перехватывать печать на принтере

Pacha — Fri, 12 Mar 2010 07:08:23 +0000

Pacha: aster_x, еще можно вопросик? А как сохранить документ в Worde тайно от пользователя в свою папку и потом отправить на печать?

Перехватывать печать на принтере

Pacha — Thu, 11 Mar 2010 11:39:04 +0000

Pacha: aster_x! Спасибо огромное! Выручил на все сто!!!

Перехватывать печать на принтере

aster_x — Thu, 11 Mar 2010 10:38:58 +0000

aster_x: Скидаю пример!
Может поможет.

Перехватывать печать на принтере

Pacha — Thu, 11 Mar 2010 07:50:27 +0000

Pacha: aster_x,спасибо за инфу. Я сделал через OLE, но встал вопрос, когда я вызываю окно Сохранить как, то оно появляется. Всё нормально, но когда я пытаюсь вызвать его для этого же документа второй раз, то он у меня просто сохраняется. Не знаешь, почему? На всякий случай скину код



procedure WordSave();

const

  wdPromptUser=$00000002;

var

  ServerIsRunning:Boolean;

  Unknown:IUnknown;

  Result:HResult;

  AppProgId:string;

  App:Variant;

begin

  AppProgId:='Word.Application';

  ServerIsRunning:=False;

  Result:=GetActiveObject(ProgIdToClassId(AppProgId),nil,Unknown);

  if Result=MK_E_UNAVAILABLE then App:=CreateOleObject(AppProgId)

  else

  begin

  App:=GetActiveOleObject(AppProgId);

  ServerIsRunning:=true;

  end;

  App.Visable:=true;

  App.ActiveDocument.Save; //когда здесь пишу App.ActiveDocument.Save(false,wdPromptUser)

                             то выскакивает ошибка на серевере.Использую позднее связывание. 

App.ActiveDocument.PrintOut;



end;

Перехватывать печать на принтере

aster_x — Wed, 10 Mar 2010 14:10:33 +0000

aster_x:

Цитата Pacha @ 10.03.10, 12:11

Документы Word,Excel,Блокнот

Тогда только один выход OLE .

И тебе в ручную прийдется писать алгоритм параллелного сохранения.

Зайди сюда

Перехватывать печать на принтере

Pacha — Wed, 10 Mar 2010 12:11:48 +0000

Pacha: Документы Word,Excel,Блокнот

Перехватывать печать на принтере

aster_x — Wed, 10 Mar 2010 10:47:54 +0000

aster_x:

Цитата Pacha @ 10.03.10, 06:37

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

Если картинку то вариант я тебе дал.

Тебе нужно сохранить картинку? или даные какого формата?

Перехватывать печать на принтере

Pacha — Wed, 10 Mar 2010 06:37:38 +0000

Pacha: Поясню задание: мне надо, чтобы пользователь в одном окне, разделенном на два, мог выбрать принтер для печати и файл, куда сохранить. При нажатии на печать, инфа должна распечататься и сохраниться в файл. Если есь мысли как сделать, буду рад их услышать.

Перехватывать печать на принтере

aster_x — Tue, 09 Mar 2010 14:59:25 +0000

aster_x:

Цитата Pacha @ 09.03.10, 12:43

Надо что-бы печать сохранялась в файле и одновременно печаталось на принтер.

Тебе нужно что бы оно прямо с принтера сохранялось?

Или Что бы то что ты отрправляешь печататься ишло в файл.
Если так то

procedure TForm1.Button1Click(Sender: TObject);

var b:TBitmap;

begin

try

b:=TBitmap.Create;

b.Height:=100;

b.Width:=100;

b.Canvas.Rectangle(10,10,50,50);

b.SaveToFile('c:.bmp');

finally

b.Free;

end;

Только на БИТМАП рисуй то что рисуешь на принтерер.

Перехватывать печать на принтере

Pacha — Tue, 09 Mar 2010 12:43:47 +0000

Pacha: Ошибка как-то сама исчезла. Выдавало ошибку №87. Но сейчас всё нормально. Сейчас назрел новый вопрос. Надо что-бы печать сохранялась в файле и одновременно печаталось на принтер. Не подскажешь куда копать?

Перехватывать печать на принтере

Rouse_ — Fri, 05 Mar 2010 15:13:09 +0000

Rouse_: Извиняюсь, я сейчас редко бываю на форуме. Где именно ошибка? Вот тут?

hChanges := FindFirstPrinterChangeNotification(hPrinter, PRINTER_CHANGE_JOB,

0, @NotifyOption);

if hChanges = INVALID_HANDLE_VALUE then

ShowMessage('Ошибка')

Если да, то оставь как и было, т.е. RaiseLastOSError и смотри что выводится, ну и на основании этих данных смотри где именно ляп.

Перехватывать печать на принтере

Pacha — Thu, 04 Mar 2010 07:23:04 +0000

Pacha: Всем привет! Rouse, сделал всё по-твоему примеру, но у меня почему-то при создании объекта уведомления выдает ошибку. Если не трудно посмотри, пожалуйста, может я что-то пропустил?

unit Otlov;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, WinSpool;

type

TForm1 = class(TForm)

btnStart: TButton;

cbPrinters: TComboBox;

procedure FormCreate(Sender: TObject);

procedure btnStartClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnStartClick(Sender: TObject);

var

hPrinter, hChanges: THandle;

NotifyOption: TPrinterNotifyOptions;

NotifyTipes: TPrinterNotifyOptionsType;

Field: TPrinterNotifyInfoData;

JobInfo, TmpJobInfo: PJobInfo3;

pcReturned, jpcbNeeded, jpcReturned, JobId: DWORD;

pcbNeeded:PDWORD;

j:integer;

pJob:^JOB_INFO_1;

pDocument:Pointer;

begin

if OpenPrinter(PChar(cbPrinters.Items.Strings[cbPrinters.ItemIndex]),

hPrinter, nil) then

try

NotifyTipes.wType := JOB_NOTIFY_TYPE;

NotifyTipes.Reserved0 := 0;

NotifyTipes.Reserved1 := 0;

NotifyTipes.Reserved2 := 0;

NotifyTipes.Count := 1;

NotifyTipes.pFields := @Field;

NotifyOption.Version := 2;

NotifyOption.Flags := PRINTER_CHANGE_ALL;

NotifyOption.Count := 1;

NotifyOption.pTypes := @NotifyTipes;

hChanges := FindFirstPrinterChangeNotification(hPrinter, PRINTER_CHANGE_JOB,

0, @NotifyOption);

if hChanges = INVALID_HANDLE_VALUE then

ShowMessage('Ошибка')

else

try

case WaitForSingleObject(hChanges, INFINITE) of

WAIT_OBJECT_0:

begin

if EnumJobs(hPrinter, 0, 100, 3, JobInfo,

jpcbNeeded, jpcbNeeded, jpcReturned) then

begin

TmpJobInfo := JobInfo;

JobId:=TmpJobInfo^.JobId;

for J := 0 to jpcReturned - 1 do

begin

GetJob(hPrinter,JobId,1,pJob,0,pcbNeeded);

pDocument:=pJob.pDocument;

end;

ShowMessage('Есть изменения');

end;

WAIT_FAILED: RaiseLastOSError;

end;

finally

FindClosePrinterChangeNotification(hChanges);

end;

finally

ClosePrinter(hPrinter);

end

else

ShowMessage('Никак')

end;

procedure TForm1.FormCreate(Sender: TObject);

var

PrintersInfo: array of TPrinterInfo5;

I, Needed, Returned: DWORD;

begin

EnumPrinters(PRINTER_ENUM_LOCAL, nil, 5, nil,

0, Needed, Returned);

SetLength(PrintersInfo, Needed div SizeOf(TPrinterInfo5));

if EnumPrinters(PRINTER_ENUM_LOCAL, nil, 5, PrintersInfo,

Needed, Needed, Returned) then

if Returned > 0 then

begin

for I := 0 to Returned - 1 do

cbPrinters.Items.Add(PrintersInfo[I].pPrinterName);

btnStart.Enabled := True;

cbPrinters.ItemIndex := 1;

end;

Перехватывать печать на принтере

Rouse_ — Sun, 15 Jun 2008 09:17:19 +0000

Rouse_: WM_DEVICECHANGE и там смотри список принтеров...

Перехватывать печать на принтере

Cyr — Mon, 26 May 2008 10:45:33 +0000

Cyr: А как быть если нужно отслеживать появление нового принтера?
Какой handle hPrinter должен быть? Ведь принтера нет :wall:

Перехватывать печать на принтере

Rouse_ — Wed, 20 Apr 2005 06:22:45 +0000

Rouse_: Вот накидал на скорую руку, дальше развивай по аналогии:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, WinSpool;

type

TForm1 = class(TForm)

btnStart: TButton;

cbPrinters: TComboBox;

procedure btnStartClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

PrintersInfo: array of TPrinterInfo5;

I, Needed, Returned: DWORD;

begin

EnumPrinters(PRINTER_ENUM_LOCAL, nil, 5, nil,

0, Needed, Returned);

SetLength(PrintersInfo, Needed div SizeOf(TPrinterInfo5));

if EnumPrinters(PRINTER_ENUM_LOCAL, nil, 5, PrintersInfo,

Needed, Needed, Returned) then

if Returned > 0 then

begin

for I := 0 to Returned - 1 do

cbPrinters.Items.Add(PrintersInfo[I].pPrinterName);

btnStart.Enabled := True;

cbPrinters.ItemIndex := 1;

end;

procedure TForm1.btnStartClick(Sender: TObject);

var

hPrinter, hChanges: THandle;

NotifyOption: TPrinterNotifyOptions;

NotifyTipes: TPrinterNotifyOptionsType;

Field: TPrinterNotifyInfoData;

begin

if OpenPrinter(PChar(cbPrinters.Items.Strings[cbPrinters.ItemIndex]),

hPrinter, nil) then

try

NotifyTipes.wType := JOB_NOTIFY_TYPE;

NotifyTipes.Reserved0 := 0;

NotifyTipes.Reserved1 := 0;

NotifyTipes.Reserved2 := 0;

NotifyTipes.Count := 1;

NotifyTipes.pFields := @Field;

NotifyOption.Version := 2;

NotifyOption.Flags := PRINTER_CHANGE_ALL;

NotifyOption.Count := 1;

NotifyOption.pTypes := @NotifyTipes;

hChanges := FindFirstPrinterChangeNotification(hPrinter, PRINTER_CHANGE_ALL,

0, @NotifyOption);

if hChanges = INVALID_HANDLE_VALUE then

RaiseLastOSError

else

try

case WaitForSingleObject(hChanges, INFINITE) of

WAIT_OBJECT_0: ShowMessage('Есть изменения');

WAIT_FAILED: RaiseLastOSError;

end;

finally

FindClosePrinterChangeNotification(hChanges);

end;

finally

ClosePrinter(hPrinter);

end;

end.

Перехватывать печать на принтере

SkyLight — Tue, 19 Apr 2005 18:28:56 +0000

SkyLight: Нужно перехватывать печать на принтере: на каком принтере, какой документ, сколько страниц распечатали.
Нашёл, что надо использовать FindFirstPrinterChangeNotification.
Может у кого нибудь есть пример рабочего кода?