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

Вниз

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

 
Darth Avenger   (2007-02-27 13:31) [0]

Такой вопрос - есть richedit, из него печатается произвольный текст (в кирилице). Печатаю так:

AssignFile(lst,"COM6");
Rewrite(lst);
sc:=0;
for sc:=0 to rzrichedit1.Lines.Count-1 do
writeln(lst,rzrichedit1.Lines[sc]);
writeln(lst,#10#12);
System.CloseFile(lst);


1. Печатается абракадабра в кирилице, хотя таким способом латиница печатается хорошо.
2. Из winword (даже из notepad :)) кирилица печатается хорошо.
3. Принтер нестандартный - термопринтер для чеков Posiflex.

Как быть? Заранее благодарен за ответы!


 
Сергей М. ©   (2007-02-27 13:34) [1]


> Как быть?


Для начала изучить док-цию на принтер в части интерфейсов программного взаимодействия с ним. Там и примеры д.б. по идее.


 
MBo ©   (2007-02-27 13:40) [2]

преобразуй кодировку OemtoChar или CharToOem, в зависимости от того, на какую рассчитан принтер


 
Desdechado ©   (2007-02-27 14:03) [3]

драйвер?


 
Darth Avenger   (2007-02-27 14:10) [4]

Спасибо всем! Проблему решил так:

Printer.BeginDoc;
Printer.Canvas.TextOut(0,0,"Русский текст");
Printer.EndDoc;

Не совсем удобно, не совсем richedit, но мне подходит :)


 
Тфьу   (2007-02-27 14:12) [5]

А самое главное медленно, и жрет кучу ресурсов...



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

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

Наверх




Память: 0.47 MB
Время: 0.053 c
2-1175270259
Dmitry_177
2007-03-30 19:57
2007.04.22
переменная SYSTEMTIME определить что она пустая


2-1175685635
Мимопроходящий
2007-04-04 15:20
2007.04.22
Заварочный чайник


5-1152113543
Elfebet
2006-07-05 19:32
2007.04.22
Как граммотно вывести список файлов?


2-1175561133
SerJaNT
2007-04-03 04:45
2007.04.22
Присвоить событию свою процедуру


2-1175167085
..::KraN::..
2007-03-29 15:18
2007.04.22
Text Scrool