VPF::Непонятки с кодировкой - Форум программистов

ButtonOFF

Дата 19.11.2009, 02:38 (ссылка)

(нет голосов)

Загрузка ...

улетевший

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 16.11.2009

Репутация: нет
Всего: нет

Мне нужно принять текст, он приходит в формате WideChar. Но что самое главное отправить в таком же виде.
Например: мне нужно отправить слово "Привет" (1F 04 40 04 38 04 32 04 35 04 42 04 - в кодировке)
Сначала я думал это utf8 полазив под отладчиком я на 100% был уверен что это так, но когда выполняется код

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  s, s2:string;
  i, len: integer;
begin
s:=AnsiToUtf8('Привет');
len := length(s);
for i:=1 to len do s2 := s2+IntToHex(byte(s[i]),2)+' ';
edit1.Text:=s2;
end;

Получается строка D0 9F D1 80 D0 B8 D0 B2 D0 B5 D1 82 . Собственно как мне преобразовать туда и сюда строчку. Запарился уже тупить.
Вообще это уникод вроде как, а как мне перевести Анси в такой вид как 1F 04 40 04 38 04 32 04 35 04 42 04 вообще хз. Выручайте. smile

Это сообщение отредактировал(а) ButtonOFF - 19.11.2009, 02:55

ButtonOFF

Дата 19.11.2009, 12:24 (ссылка)

(нет голосов)

Загрузка ...

улетевший

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 16.11.2009

Репутация: нет
Всего: нет

Ну что никто не знает что ли

Порылся вообщем

Код


function StrToWide(s: string; CodePage: dword = 1251): string;
var d: dword;
begin
  d := MultiByteToWideChar(CodePage, 0, PChar(s), -1, nil, 0);
  if d = 0 then begin
    CodePage := 3;
    d := MultiByteToWideChar(CodePage, 0, PChar(s), -1, nil, 0);
  end;
  SetLength(result, d*2 - 2);
  MultiByteToWideChar(CodePage, 0, PChar(s), -1, Pointer(result), d);
end;

Конвертирует как надо в уникод, а ктонибуть может подсказать как наоборот.

Спасибо всем кто помог! Разобрался.

Это сообщение отредактировал(а) ButtonOFF - 19.11.2009, 14:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »