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

Вниз

Есть ли в кодировке GB18030 русские буквы?   Найти похожие ветки 

 
Дмитрий Белькевич   (2012-04-28 16:39) [0]

Сабж?


 
sniknik ©   (2012-04-28 17:04) [1]

есть ли в китайском русские буквы?


 
Дмитрий Белькевич   (2012-05-07 02:27) [2]

>есть ли в китайском русские буквы?

GB2312 включает русские буквы:

"Хотя GB2312 охватывает 99,75% символов наиболее употребимых китайских иероглифов, всё же исторические тексты и многие китайские имена не могут быть правильно отображены. Эта кодировка включает в себя 6763 китайских символа, а также символы пунктуации, японскую кану, греческий алфавит, кириллицу, чжуинь и символы пиньиня с диакритикой."

Но интересует именно GB18030.


 
Добро   (2012-05-07 02:35) [3]

Ну так если GB18030 поглотил GB2312, то понятно, что там тоже есть кириллица.


 
Добро   (2012-05-07 03:00) [4]

Вот таблица перекодировки из юникода в GB18030 (в формате unicode:gb)
http://source.icu-project.org/repos/icu/data/trunk/charset/source/gb18030/gbkuni30.txt
Русские буквы там есть - [0410..0451]:[A7A1..A7D7]


 
Добро   (2012-05-07 03:05) [5]


> [0410..0451]:[A7A1..A7D7]

Зря я это написал, последовательность gd немного отличается - буква ё (Ё) идет после е (Е), в отличие от юникода. Короче, таблица есть, найти соответствие несложно.


 
Добро   (2012-05-07 03:08) [6]

Только остается вопрос - причем тут Delphi?


 
Дмитрий Белькевич   (2012-05-16 23:16) [7]

Спасибо :)

>Только остается вопрос - причем тут Delphi?

Ну а где еще спрашивать? :)


 
Дмитрий Белькевич   (2012-09-21 11:08) [8]

При чем тут Delphi :)

Как перекодировать из GB18030 в WideString?


 
Лакки   (2012-09-21 18:48) [9]


> Дмитрий Белькевич   (21.09.12 11:08) [8]
> Как перекодировать из GB18030 в WideString?


function GB18030ToWideString(const ASrc: AnsiString): WideString;
var
 Len: integer;
begin
 Len := MultibyteToWideChar(54936 {GB18030 Simplified Chinese Codepage ID}, 0, PAnsiChar(ASrc), -1, nil, 0);
 SetLength(Result, Len);
 ASSERT(MultibyteToWideChar(54936, 0, PAnsiChar(ASrc), -1, PWideChar(Result), Len) = Len);
end;


Как-то так...


 
Дмитрий Белькевич   (2012-09-22 10:30) [10]

Спасибо.



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

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

Наверх




Память: 0.48 MB
Время: 0.005 c
2-1433331962
guest
2015-06-03 14:46
2017.02.12
интерактивность сервиса на лету...


15-1457857799
pavelnk
2016-03-13 11:29
2017.02.12
Демоны


2-1433138949
Anthony68
2015-06-01 09:09
2017.02.12
Функциональная кнопка на тачскрине Windows 8


15-1457472038
Kilkennycat
2016-03-09 00:20
2017.02.12
Что делает эта штуковина?


3-1311924368
yurikon
2011-07-29 11:26
2017.02.12
Обратиться к датасету через имя