Многоязычие, локализация и перекодировка
Используй GetKeyboardLayoutName
Автор ответа: Mikel
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
GetSystemDefaultLangID
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Функция IsWindowUnicode определяет, является ли указанное окно собственным окном Юникода
Набор символов окна определяется с помощью функции RegisterClass. Если класс окна зарегистрирован в АНСИ версии непредвиденное registerclass (RegisterClassA),
набор символов окна является ANSI. Если класс окна был зарегистрирован в Юникоде версия непредвиденное registerclass (RegisterClassW), набор символов окно в Юникоде.
Система автоматического двустороннего перевода (Юникода в ANSI) для окна Сообщений. Например, если сообщение окна ANSI отправляется в окно, использующее набор символов Юникода,
перед вызовом процедуры окна система преобразует это сообщение в сообщение Юникода. Система вызывает IsWindowUnicode, чтобы определить, следует ли переводить сообщение.
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Delphi имеет функцию GetLocaleInfo, которая позволяет получать различную информацию о локальных настройках, таких как системный язык, символ валюты, количество десятичных знаков и т.д.
Далее приведена функция, которая возвращает значение в зависимости от параметра "flag":
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Например, молоко - moloko. И всё.
Вот пример функции, которая транслирует из русских слов в английские.
Пригодилась, когда нужно было файлы в mp3-плеер перегонять - он русский не понимает.
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Этот алгоритм позволяет перекодировать текст.
Реализованы кодировки Windows-1251, KOI8-R, ISO-8859-5 и DOS.
Кодировка – это таблица, в которой указано, например, что символ под номером 160 - это русская буква "а", а под номером 150 – "Ц" и т. д.
Кодировки различаются номерами русских букв (как располагать английские буквы договорились).
Разные компьютеры в Интернете используют разные кодировки. И поэтому, когда русский текст идет по Интернету, его многократно перекодируют.
Этот алгоритм обеспечивает высокую скорость перекодирования больших объемов данных.
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Узнать текущую раскладку клавиатуры в любом активном окне
возвращает числовое значение соответственно установленной раскладке
Зависимости: windows
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Все системы с Интернет Explorer 4 и новее есть библиотека mlang.dll в\system32 каталог. Обычно вы можете сказать, Дельфы, чтобы просто импортировать эти библиотеки com. Этот, однако, не Делфи. Я начал преобразования "самых разыскиваемых интерфейс" для себя. Результаты я представляю вам здесь.
Сначала я дам вам код для блока преобразования, который позволяет Вам просто преобразовать любой текст из страницы кодекса перевод на другую. Далее мы вскоре будем обсуждать код и дать вам пример того, как использовать его.
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Code: |
procedure GetKLList(List: TStrings); var AList : array [0..9] of Hkl; AklName: array [0..255] of Char; i: Longint; begin List.Clear; for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do begin GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName)); List.AddObject(AklName, Pointer(AList[i])); end; end;
procedure TForm1.FormCreate(Sender: TObject); begin GetKLList(ListBox1.Items); end;
procedure TForm1.ListBox1Click(Sender: TObject); begin with Sender as TListBox do ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0); end; |
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Алгоритм распознавания кодировки нужен для автоматического декодирования текста. Этот алгоритм основан на том, что некоторые буквы русского алфавита встречается очень часто, а некоторые редко. Поскольку этот способ статистический, то лучше всего он работает с большими текстами.
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Code: |
//На русский procedure TForm1.Button1Click(Sender: TObject); var Layout: array[0.. KL_NAMELENGTH] of char; begin LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE); end; |
- Подробности
- Родительская категория: Шрифты, языки, кодировки, регионарные стандарты
- Категория: Многоязычие, локализация и перекодировка
Страница 1 из 2