Как мне отправить на принтер чистый поток данных?

Previous  Top  Next

    
 

 

Под Win16 Вы можете использовать функцию SpoolFile, или

Passthrough escape, если принтер поддерживает последнее.

Под Win32 Вы можете использовать WritePrinter.

 

'иже пример открытия принтера и записи чистого потока данных в принтер.

Учтите, что Вы должны передать корректное имя принтера, такое, как "HP LaserJet

5MP",

чтобы функция сработала успешно.

 

Конечно, Вы можете включать в поток данных любые необходимые управляющие коды,

 

которые могут потребоваться.

 

Code:

uses WinSpool;

 

procedure WriteRawStringToPrinter(PrinterName:String; S:String);

var

Handle: THandle;

N: DWORD;

DocInfo1: TDocInfo1;

begin

if not OpenPrinter(PChar(PrinterName), Handle, nil) then

begin

   ShowMessage('error ' + IntToStr(GetLastError));

   Exit;

end;

with DocInfo1 do begin

   pDocName := PChar('test doc');

   pOutputFile := nil;

   pDataType := 'RAW';

end;

StartDocPrinter(Handle, 1, @DocInfo1);

 

StartPagePrinter(Handle);

WritePrinter(Handle, PChar(S), Length(S), N);

EndPagePrinter(Handle);

EndDocPrinter(Handle);

ClosePrinter(Handle);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

WriteRawStringToPrinter('HP', 'Test This');

end;

 

 

 

(Borland FAQ N714, переведен Акжаном Абдулиным)

 

©Drkb::03224

Взято с сайта http://blackman.wp-club.net/