{"id":203,"date":"2007-05-12T17:00:32","date_gmt":"2007-05-12T15:00:32","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/print-direct-to-port-without-driver\/"},"modified":"2007-05-12T17:00:34","modified_gmt":"2007-05-12T15:00:34","slug":"print-direct-to-port-without-driver","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/print-direct-to-port-without-driver\/","title":{"rendered":"Print direct to Port (without driver)"},"content":{"rendered":"

> Hi,
\n>
\n> I have a Serial Printer conected to COM1 but I don’t have the NT driver
\n> for it (it is an EPSON TM-U295), I need to print from my delphi 4
\n> application with a series of ESC commands, how can I do this.
\n<\/em><\/p>\n

You can either work dirrectly with the comm port functions,
\nor install any print driver (TTY\/Generic recommended) and
\nuse the following code:
\n
\nThe following unit “PrtRaw.pas” demonstrates a 16\/32 bit
\nraw printing unit for Delphi and Borland C Builder.<\/p>\n

Following the unit, is an exmaple on using the
\nPrtRaw unit.<\/p>\n

Notes:<\/p>\n

1) You are responsible for embedding all necessary
\ncontrol codes that the printer may require (including
\nform feed codes).<\/p>\n

2) You must specify a valid printer and port name.<\/p>\n

[code lang=”delphi”]unit PrtRaw;<\/p>\n

{Copyright (c) 1998 by Joe C. Hecht – All rights Reserved}
\n{<\/p>\n


\njoehecht@gte.net <\/p>\n

You may use and share this unit}
\n{providing my name and the copyright notice stays intact.}<\/p>\n

interface<\/p>\n

uses
\n WinTypes;<\/p>\n

{$IFDEF WIN32}
\n type SpoolInt = DWORD;
\n{$ELSE}
\n type SpoolInt = integer;
\n{$ENDIF}<\/p>\n

function StartRawPrintJob(PrinterName : pChar;
\n Port : pChar;
\n DocName : pChar) : THandle;<\/p>\n

function StartRawPrintPage(hPrn : THandle) : integer;<\/p>\n

function PrintRawData(hPrn : THandle;
\n Buffer : pointer;
\n NumBytes : SpoolInt) : integer;<\/p>\n

function EndRawPrintPage(hPrn : THandle) : integer;<\/p>\n

function EndRawPrintJob(hPrn : THandle) : integer;<\/p>\n

implementation
\n uses
\n WinProcs,
\n{$IFDEF WIN32}
\n WinSpool;
\n{$ELSE}
\n Print;
\n{$ENDIF}<\/p>\n

function StartRawPrintJob(PrinterName : pChar;
\n Port : pChar;
\n DocName : pChar) : THandle;
\n{$IFDEF WIN32}
\n var
\n hPrn : THandle;
\n DocInfo1 : TDocInfo1;
\n{$ENDIF}
\nbegin
\n {$IFDEF WIN32}
\n if (OpenPrinter(PChar(PrinterName),
\n hPrn,
\n nil) = FALSE) then begin
\n Result := THandle(-1);
\n Exit;
\n end;
\n DocInfo1.pDocName := DocName;
\n DocInfo1.pOutputFile := Port;
\n DocInfo1.pDataType := ‘RAW’;
\n if (StartDocPrinter(hPrn,
\n 1,
\n @DocInfo1) = 0) then begin
\n Result := THandle(-1);
\n exit;
\n end;
\n Result := hPrn;
\n {$ELSE}
\n result := OpenJob(Port,
\n DocName,
\n 0);
\n {$ENDIF}
\nend;<\/p>\n

function StartRawPrintPage(hPrn : THandle) : integer;
\nbegin
\n {$IFDEF WIN32}
\n if (StartPagePrinter(hPrn) = FALSE) then begin
\n Result := -1;
\n exit;
\n end;
\n result := 1;
\n {$ELSE}
\n result := StartSpoolPage(hPrn);
\n {$ENDIF}
\nend;<\/p>\n

function PrintRawData(hPrn : THandle;
\n Buffer : pointer;
\n NumBytes : SpoolInt) : integer;
\n{$IFDEF WIN32}
\nvar
\n BytesWritten : DWORD;
\n {$ENDIF}
\nbegin
\n if (NumBytes = 0) then begin
\n Result := 1;
\n exit;
\n end;
\n {$IFDEF WIN32}
\n if (WritePrinter(hPrn,
\n Buffer,
\n NumBytes,
\n BytesWritten) = FALSE) then begin
\n Result := -1;
\n exit;
\n end;
\n if (NumBytes <> BytesWritten) then begin
\n Result := -1;
\n exit;
\n end;
\n Result := 1;
\n {$ELSE}
\n result := WriteSpool(hPrn,
\n Buffer,
\n NumBytes);
\n {$ENDIF}
\nend;<\/p>\n

function EndRawPrintPage(hPrn : THandle) : integer;
\nbegin
\n {$IFDEF WIN32}
\n if (EndPagePrinter(hPrn) = FALSE) then begin
\n Result := -1;
\n exit;
\n end;
\n Result := 1;
\n {$ELSE}
\n result := EndSpoolPage(hPrn);
\n {$ENDIF}
\nend;<\/p>\n

function EndRawPrintJob(hPrn : THandle) : integer;
\nbegin
\n {$IFDEF WIN32}
\n if (EndDocPrinter(hPrn) = FALSE) then begin
\n Result := -1;
\n exit;
\n end;
\n if (ClosePrinter(hPrn) = FALSE) then begin
\n Result := -1;
\n exit;
\n end;
\n Result := 1;
\n {$ELSE}
\n result := CloseJob(hPrn);
\n {$ENDIF}
\nend;<\/p>\n

end.
\n[\/code]<\/p>\n

Example of use:
\n<\/b><\/p>\n

[code lang=”delphi”]uses
\n PrtRaw;<\/p>\n

procedure TForm1.Button1Click(Sender: TObject);
\nvar
\n hPrn : THandle;
\n Data : array[0..31] of char;
\nbegin<\/p>\n

hPrn := StartRawPrintJob(‘Generic \/ Text Only’,
\n ‘LPT1:’,
\n ‘My Document’);
\n if (integer(hPrn) < 0) then begin\n ShowMessage('StartRawPrintJob Failed');\n exit;\n end;\n\n if (StartRawPrintPage(hPrn) < 0) then begin\n ShowMessage('StartRawPrintPage Failed');\n EndRawPrintJob(hPrn);\n exit;\n end;\n\n Data[0] := 'P';\n Data[1] := 'a';\n Data[2] := 'g';\n Data[3] := 'e';\n Data[4] := #32;\n Data[5] := '1';\n Data[6] := #13;\n Data[7] := #10;\n\n if (PrintRawData(hPrn,\n @data,\n < 0) then begin\n ShowMessage('PrintRawData Failed');\n EndRawPrintPage(hPrn);\n EndRawPrintJob(hPrn);\n exit;\n end;\n\n if (EndRawPrintPage(hPrn) < 0) then begin\n ShowMessage('EndRawPrintPage Failed');\n EndRawPrintJob(hPrn);\n exit;\n end;\n\n if (StartRawPrintPage(hPrn) < 0) then begin\n ShowMessage('StartRawPrintPage Failed');\n EndRawPrintJob(hPrn);\n exit;\n end;\n Data[0] := 'P';\n Data[1] := 'a';\n Data[2] := 'g';\n Data[3] := 'e';\n Data[4] := #32;\n Data[5] := '2';\n Data[6] := #13;\n Data[7] := #10;\n\n if (PrintRawData(hPrn,\n @data,\n < 0) then begin\n ShowMessage('PrintRawData Failed');\n EndRawPrintPage(hPrn);\n EndRawPrintJob(hPrn);\n exit;\n end;\n\n if (EndRawPrintPage(hPrn) < 0) then begin\n ShowMessage('EndRawPrintPage Failed');\n EndRawPrintJob(hPrn);\n exit;\n end;\n\n if (EndRawPrintJob(hPrn) < 0) then begin\n ShowMessage('EndRawPrintJob Failed');\n exit;\n end;\n\nend;\n\nend.\n[\/code]\nJoe\n-- \nJoe C. Hecht\nhttp:\/\/home1.gte.net\/joehecht\/index.htm\n\n[tags]Delphi, Ports, Printing[\/tags]\n<\/p>\n","protected":false},"excerpt":{"rendered":"

> Hi, > > I have a Serial Printer conected to COM1 but I don’t have the NT driver > for it (it…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,118,119],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3h","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/203"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=203"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/203\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=203"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=203"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=203"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}