печать подобно DOS

← →
dolmat (2002-03-06 12:22) [0]

Мне нужно печатать DOS текст на матричном принтере из моей проги
AssignPrn для этого не подходит.
Такое так же не работает при работе выдает I/O ошибку 103
Var FileOut : TextFile;
filename : String [128];
begin
Filename:="PRN";
AssignFile(Fileout,Filename);
write(Fileout,"My string");
write(Fileout,"Моя строка");
closefile(Fileout);
Как можно по другому.

--------------------------------------------------------------------------------
Андрей Сенченко © (05.03.02 16:31)
А Вы уверены, что в Вашей системе "PRN" ассоциировано с портом принтера ?

--------------------------------------------------------------------------------
dolmat © (05.03.02 17:41)
До сих пор был уверен. Но как это перепроверить?

← →
gek (2002-03-06 12:36) [1]

Если из TP7 то
Writeln(lst,"hello");

← →
dolmat (2002-03-06 12:38) [2]

Из ТР работает нужно D5

← →
gek (2002-03-06 12:46) [3]

Может Filename:="LPT1" так надо

← →
dolmat (2002-03-06 12:53) [4]

Пробовал LPT1 и LST, но никак

← →
gek (2002-03-06 13:06) [5]

тогда вставь
rewrite(Fileout)
или reset

← →
Дремучий (2002-03-07 20:37) [6]

смотри на http://sopilko.boom.ru/delphi/index.htm
скоро будут обновления...

печать подобно DOS Найти похожие ветки