Печать из винды на матричном принторе!!! [D6, WinXP]
Palmik © (2002-02-11 15:02:00)
Думал как сделать?
В паскале написал прогу для отправки текстового файла на
принтер!
Проблема - файлы в кодировке ANSI и вместо русского текста
выводится АБРА КАТАБРА.
Нашел - что нужно включить ASCII фильтер!!!
Вопрос КАК???
panov (2002-02-11 15:12:00) [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;
Наверх 
ЧАТ |
Орешник |
|
