ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод русского текста в консольном приложении
51 сообщений из 51, показаны все 3 страниц
  все  
Вывод русского текста в консольном приложении
    #36100667
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
Что-то я малость потерялся. Если выводить в лоб, через обычный writeln то выводятся кракозябры. Там какая кодировка-то нужна? ДОСовская чтоли?!? Какие-то "преданья старины глубокой" прямо...
...
Рейтинг: 0 / 0
21.07.2009, 13:19
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100673
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
OEM

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
21.07.2009, 13:21
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100792
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Kotъ-Begemotъ!
You wrote on Tue, 21 Jul 09 10:19:55 GMT:

Kotъ-Begemotъ KB> Что-то я малость потерялся. Если выводить в лоб,
KB> через обычный writeln то выводятся кракозябры.
KB> Там какая кодировка-то нужна? ДОСовская чтоли?!?любая.
по дефолту ОЕМ.
выставь нужную тебе.
SetConsoleOutputCP()

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 13:55
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100855
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
Мимопроходящийлюбая.
по дефолту ОЕМ.
выставь нужную тебе.
SetConsoleOutputCP()


То есть это не затронет настроек системы? Просто для вывода в консоль ИЗ МОЕГО приложения будет использована нужная СР?
...
Рейтинг: 0 / 0
21.07.2009, 14:12
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100865
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Это затрагивает, только единственный поток.

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
21.07.2009, 14:16
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100868
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Kotъ-Begemotъ!
You wrote on Tue, 21 Jul 09 11:12:49 GMT:

Kotъ-Begemotъ KB> для вывода в консоль ИЗ МОЕГО приложения будет использована нужная СР?да

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 14:17
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100881
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
Спасибо, даже не знал о подобной возможности! Только одна засада, надо по идее проверять ключ HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage на предмет установленности нужной СР? Правильно я понимаю?
...
Рейтинг: 0 / 0
21.07.2009, 14:20
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100888
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Kotъ-Begemotъ!
You wrote on Tue, 21 Jul 09 11:20:28 GMT:

Kotъ-BegemotъТолько одна засада, надо по идее проверять ключнафуя?

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 14:21
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100891
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
Мимопроходящий
Hello, Kotъ-Begemotъ!
You wrote on Tue, 21 Jul 09 11:20:28 GMT:

Kotъ-BegemotъТолько одна засада, надо по идее проверять ключнафуя?

--
With best regards, Мимопроходящий.


А вдруг нужная мне СР 1251 вообще не установлена?
...
Рейтинг: 0 / 0
21.07.2009, 14:23
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100896
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Так проверяй или не проверяй - все одно, будут абракадабры

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
21.07.2009, 14:24
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100907
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Kotъ-Begemotъ!
You wrote on Tue, 21 Jul 09 11:23:17 GMT:

Kotъ-Begemotъ KB> А вдруг нужная мне СР 1251 вообще не установлена?функция вернёт ошибку.

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 14:30
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100918
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
Тогда не понял чего-то

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
 var 
        Error: Integer;
         yy: Boolean;

 begin 

  Application.Initialize;
  Error := GetConsoleOutputCP;
  ShowMessage(IntToStr(Error));  // Выводит "866" 

  yy := SetConsoleOutputCP( 1251 );
   if  yy  then 
   ShowMessage('Успешно!')
    else 
    ShowMessage('Облом!');  // Выводит "Успешно!" 

   if  (ParamCount <  1 )  then 
   begin 
    WriteLn('Не указан ключ реестра!');  // Выводит кракозябры :( 
    Exit;
   end ;
...
Рейтинг: 0 / 0
21.07.2009, 14:34
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36100966
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Kotъ-Begemotъ!
You wrote on Tue, 21 Jul 09 11:34:10 GMT:

Kotъ-Begemotъ KB> Выводит кракозябры :( бо шрифт!

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 14:54
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36101268
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
ну чо там, кот, решил вопрос со шрифтами?
...
Рейтинг: 0 / 0
21.07.2009, 16:28
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36101347
ASVShade
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ASVShade
Гость
Куча ответов и ниодного едльного))))

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 function  rus (mes:  string ) :  string ;
 var 
  i                                     : integer;
 begin 
   for  i :=  1   to  length (mes)  do 
     case  mes[i]  of 
      'А'..'П', 'а'..'п', 'Р'..'Я': mes[i] := chr (ord (mes[i]) - 64 ) ;
      'р'..'я': mes[i] := chr (ord (mes[i]) - 16 ) ;
     end ;
  rus := mes;
 end ;
...
Рейтинг: 0 / 0
21.07.2009, 17:00
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36101364
Фотография Альт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Альт
Участник
Я может чего не понял... но обычно на консолях перед вызовом "приложения" выполняют:
chcp
...
Рейтинг: 0 / 0
21.07.2009, 17:07
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36101368
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Альт!
You wrote on Tue, 21 Jul 09 14:07:16 GMT:

Альт А> Я может чего не понял... но обычно на консолях перед вызовом "приложения" выполняют:
А> chcpконсоль, это не совсем то что ты думаешь.

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 17:09
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36101647
Фотография Asm64D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asm64D
Участник
Тему не читал, по сабжу
Русификация консольных приложений в Delphi
Еще занятное
Почему вместо русских букв в консольном приложении выводится мусор?

И усе пошел дальше праздновать 22-летие.
______________________________________________________________
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
...
Рейтинг: 0 / 0
21.07.2009, 19:01
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36101690
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Asm64D!
You wrote on Tue, 21 Jul 09 16:01:23 GMT:

Asm64D A> Русификация консольных приложений в DelphiоченЬ, очень спорное решение...

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.07.2009, 19:28
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102534
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
Мимопроходящийну чо там, кот, решил вопрос со шрифтами?
Да пока остановился на том, что выдрал из DBTables функцию-обёртку над CharToOem и перекодирую мессаги выводимые в консоль. Это работает исправно. Надо будет еще ссылки приведённые почитать...

Код: plaintext
1.
2.
3.
4.
5.
 function  StrToOem( const  AnsiStr:  string ):  string ;
 begin 
  SetLength(Result, Length(AnsiStr));
   if  Length(Result) >  0   then 
    CharToOem(PChar(AnsiStr), PChar(Result));
 end ;
...
Рейтинг: 0 / 0
22.07.2009, 11:56
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102561
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
On Wed, 22 Jul 2009 12:56:38 +0400, Kotъ-Begemotъ <nospam@sql.ru>; wrote:

> Автор: Kotъ-Begemotъ

Юрич, чтой-то я тебя как-то перестал понимать...
У меня нижеприведённый код отрабатывает нормально...
 
Вот такой код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
uses
   Windows,
   SysUtils;

{$APPTYPE CONSOLE}

var
   Error: Integer;
   yy: Boolean;

begin
   Error := GetConsoleOutputCP;
   Writeln('IntToStr(Error) = ', IntToStr(Error)); // Выводит "866"

   yy := SetConsoleOutputCP( 1251 );
   if yy then
     Writeln('Успешно!')
   else
     Writeln('Облом!'); // Выводит "Успешно!"

   if (ParamCount <  1 ) then
   begin
     Writeln('Не указан ключ реестра!'); // НЕ ВЫВОДИТ КРАКОЗЯБРЫ :(
     Exit;
   end;
end.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.07.2009, 12:06
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102594
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Это у тебя, а у него возможно
Мимопроходящий бо шрифт!

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
22.07.2009, 12:15
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102597
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Kotъ-Begemotъ!
You wrote on Wed, 22 Jul 09 08:56:38 GMT:

Kotъ-Begemotъ KB> Да пока остановился на том, что выдрал из DBTables функцию-обёртку
KB> над CharToOem и перекодирую мессаги выводимые в консоль.ну, дело твоё.
я лично пользую нативные кодировки с юникодными шрифтами.
и вот со шрифтами там есть ньюанец. потому и спросил.
Kotъ-Begemotъ KB> Надо будет еще ссылки приведённые почитать...оно того не стоит.
первая сцылка вообще пипец, а вторая пользует тот же подход что и ты.

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.07.2009, 12:15
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102643
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
...или даже вот так вот (см.вложение, т.к. символы могут попортится)...
...
Рейтинг: 0 / 0
22.07.2009, 12:30
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102650
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
автора вторая пользует тот же подход что и ты.
Не совсем так, в статье подход правильный, если абстрагироваться от Си, то там будет работать и для Юникод и для АНСИ, а у автора не совсем так, работать будет, но с лишними преобразованиями, в зависимости от версии Дельфи или вообще не будет работать.
Тут нужен отказ от функции и/или переписывание заголовка функции. Нюансов много.

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
22.07.2009, 12:32
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102652
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Кстати если что, я за неправильный вариант, конечно с коррекциями и возможно с перекрытием функций, в зависимости от задачи.

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
22.07.2009, 12:34
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102685
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Anatoly!
You wrote on Wed, 22 Jul 09 09:32:55 GMT:

Anatoly AP> Не совсем так, в статье подход правильный, если абстрагироваться от Си,
AP> то там будет работать и для Юникод и для АНСИ, а у автора не совсем так,
AP> работать будет, но с лишними преобразованиями, в зависимости от версии
AP> Дельфи или вообще не будет работать. Тут нужен отказ от функции и/или
AP> переписывание заголовка функции. Нюансов много.решений всего два:
либо CharToOEM, либо SetConsoleOutputCP.
остальное нюансы...

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.07.2009, 12:44
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102716
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Я за первое, нюансов меньше и более работоспособное, но и у второго есть плюсы. Плюсы и недостатки хорошо проверяются в консоли (cmd.exe) сразу же

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
22.07.2009, 12:53
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102750
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Anatoly!
You wrote on Wed, 22 Jul 09 09:53:44 GMT:

Anatoly AP> Я за первое, нюансов меньше и более работоспособное, но и у второго есть плюсы.
у второго варианта жопа одна, но большая.
в АПИ нет документированных функций для назначения шрифта консоли.
только через реестр. и то, с оговорками.
а это фи.

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.07.2009, 13:04
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102763
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
И я про тоже.
Кстати это не назначение шрифта консоли - это окно эмулятор консоли консоли.
Родная консоль появится если нажать Alt+Enter и вот там уже метод совсем не будет работать.
Поэтому лучше использовать классику - работать с OEM

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
22.07.2009, 13:09
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36102850
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Hello, Anatoly!
You wrote on Wed, 22 Jul 09 10:09:10 GMT:

Anatoly AP> Родная консоль появится если нажать Alt+Enter и вот там уже метод совсем не будет работать.будет.
для Win это тоже окно, хоть и специфическое.

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.07.2009, 13:39
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36107740
SQL-Talker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-Talker
Участник
А вот вопрос не совсем в тему, но раз уж тут собрались знатоки консольных приложений:
Как узнать раскладку клавиатуры в чужом консольном приложении?
С обычными win-окнами вопросов нет, а вот с консольными непонятки.
...
Рейтинг: 0 / 0
24.07.2009, 14:04
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36108062
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Авторское "Вывод русского текста в консольном приложении"

SQL-TalkerА вот вопрос не совсем в тему, но раз уж тут собрались знатоки консольных приложений:
Как узнать раскладку клавиатуры в чужом консольном приложении?
С обычными win-окнами вопросов нет, а вот с консольными непонятки.

Пришел, почитал... задумался...
Что такое "консольное приложение"? Плюс украинского, китайского, иврита...
- Эмулятуры Пишмашки и пр. Olivetti? - тут без вариантов
- DOS-образие? - история времен chiwritera, lexicona, Чижова, Веселова, Paragrapha?
- APPCONSOLE? - Это все-таки command.com, (все-таки, лучше, чем "отладочная печать". Что имел в виду Мимопроходящий (другие консоли?), я не понял) - раскладка и пр. "цвета" могут поменяться внутри "консоли", причем оно не скажет об этом никому.

- Именно консоли типа смарто-нето-мелочей? - Unicode imho

Или я не понял?
...
Рейтинг: 0 / 0
24.07.2009, 15:19
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36108162
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
По поводу проверки ключа реестра и т.п. мудрый AP уже писал.
Т.е. его нет, но он нужен... Ну, создай его и продолжай...

Кому нужны мессаги "У тебя отсутствует тра-та-та! Сделай то-то-то!"?
...
Рейтинг: 0 / 0
24.07.2009, 15:40
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36109571
Фотография otistarda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
otistarda
Участник
Gator пишет:
> Автор: "Gator"
> По поводу проверки ключа реестра и т.п. мудрый AP уже писал.
> Т.е. его нет, но он нужен... Ну, создай его и продолжай...
>
> Кому нужны мессаги "У тебя отсутствует тра-та-та! Сделай то-то-то!"?
> Тема <http://www.sql.ru/forum/actualthread.aspx?tid=681359> Ответить
> <http://www.sql.ru/forum/actualpost.aspx?tid=681359> Сообщение
> <http://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=681359&msg=7457548>
>
Кот, у меня 95% консольные, пиши ф-цию, которая на входе имеет текст в 866 кодировке, а на выходе пишет лог и при
желании ошибку на экран. CharToOem в руки -- и вперед. Серьезно.
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
26.07.2009, 14:37
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36109633
Фотография Asm64D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asm64D
Участник
Creating an International Console
______________________________________________________________
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
...
Рейтинг: 0 / 0
26.07.2009, 17:03
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36109813
Kotъ-Begemotъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kotъ-Begemotъ
Участник
otistarda
Кот, у меня 95% консольные, пиши ф-цию, которая на входе имеет текст в 866 кодировке, а на выходе пишет лог и при
желании ошибку на экран. CharToOem в руки -- и вперед. Серьезно.

Да в целом так и сделал :)
...
Рейтинг: 0 / 0
26.07.2009, 22:21
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36110072
SQL-Talker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-Talker
Участник
Gator
...
Что такое "консольное приложение"? - APPCONSOLE? - Это все-таки command.com, ... - раскладка и пр. "цвета" могут поменяться внутри "консоли", причем оно не скажет об этом никому.

Но индикатор раскладки в виндах-то корректно показывает раскладку в консольном приложении. Значит таки есть способ узнать.
...
Рейтинг: 0 / 0
27.07.2009, 09:54
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36114609
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
SQL-TalkerНо индикатор раскладки в виндах-то корректно показывает раскладку в консольном приложении. Значит таки есть способ узнать.
Ничего не значит. ОС поймала событеи - переключила раскладку и отдала активному окну...
...
Рейтинг: 0 / 0
29.07.2009, 01:45
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36118259
SQL-Talker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-Talker
Участник
GatorОС поймала событие - переключила раскладку и отдала активному окну...
Т.е. просто в момент смены раскладки? А как тогда винда определяет какая раскладка в консольном окне при переключении между окнами? Причем правильно определяет - попробуй запустить 2 экземпляра cmd.exe и выставить на них разные раскладки - в одной английскую в другой русскую, - сколько ни переключай раскладку определяет верно.
...
Рейтинг: 0 / 0
30.07.2009, 15:20
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36118351
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
Все процессы независимы.

--
http://www.podgoretsky.com
...
Рейтинг: 0 / 0
30.07.2009, 15:51
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #36118631
SQL-Talker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SQL-Talker
Участник
Anatoly Podgoretsky,
... ?
...
Рейтинг: 0 / 0
30.07.2009, 17:15
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Вывод русского текста в консольном приложении
    #39900324
AdamAry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AdamAry
Участник
Kotъ-Begemotъ,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure writelnUTF8(Text: string);
var
NumWritten: DWORD;
begin
 WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), PChar(Text), Length(Text), NumWritten, nil);
 writeln;
end;

WritelnUTF8('&#246;&#252; bu валолыворш');
...
Рейтинг: 0 / 0
09.12.2019, 18:01
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900329
AdamAry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AdamAry
Участник
AdamAry,

Код: pascal
1.
system.types; {DWORD}
...
Рейтинг: 0 / 0
09.12.2019, 18:06
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900399
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
AdamAry
Kotъ-Begemotъ,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure writelnUTF8(Text: string);
var
NumWritten: DWORD;
begin
 WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), PChar(Text), Length(Text), NumWritten, nil);
 writeln;
end;

WritelnUTF8('&#246;&#252; bu валолыворш');

С юбилеем!
...
Рейтинг: 0 / 0
09.12.2019, 19:26
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900499
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
white_nigger,

интересно, Бегемот по-прежнему у себя в Твери кодит или подался куда на заработки?
...
Рейтинг: 0 / 0
09.12.2019, 23:45
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900620
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Мимопроходящий

у второго варианта жопа одна, но большая.
в АПИ нет документированных функций для назначения шрифта консоли.
только через реестр. и то, с оговорками.

А это вот не оно?..

P.S: Блин, гробокопатели, пока сообразишь что теме 10 лет уже...
...
Рейтинг: 0 / 0
10.12.2019, 10:02
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900667
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
alekcvp
P.S: Блин, гробокопатели, пока сообразишь что теме 10 лет уже...

И что? Раз пишут, значит, она все еще актуальна. Какие-то странные некрофобии
...
Рейтинг: 0 / 0
10.12.2019, 11:14
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900684
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
10.12.2019 10:02, alekcvp пишет:
>
> А это вот https://docs.microsoft.com/en-us/windows/console/setcurrentconsolefontex не оно?..

оно.
начиная с Vista.

> P.S: Блин, гробокопатели, пока сообразишь что теме 10 лет уже...

и Анатолия давно уже нет с нами...
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
10.12.2019, 11:29
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900875
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Василий 2
alekcvp
P.S: Блин, гробокопатели, пока сообразишь что теме 10 лет уже...

И что? Раз пишут, значит, она все еще актуальна. Какие-то странные некрофобии

Это я к тому, что по инерции ответил человеку, которому давно это уже не интересно.
...
Рейтинг: 0 / 0
10.12.2019, 15:43
| Ответить | Цитировать | Написать  
Вывод русского текста в консольном приложении
    #39900944
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
Не страшно, зато кто другой возможно придет сюда из поисковика и увидит решение.
...
Рейтинг: 0 / 0
10.12.2019, 17:40
| Ответить | Цитировать | Написать  
51 сообщений из 51, показаны все 3 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод русского текста в консольном приложении
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=Gridasov&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 7ms
get forum list:
 18ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 167ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 83ms
get tp. blocked users:
 3ms
others: 443ms
total:  763ms
созд. / загр.: 763ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]