Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Печать из винды на матричном принторе!!! 


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.029 c
3-90471           Alex_C                2002-02-02 18:00  2002.02.28  
Помогите!!! Необходимо ДОБАВИТЬ СТОЛБЕЦ к существующей базе данных (мучаюсь третий день, задача вроде простая, а уперся и все тут)!


3-90490           YurikKuk              2002-02-04 03:56  2002.02.28  
Настройка BDE


14-90668          Snake2000             2002-01-11 18:50  2002.02.28  
По части Mp3 Pro


3-90487           VLL                   2002-02-01 09:39  2002.02.28  
Как упаковать таблицу


6-90631           gunner                2001-12-06 22:42  2002.02.28  
Наболевшый вопрос !