Главная страница
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.041 c
15-1174459271
Knight
2007-03-21 09:41
2007.04.22
Пользующим DMClient...


4-1164645015
Альберт
2006-11-27 19:30
2007.04.22
получение хэндла окна из TShellExecuteInfo


15-1175115194
Gero
2007-03-29 00:53
2007.04.22
Хвастаюсь


15-1174882156
KSergey
2007-03-26 08:09
2007.04.22
Детали лицензий на софт


2-1175095227
MaLoY
2007-03-28 19:20
2007.04.22
Помогите с задачкой