PRN-Файлы

jeka_t

Добрый ден Всем
У меня есть PRN-файлы, которые созданы были в CAD-приложении.
Хочу "посмотреть" (в виде отчета) и распечатать...
Есть ли возможность сделать с помощью FastReport?

Заранее Благодарен!

gpi

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

jeka_t

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

-=Serg=-

Нельзя.

gpi

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

jeka_t

Но я могу осуществить печать потока методами 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

Позволяет, но это не удобно если:
1. файл размером в 50 мБ.
2. CAD-приложение необходимо и диспетчеру печати...

Я добился этого, но хотелось бы ещё и просмотреть картинку...

-=Serg=-

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

Не нужно сюда лепит FastReport