Writeprint() 这个函数如何用？

Question

Writeprint() 这个API函数如何用？
为什么在编译时提示不认得？要在USES 上加什么？

Answer 1

这是什么函数，delphi的帮助都查不到

Answer 2

是向打印机发关打印内容的，在相关delphi书上的关于打印的api函数参考中有的。

Answer 3

WritePrinter 向打印机输出数据
例:
uses CommDlg;{$IFNDEF WIN32}
 const MAX_PATH = 144;
{$ENDIF}procedure TForm1.Button1Click(Sender: TObject);
var
  Pd : TPrintDlg;
  DocInfo: TDocInfo;
begin
  FillChar(Pd, sizeof(Pd), #0); 
  Pd.lStructSize := sizeof(Pd);
  Pd.hWndOwner := Form1.Handle;
  Pd.Flags := PD_RETURNDC;
  if PrintDlg(pd) then begin
    FillChar(DocInfo, sizeof(DocInfo), #0);
    DocInfo.cbSize := SizeOf(DocInfo);
    GetMem(DocInfo.lpszDocName, 32);
    GetMem(DocInfo.lpszOutput, MAX_PATH);
    lStrCpy(DocInfo.lpszDocName, 'My Document');
   {Add this line to print to a file }
    lStrCpy(DocInfo.lpszOutput, 'C:\Download\Test.doc');
    StartDoc(Pd.hDc, DocInfo);
    StartPage(Pd.hDc);
    TextOut(Pd.hDc, 100, 100, 'Page 1', 6);
    EndPage(Pd.hDc);
    StartPage(Pd.hDc);
    TextOut(Pd.hDc, 100, 100, 'Page 2', 6);
    EndPage(Pd.hDc);
    EndDoc(Pd.hDc);
    FreeMem(DocInfo.lpszDocName, 32);
    FreeMem(DocInfo.lpszOutput, MAX_PATH);
  end;
end;
//////////////////////////////////////////////////////
uses winspool;procedure PrintFile(const sFileName: string);
const
  BufSize = 16384;
type
  TDoc_Info_1 = record
    pDocName: pChar;
    pOutputFile: pChar;
    pDataType: pChar;
  end;
var
  Count, BytesWritten: integer;
  hPrinter: THandle;
  Device : array[0..255] of char;
  Driver : array[0..255] of char;
  Port   : array[0..255] of char;
  hDeviceMode: THandle;
  DocInfo: TDoc_Info_1;
  f: file;
  Buffer: Pointer;
begin
  Printer.PrinterIndex := -1;
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  if not WinSpool.OpenPrinter(@Device, hPrinter, nil) then exit;
  DocInfo.pDocName := 'MyDocument';
  DocInfo.pOutputFile := nil;
  DocInfo.pDatatype := 'RAW';
  if StartDocPrinter(hPrinter, 1, @DocInfo) = 0 then
  begin
    WinSpool.ClosePrinter(hPrinter);
    exit;
  end;
  if not StartPagePrinter(hPrinter) then
  begin
    EndDocPrinter(hPrinter);
    WinSpool.ClosePrinter(hPrinter);
    exit;
  end;
  System.Assign(f, sFileName);
  try
    Reset(f, 1);
    GetMem(Buffer, BufSize);
    while not eof(f) do
    begin
      Blockread(f, Buffer^, BufSize, Count);
      if Count > 0 then
      begin
        if not WritePrinter(hPrinter, Buffer, Count, BytesWritten) then
        begin
          EndPagePrinter(hPrinter);
          EndDocPrinter(hPrinter);
          WinSpool.ClosePrinter(hPrinter);
          FreeMem(Buffer, BufSize);
          exit;
        end;
      end;
    end;
    FreeMem(Buffer, BufSize);
    EndDocPrinter(hPrinter);
    WinSpool.ClosePrinter(hPrinter);
  finally
    System.Closefile( f );
  end;
end;*************************************
 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 DocInfo do
   begin
   pDocName := PChar('test doc');
   pOutputFile := nil;
   pDataType := 'RAW';
   end;
 StartDocPrinter(Handle, 1, ocInfo);
 StartPagePrinter(Handle);
 WritePrinter(Handle, PChar(S), Length(S), N);
 EndPagePrinter(Handle);
 EndDocPrinter(Handle);
 ClosePrinter(Handle);
 end;The PrinterName parameter must be the name of the printer as it is
installed. For example, if the name of the printer
is "HP LaserJet 5MP" then that is what you should pass.
</quote>
/////////////////////////////////////////////////////Use CreateFile to get a handle to LPT1  LPTHandle := CreateFile( 'LPT1',GENERIC_WRITE,
                 0, PSecurityAttributes(nil),
                 OPEN_EXISTING, FILE_FLAG_OVERLAPPED,
                 0);
Then use WriteFile to send a string of characters or use  While not
    TransmitCommChar( LPTHandle, CharToSend ) do
      Application.ProcessMessages;It sends one raw character at a time to the parallel port. It waits for the recent character to get processed and then immediately sends a new one. I got it printing stuff
pretty fast.

Answer 4

The WritePrinter function informs the print spooler that data should be written to the specified printer. BOOL WritePrinter(    HANDLE hPrinter, // handle to printer object 
    LPVOID pBuf, // pointer to array that contains printer data 
    DWORD cbBuf, // size, in bytes, of array 
    LPDWORD pcWritten  // addr. of variable with count of bytes written 
   );
 ParametershPrinterIdentifies the printer. pBufPoints to an array of bytes that contains the data that should be written to the printer. cbBufSpecifies the size, in bytes, of the array. pcWrittenPoints to a value that specifies the number of bytes of data that were written to the printer.  Return ValuesIf the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError

Answer 5

应该是WritePrinter()吧？
uses Winspool;