PRN-Файлы

Комментарии

• gpi

  November 2005 отредактировано 01:57

  См. пример \Demos\PrintFile
• jeka_t

  November 2005 отредактировано 01:57

  Не выходит, показывает лишь текст файла (команды принтера), а мне необходимо графическую картинку...
• -=Serg=-

  November 2005 отредактировано 01:57

  Нельзя.
• gpi

  November 2005 отредактировано 01:57

  А, понял. Я думал, что PRN - это просто текстовый файл, а оказалось - результат печати в файл. А CAD-приложение не позволяет сохранять результат работы в графических форматах?
• jeka_t

  November 2005 отредактировано 01:57

  Но я могу осуществить печать потока методами Delphi...
  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('Print 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 PrintFile(FileNamePRN: string);
  var PRN: string;
  begin
  with TFileStream.Create(FileNamePRN, 2) do
  try
  SetLength(PRN, Size);
  ReadBuffer(PRN[1], Length(PRN));
  finally
  Free;
  end;
  WriteRawStringToPrinter(RGroup_Application.Items.Strings[0], PRN);
  end;
  
  ...
  PrintFile(OpenDialog1.FileName);
  ...
  
• jeka_t

  November 2005 отредактировано 01:57

  Позволяет, но это не удобно если:
  1. файл размером в 50 мБ.
  2. CAD-приложение необходимо и диспетчеру печати...
  
  Я добился этого, но хотелось бы ещё и просмотреть картинку...
• -=Serg=-

  November 2005 отредактировано 01:57

  PRN файл это принтеро-зависимая штука, оно не имеет какого-то
  определенно формата и пр. спецификации. Это поток данных которые понимает только определенная модель принтера.
  
  Не нужно сюда лепит FastReport