Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

Печать на матричный принтер   Найти похожие ветки 

 
Teapot   (2002-01-08 14:30) [0]

Необходима большая печать на матричный принтер (DFX-8500), естественно НЕ в графике. Логично отправлять туда информацию в DOS-кодировке. Долго парился, пока не разыскал функцию перекодировки (CharToOEM). Все замечательно, WriteLn в текстовый файл дает нужный результат. Но как только начинаю перегонять полученный файл на принтер (ReadLn->WriteLn), получается мура, ибо принтер трактует строки как кодированные по Виндосовски.
В чем фокус? Точно помню, что еще в D1 я делал это, правда на локальный принтер.
Здесь принтер сетевой, при его установке печать из программ ДОС разрешена.
Помогите!


 
Teapot   (2002-01-09 09:25) [1]

Неужели НИКТО НИЧЕГО не посоветует??? :(


 
panov ©   (2002-01-09 09:27) [2]

Куски кода с выводом на принтер покажи...


 
Teapot   (2002-01-11 14:02) [3]

Собственно, никакого кода приводить и не нужно. Вот эксперимент, сведенный буквально к двум строкам. Эта процедура выдала на МАТРИЧНЫЙ принтер вполне читаемую фразу.

procedure TForm1.Button1Click(Sender: TObject);
var
PrnF : TextFile;
begin
AssignPrn(PrnF);
Rewrite(PrnF);
WriteLn(PrnF,"Привет принтеру!");
CloseFile(PrnF);
end;


 
Wetnose   (2002-01-11 14:18) [4]

Сделай так:

procedure OEM_WriteLn(F: TextFile; Str: string);
begin
if WinStr <> "" then CharToOem(PChar(Str), PChar(Str));
WriteLn(F, Str);
end;


 
panov ©   (2002-01-11 15:30) [5]

>Teapot (11.01.02 14:02)
Если у тебя вот эта строка
WriteLn(PrnF,"Привет принтеру!");
печатается нормально, то зачем тебе в OEM-кодировку переводить?



Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
7-90398
Kirill_SKTS
2001-10-17 21:50
2002.01.28
Добыть звук из звуковухи


1-90284
}{elgi
2002-01-09 15:48
2002.01.28
Как установить С Builder компонент в Delphi


1-90266
Dreamer
2002-01-09 22:19
2002.01.28
Нужно ниспадающее окошко с хелпом при зависании над каким-либо обьектом,


14-90370
limon
2001-12-04 17:28
2002.01.28
Тонкости Perl (> Merlin & Co)


1-90321
Sasha2
2002-01-11 11:02
2002.01.28
Как в TMemoryTable задать Filter?