Скачать: CL | DM;

Помогите разобраться с кодировкой   Найти похожие ветки 

← →
murom   (2004-09-19 15:54) [0]

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

---

← →
Anatoly Podgoretsky ©   (2004-09-19 15:55) [1]

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

---

← →
murom   (2004-09-19 16:03) [2]

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

---

← →
Anatoly Podgoretsky ©   (2004-09-19 16:06) [3]

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

---

← →
murom   (2004-09-19 16:08) [4]

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

---

← →
Anatoly Podgoretsky ©   (2004-09-19 16:38) [5]

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

---

← →
Defunct ©   (2004-09-19 16:49) [6]

WideString [F1]

---

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

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

var
strbytes, normalstr: string;

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

end;

---

← →
Defunct ©   (2004-09-19 17:37) [8]

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:40) [9]

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

---

← →
Anatoly Podgoretsky ©   (2004-09-19 17:50) [10]

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

---

← →
Defunct ©   (2004-09-19 17:54) [11]

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

---

← →
Anatoly Podgoretsky ©   (2004-09-19 17:58) [12]

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

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

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

---

← →
Defunct ©   (2004-09-19 18:03) [13]

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.022 c