topsel
Зарегистрирован: 29.01.2005 Сообщения: 10 Откуда: vladivostok
|
Добавлено: Пт Мар 04 2005 10:43 Заголовок сообщения: разговор с принтером. |
|
|
Кто нибудь работал с PJL? есть все команды с примерами, а как их принтеру передавать и читать ответ?
Пробовал писать в порт для hp 1300, а в ответ тишина.
вот код
procedure TForm1.Button1Click(Sender: TObject);
var
port, prnfile: file;
buffer0, buffer1: array [1..128] of Char;
Read: Integer;
begin
// Specify a file to print
AssignFile(prnfile, 'e:\config.txt');
Reset(prnfile, 1);
// specify printer port
AssignFile(port, 'DOT4_001');
Rewrite(port, 1);
repeat
BlockRead(prnfile, buffer0, SizeOf(buffer0), Read);
BlockWrite(port, buffer0, Read);
// Application.ProcessMessages;
until EOF(prnfile) or (Read <> SizeOf(buffer0));
CloseFile(prnfile);
CloseFile(port);
// Specify a file to print
AssignFile(port, 'DOT4_001');
RESET(port, 1);
// specify printer port
AssignFile(prnfile, 'e:\config.txt');
ReWRITE(prnfile, 1);
repeat
BlockRead(PORT, buffer1, SizeOf(buffer1), Read);
BlockWrite(PRNFILE, buffer1, Read);
// Application.ProcessMessages;
until EOF(PORT) or (Read <> SizeOf(buffer1));
CloseFile(prnfile);
CloseFile(port);
end;
Может надо использовать Tprinter? но тогда spooler будет посредником при печати, и опеть же как ответ получить?
Вот так. |
|