Печать текста в обход Windows
Falk0ner, вс, 06/07/2008 - 15:34.
Откройте файл типа TextFile и пишите в него напрямую:
var
Lst: TextFile;
begin
AssignFile(Lst, 'LPT1');
Rewrite(Lst);
WriteLn(Lst, 'Здравствуй, мир!');
Close(Lst);
end.
Lst: TextFile;
begin
AssignFile(Lst, 'LPT1');
Rewrite(Lst);
WriteLn(Lst, 'Здравствуй, мир!');
Close(Lst);
end.
При этом вы должны помнить, что при данной технологии вы не можете в это же время печатать из другой программы, иначе наступит конец света, а ваша распечатка будет похожа на "запутанный беспорядк".
Если вы планируете посылать на принтер управляющие коды, вызывайте следующую функцию немедленно после перезаписи файла:
procedure SetBinaryMode(var F: Text); assembler;
asm
mov ax,$4400
les di,F
mov bx,word ptr es:[di]
int $21
or dl,$20
xor dh,dh
mov ax,$4401
int $21
end;
asm
mov ax,$4400
les di,F
mov bx,word ptr es:[di]
int $21
or dl,$20
xor dh,dh
mov ax,$4401
int $21
end;
-Steve
Взято из Советов по Delphi от Валентина Озерова
Сборник Kuliba
Отправить комментарий