, hvordan at skrive direkte til trykkeriet.,, bidragyder: javier celuce,,,, en for to måneder siden gareet wilson besvare dette spørgsmål, og jeg har testet det arbejde, det... det bedste, jeg har fundet, er at gøre følgende, som bruger vinduerne, trykning rutiner - men sender data direkte til printeren (du kan have, at ændringer på tingene, men det er en god oversigt).I figured out a,, lot of this from "Three Printing Techniques for Windows 95 Console,, Applications," by David Tamashiro in the C/C++ User's Journal, January,, 1997.,,, **First, include the following:,,, var,, PrinterHandle:THandle; {the handle to the printer},,, uses WinSpool, Printers;,,, type TDocInfo1=packed record {the replacement for DOC_INFO_1},, lpszDocName: PAnsiChar;,, lpszOutputFile: PAnsiChar;,, lpszDatatype: PAnsiChar;,, end;,,, **Then, open a printer according to its name:,,, var,, CTitle:array[0..31] of Char;,, CMode:array[0..4] of Char;,, DocInfo:TDocInfo1;,, begin,, StrPLopy(CTitle, 'My Title'); {setup our title buffer},, StrPCopy(CMode, 'RAW'); {put "RAW" in our mode buffer}, , , FillChar(DocInfo, SizeOf(DocInfo), 0); {fill the DocInfo structure,, with zero's},, with DocInfo do,, begin,, lpszDocName:=CTitle; {set the title of our document},, lpszOutputFile:=nil; {specify no output file},, lpszDatatype:=CMode; {set the mode, which we have specified as,, "RAW"},, end;,, OpenPrinter('Printer Name Here', PrinterHandle, nil);,, StartDocPrinter(PrinterHandle, 1, @DocInfo);,, StartPagePrinter(PrinterHandle);,,,, **Now, print your text:,,, var,, Count:DWord; {the number of bytes written},, begin,, WritePrinter(PrinterHandle, PChar(printText), Length(printText),,, Count);,,,, **When you are finished printing, tidy things up:,,, EndPagePrinter(PrinterHandle); {end the page},, enddocprinter (printerhandle); (afslutning dokumentet), hvis printerhandle < > 0 så {, hvis vi har en printer klare}, begynder, closeprinter (printerhandle); (tæt på trykkeriet},, printerhandle: = 0 (viser, at vi har lukket printer),,,,,, det er vist nok.håber det hjælper.,,