VPF::Unicode -> ASCII - Форум программистов

talker

Дата 30.8.2011, 20:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

Возникла сложность с конвертированием юникода в ASCII

Код


var
Name, T: String;

begin
...
SetLength(T,length(PWideChar(Name)));
UnicodeToUtf8(PAnsiChar(T),PWideChar(Name),length(PWideChar(Name)));
Name := UTF8ToStrSmart(T);

До преобразований значение Name

Код


& #1058;& #1072;& #1090;& #1100;& #1103;& #1085;& #1072;

Здесь добавил пробелы после &, чтобы браузер не преобразовывал. Должно из этого получиться "Татьяна".

Получается
T = вЊ¦гЂ±г µв»г„Јгњ°г¬ІвЊ¦гЂ
Name = ???O????er_

Добавление

Код


SetThreadLocale(1049);

не помогает

Функция UTF8ToStrSmart со страницы http://forum.vingrad.ru/forum/topic-133239...y1007351/0.html
При использовании вместо неё Utf8ToAnsi возвращается пустая строка.

Чем лечить?

AndreyIQ

Дата 31.8.2011, 12:21 (ссылка)

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

Загрузка ...

Бывалый

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

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

в delphi 2009, проблем с кодировкой нет

Код


const
 ws: string = #1058 + #1072+#1090+#1100+#1103+#1085+#1072;
var
 s:AnsiString;
 ws2:string;
begin
  s:= ws;
  ws2:=s;
  Caption:=ws2; //Caption = "Татьяна"
end;

Frees

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

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(AndreyIQ @ 31.8.2011, 15:21

)

в delphi 2009, проблем с кодировкой нет

судя по всему у ТС строка вида

Код


ws: string = '& #1058;& #1072;& #1090;& #1100;& #1103;& #1085;& #1072; '

Без пробелов только

это не юникод это html коды

Это сообщение отредактировал(а) Frees - 31.8.2011, 12:28

--------------------

Кольцов Виктор Владимирович

talker

Дата 31.8.2011, 12:29 (ссылка)

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

Загрузка ...

Шустрый

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

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

Delphi 7.

Цитата(Frees @ 31.8.2011, 12:24

)

судя по всему у ТС строка вида

Да, юникоды в строке.

Добавлено через 1 минуту и 54 секунды

Цитата(Frees @ 31.8.2011, 12:24

)

это не юникод это html коды

Как в Делфи их преобразовать в "читабельный " вид?

AndreyIQ

Дата 31.8.2011, 12:50 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(talker @ 31.8.2011, 12:29)

Как в Делфи их преобразовать в "читабельный " вид?

Карявое, но все же решение (в 2009 работает, Delphi 7 под рукой нет, по этому проверить не могу)

Код


function UnicodToAscii(AStr:string):string;
var Str:string;
begin
  Str:= StringReplace(AStr, '&#','', [rfReplaceAll]);
  while (Pos(';',Str)> 0 ) and (Length(Str) > 0) do
  begin
    Result:= Result + Chr(StrToInt(Copy(Str, 1, Pos(';',Str)-1)));
    Delete(Str, 1, Pos(';',Str));
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
const
 ws: string = 'Татьяна';
begin
  Caption:=UnicodToAscii(ws);
end;

Frees

Дата 31.8.2011, 12:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(talker @ 31.8.2011, 15:29

)

Как в Делфи их преобразовать в "читабельный " вид?

http://forum.sources.ru/index.php?showtopic=316172&hl=

--------------------

Кольцов Виктор Владимирович

talker

Дата 31.8.2011, 13:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

AndreyIQ,
Frees,
Благодарю smile

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