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

Вниз

SetConsoleCP & SetConsoleOutputCP   Найти похожие ветки 

 
DarkGreen   (2002-09-16 14:36) [0]

Доброе время суток Мастера!
Пытаюсь установить кодовую страницу для консольного приложения (код ниже) страница устанавливается (функции возвращают истину) но результат 0, на консоли отображается китайские иероглифы :-/.


program CodePage;
{$APPTYPE CONSOLE}
uses
Windows,
SysUtils;
begin
{ TODO -oUser -cConsole Main : Insert code here }
WriteLn("Кодовая страница консоли для ввода:", GetConsoleCP);
WriteLn("Кодовая страница консоли для вывода:", GetConsoleOutputCP);
WriteLn("Устанавливаем кодовую страница консоли для ввода 1251:", SetConsoleCP(1251));
WriteLn("Устанавливаем кодовую страница консоли для вывода 1251:", SetConsoleOutputCP(1251));
end.


 
Andre V.   (2002-09-16 14:43) [1]

Драйвера в системе ЕСТЬ??????
Имею загруженными....


 
DarkGreen   (2002-09-17 05:21) [2]

Все, разобрался сам. Кому интересно, вот решение. Для того, чтобы SetConsoleOutPutCP работала, необходимо:
1. Операционная система Win NT (2000, XP). 95, 98, Me - не поддерживаются.
2. В настройках консоли стоял не точечный шрифт, а Lucida Console.
В общем все. Инфу нашел на MSDN



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
14-85648
Malder
2002-08-27 19:17
2002.09.26
Вывод отчетов - 2


1-85608
race1
2002-09-14 12:22
2002.09.26
graphics32


4-85750
Донской
2002-08-09 21:41
2002.09.26
broadcastsystemmessage() послыет 5 сообщений вместо одного


3-85324
Леван
2002-08-30 14:28
2002.09.26
Delphi+sql server 7.0


14-85667
AL2002
2002-08-30 11:00
2002.09.26
Есть у кого-нить прога