Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с кодировкой [D7, Win2k, WinXP]


murom ©   (2004-09-19 15:54:00) 

Уважаемые, помогите понять как преобразовать эти данные в нормальный русский текст, у меня есть следующие байты
04 1f 04 40 04 38 04 32 04 35 04 42
 П     р     и     в     е     т
Они обозначают как раз это слово "Привет". Не пойму что за кодировка и как преобразовать, если можно примерчик с кодом. Спасибо большое.


Defunct   (2004-09-19 18:03:00) [1]

Дык, чтобы правильно задать вопрос порой приходится потратить годы. Если чел. пишет strbytes := '041f04400438043204350442'; я полагаю для вас было очевидно, что он хочет сделать. Только вот словами выразить вопрос - не хватает знаний.


Anatoly Podgoretsky   (2004-09-19 17:58:00) [2]

Да нет просто, что бы получить ответ, надо задать вопрос.
А вот поможет ли ему ответ, он очень отличается от вопроса в [7], вопрос там совсем другой, там надо сначала жекс символы надо преобразовать в байты, потом остально. Но по сути она может решатбся и так

normalstr := 'Привет';

Пожто до сих пор не ясно, что надо сделать, нет вопроса.


Defunct   (2004-09-19 17:54:00) [3]

Анатолий мучает новичков, как обычно ;>


Anatoly Podgoretsky   (2004-09-19 17:50:00) [4]

А то ли это надо? Ты же ничего не спрашивал.


murom   (2004-09-19 17:40:00) [5]

во спасибо!!, я дельфи еще изучаю, потому и просил пример кода
то что надо


Defunct   (2004-09-19 17:37:00) [6]

murom   (19.09.04 17:19) [7]

Вы читать умеете? см. [6]

Const A: Array[1..12] of byte = ($1f, $04, $40, $04, $38, $04, $32, $04, $35, $04, $42, $04);

procedure TForm1.Button1Click(Sender: TObject);
Var W:WideString;
begin
 SetLength(W,6);
 CopyMemory( @W[1], @A, 12);
 Button1.Caption := W;
end;


murom   (2004-09-19 17:19:00) [7]

ухх))
люди, у меня есть такой код,

var
strbytes, normalstr: string;

begin
strbytes := '041f04400438043204350442';
normalstr := ???
и как мне здесь получить из строки str
нормальное слово 'Привет' при условии что всё есть именно так как есть

end;


Defunct   (2004-09-19 16:49:00) [8]

WideString [F1]


Anatoly Podgoretsky   (2004-09-19 16:38:00) [9]

Блокнот не делает никаких преобразований, для Юникода это не требуется, он сразу поддерживает все кодировки.


murom   (2004-09-19 16:08:00) [10]

да вся беда в том что мне это преобразование в программе надо реализовать ;(


Anatoly Podgoretsky   (2004-09-19 16:06:00) [11]

А не надо, оно уже в нормальном виде. Открой Блокнотом и установи шрифт Юникод.


murom   (2004-09-19 16:03:00) [12]

спасибо, а преобразовать то как?) функций то собых и не вижу в дельфях.


Anatoly Podgoretsky   (2004-09-19 15:55:00) [13]

Кодировки нет - это Unicode


Наверх

Титульная страница Поиск, карта сайта Написать письмо