VPF::Cодержит строка Unicod'овый текст

Delphist

Дата 18.9.2007, 12:09 (ссылка)

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

Загрузка ...

Delphist Эксперт

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

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

Подскажите, пожалуйста, как сделать такую вещь, есть переменная S типа string, нужно сделать следующее:
Проверить содержит ли S unicod'ый текст, если содержит, то необходиом его преобразовать к Ansi. Как это сделать.

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

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Alexeis

Дата 18.9.2007, 14:41 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Юникодная строка на конце имеет два нуля а не один. Если буфер фиксированный и лишних нулей в конце нет, то можно по этому принципу. Еще можно по тексту если там приемущественно инглиш, то в юникоде заборчик 0 символ 0 символ 0 символ, еще можно сжать злибом, очевидно степень сжатия юникода будет в 2 раза выше.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

BaD_SeCt0R

Дата 18.9.2007, 14:47 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

Дж. Рихтер

Цитата

Unicode — стандарт, первоначально разработанный Apple и Xerox в 1988 г. В 1991 г. был создан консорциум для совершенствования и внедрения Unicode. В него вошли компании Apple, Compaq, Hewlett-Packard, IBM, Microsoft, Oracle, Silicon Graphics, Sybase, Unisys и Xerox. (Полный список компаний — членов консорциума см. на www.Unicode.org.) Эта группа компаний наблюдает за соблюдением стандарта Unicode, описание которого Вы найдете в книге The Unicode Standard издательства Addison-Wesley (ее электронный вариант можно получить на том же www.Unicode.org).

Строки в Unicode просты и логичны. Все символы в них представлены 16-битными значениями (по 2 байта на каждый). В них нет особых байтов, указывающих, чем является следующий байт — частью того же символа или новым символом. Это значит, что прохождение по строке реализуется простым увеличением или уменьшением значения указателя. Функции CharNext, CharPrev и IsDBCSLeadByte больше не нужны.

Так как каждый символ — 16-битное число, Unicode позволяет кодировать 65 536 символов, что более чем достаточно для работы с любым языком. Разительное отличие от 256 знаков, доступных в однобайтовом наборе!

В настоящее время кодовые позиции1 определены для арабского, китайского, греческого, еврейского, латинского (английского) алфавитов, а также для кириллицы (русского), японской каны, корейского хангыль и некоторых других алфавитов. Кроме того, в набор символов включено большое количество знаков препинания, математических и технических символов, стрелок, диакритических и других знаков. Все вместе они занимают около 35 000 кодовых позиций, оставляя простор для будущих расширений.

Код


var
  s:string;
begin
  //... обработка строки
  if IsTextUnicode(@s, Length(s), nil) then
    WideCharToMultiByte(GetACP,       //кодировка ANSI (можно просто CP_ACP)
                        0,            //флаги
                        PWideChar(s), //сама строка...
                        Length(s),    //...и ее длина
    nil, 0, nil, 0);
end;

Это сообщение отредактировал(а) BaD_SeCt0R - 28.9.2007, 14:32

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

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