Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> А как бы мне ... 2, Консольное приложение 
:(
    Опции темы
DonPager
Дата 4.4.2003, 10:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
Вопрос не совсем о программировании, а скорее о самих Delphi.
mad.gif чачтенько приходится писать консольки с привычным Writeln, но тут такая проблема:
не хочет она мне руссими буквми писать и всё тут, как быть ?


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
Pakshin A. S.
Дата 4.4.2003, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Может русификатор как-нибудь подключить, как с некоторыми приложениями Dosа в Windowsе.
PM   Вверх
DonPager
Дата 4.4.2003, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
... вот незнаю незню, я Кейрус smile.gif пробовал не помогает


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
serious
Дата 4.4.2003, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1
Не знаю как насчет заголовка консоли, но вот в ней самой можно использовать русский шрифт. Для этого надо попробовать использовать unicode. Пиши что-то вроде WriteConsoleW, вместо WriteConsole.

PS Жизнь.exe /? - прикольно smile.gif


--------------------
Я знаю то, что ничего не знаю, а некоторые не знают и этого.
PM MAIL   Вверх
DonPager
Дата 4.4.2003, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
Пишу
Код

S := 'some shit';
a:= Length(S);
PS:= @S;
WriteConsoleW(GetConsoleCP,PS,a,b,nil)

но ничего не происходит (b так и равно 0)


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
DonPager
Дата 4.4.2003, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
Пишу
Код

S := 'some shit';
a:= Length(S);
PS:= @S;
WriteConsoleW(GetConsoleCP,PS,a,b,nil)

но ничего не происходит (b так и равно 0)


--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
Borland_Delphi_6
  Дата 4.4.2003, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


LoneLINEss
****


Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20
А вот как я выкручивался: брал Лексикон, запускал, писал в нем текст по-русски, сохранял файл, открывал его блокнотом, копировал содержимое и вставлял в Delphi. Там получалась абракадабра в кодировке DOS, а в консоли все прекрасно писалось smile.gif

Это сообщение отредактировал(а) Borland_Delphi_6 - 4.4.2003, 18:40


--------------------
Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии
PM MAIL WWW   Вверх
DonPager
Дата 4.4.2003, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
smile.gif система понятна, но тогда почему конвертируя текст в DOS в томже Аедтиторе,
результат опять таки Win ?



--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
Borland_Delphi_6
Дата 4.4.2003, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


LoneLINEss
****


Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20
А фиг его знает. Я даже такой проги не знаю, сейчас у меня XP, под ним Lexicon не работает, но под ME все эта ерунда работала. smile.gif
P.S. Жизнь.exe /? Сommand not found...


--------------------
Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии
PM MAIL WWW   Вверх
serious
Дата 4.4.2003, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1
Цитата
А вот как я выкручивался: брал Лексикон, запускал, писал в нем текст по-русски, сохранял файл, открывал его блокнотом, копировал содержимое и вставлял в Delphi. Там получалась абракадабра в кодировке DOS, а в консоли все прекрасно писалось


ИМХО это не выход. Тут надо для консоли назначить подходящую таблицу кодировки и все будет Ok.
Думаю вот так должно прокатить:
Код

var
  OutputStr : PWideChar;
  lpNumberOfCharsWritten : DWORD;
  Coord : TCOORD;

...

Coord.X := 0;
Coord.Y := 1;
SetConsoleCursorPosition (OutputHandle, Coord);  // позиция каретки
OutputHandle := GetStdHandle(STD_OUTPUT_HANDLE); // получаем хэндл стандартного потока вывода
SetConsoleOutputCP (1489); // это кодировка KOI8-r (RFC1489)
OutputStr := 'Привет, чувак!!!!!!!!';
WriteConsoleW (OutputHandle, OutputStr, Length(OutputStr), lpNumberOfCharsWritten, 0);




PS Жизнь.exe /? - прямо философия...


--------------------
Я знаю то, что ничего не знаю, а некоторые не знают и этого.
PM MAIL   Вверх
Borland_Delphi_6
Дата 5.4.2003, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


LoneLINEss
****


Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20
Цитата
ИМХО это не выход.

Я понимаю, что не выход, но если все остальное не работает, или если программа вместо 30кб получается 150... В этих случаях можно еспользовать подобный метод. Но это ИМХО.


--------------------
Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии
PM MAIL WWW   Вверх
serious
Дата 5.4.2003, 19:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 316
Регистрация: 15.2.2003
Где: Пенза

Репутация: нет
Всего: 1
Цитата(Borland_Delphi_6 @ 5.4.2003, 10:21)
Я понимаю, что не выход, но если все остальное не работает, или если программа вместо 30кб получается 150...

А что, разве приведенный код не работает?


--------------------
Я знаю то, что ничего не знаю, а некоторые не знают и этого.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0478 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.