Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как можно распечатать файл LPT?

jeka_t © (2005-09-19 15:33:00)
Добрый день...
У меня есть два принтера: Xerox и Canon
Один из них используется по умолчанию...
Необходимо отправлять файлы печати (PLT) на соответственные принтера...
Естьли возможность с помощью функции ShellExecute осуществить распечатку, либо другая функция есть?

Leonid Troyanovsky (2005-09-20 11:48:00) [1]
> jeka_t (20.09.05 11:35) [6]
> А как отправить из буфера на печать?

var
buff: array [0..$FFFFF] of Char;
..
WritePrinter(Handle, @buff, SizeOf(buff), N);
..

--
Regards, LVT.

jeka_t (2005-09-20 11:35:00) [2]
А как отправить из буфера на печать?

Leonid Troyanovsky (2005-09-20 11:30:00) [3]

> jeka_t (20.09.05 11:24) [4]

> Вот интересная функция, но как указать не текст а файл?

Тебе не эта функция нужна, а та, которая из буфера печатает.
Т.е., делаешь TFileStream, читаешь в буфер, отправляешь его на
печать, читаешь следующий кусок и т.д.

--
Regards, LVT.

jeka_t (2005-09-20 11:24:00) [4]
uses WinSpool;

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('test 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 TForm1.Button1Click(Sender: TObject);
begin
WriteRawStringToPrinter('HP', 'Test This');
end;

Вот интересная функция, но как указать не текст а файл?

Leonid Troyanovsky (2005-09-20 11:01:00) [5]

> jeka_t (20.09.05 10:31) [2]
> Это тоже самое что и PRN - команды для принтера...
> Но мне необходимо печатать из Делфи...

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/c68e79b088787eab

--
Regards, LVT.

jeka_t (2005-09-20 10:31:00) [6]
Это тоже самое что и PRN - команды для принтера...
Но мне необходимо печатать из Делфи...
Может кто знает как?

DC-AC (2005-09-20 08:35:00) [7]
Насколько я знаю, через спулер можно распечатать файлы .prn на любой принтер, установленный в системе (при условии, если он поддерживает все служебные команды, содержащиеся в prn файле), PLT - не слышал такого.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »