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

Вниз

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

 
Palmik ©   (2002-02-11 15:02) [0]

Думал как сделать?
В паскале написал прогу для отправки текстового файла на принтер!
Проблема - файлы в кодировке ANSI и вместо русского текста выводится АБРА КАТАБРА.
Нашел - что нужно включить ASCII фильтер!!!
Вопрос КАК???


 
panov ©   (2002-02-11 15:12) [1]

Код из dll для PChar:

procedure DosToWin(ps: PChar);stdcall;
begin
if StrLen(ps)>0 then OemToChar(ps,ps);
end;
procedure WinToDos(ps: PChar);stdcall;
begin
if StrLen(ps)>0 then CharToOem(ps,ps);
end;

Примерный код для String:

function A2O(Source: String): String;
var
ps: PChar;
begin
Result := "";
GetMem(ps,Length(Source)+1);
try
CharToOemBuff(PChar(Source),ps,Length(Source));
Result := ps;
finally
FreeMem(ps);
end;
end;


function O2A(Source: String): String;
var
ps: PChar;
begin
Result := "";
GetMem(ps,Length(Source)+1);
try
OemToCharBuff(PChar(Source),ps,Length(Source));
Result := ps;
finally
FreeMem(ps);
end;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.012 c
14-90645
Andrey
2002-01-11 12:02
2002.02.28
Контакт! Есть контакт!


7-90681
viksoft
2001-11-04 14:17
2002.02.28
Как отформатировать винт (HDD) ?


14-90647
Rudjuk
2002-01-14 11:21
2002.02.28
Где достать FreeReport для Delphi6 и Kilix?


6-90632
vsu
2001-12-12 21:52
2002.02.28
e-mail из консольного приложения


14-90643
Yuri-7
2002-01-13 11:11
2002.02.28
Работа с Torry.net