Главная страница
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
15-1457857799
pavelnk
2016-03-13 11:29
2017.02.12
Демоны


15-1456748233
Dmk
2016-02-29 15:17
2017.02.12
Win 10


15-1457821350
Германн
2016-03-13 01:22
2017.02.12
Russinovich & Portmon


15-1458040316
Drowsy
2016-03-15 14:11
2017.02.12
Переводчик


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