Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2009, 18:26   #1
nimf
Пользователь
 
Регистрация: 29.08.2007
Сообщений: 51
Вопрос кодировка UTF-8

пишу программу которая отправляет sms на сотовые телефоны. при отправке руского текста получаю в sms текст из знаков вопроса. подскадите как перекодировать текст cp1251 в UTF-8 или UCS-2. Очень нужна ваша помошь.
nimf вне форума Ответить с цитированием
Старый 18.01.2009, 18:31   #2
maladoy
delphi-ст!
Форумчанин
 
Аватар для maladoy
 
Регистрация: 02.01.2009
Сообщений: 825
По умолчанию

type
TConvertChars = array [#128..#255] of char;

const
Win_KoiChars: TConvertChars = (
#128,#129,#130,#131,#132,#133,#134, #135,#136,#137,#060,#139,#140,#141, #142,#143,
#144,#145,#146,#147,#148,#169,#150, #151,#152,#153,#154,#062,#176,#157, #183,#159,
#160,#246,#247,#074,#164,#231,#166, #167,#179,#169,#180,#060,#172,#173, #174,#183,
#156,#177,#073,#105,#199,#181,#182, #158,#163,#191,#164,#062,#106,#189, #190,#167,
#225,#226,#247,#231,#228,#229,#246, #250,#233,#234,#235,#236,#237,#238, #239,#240,
#242,#243,#244,#245,#230,#232,#227, #254,#251,#253,#154,#249,#248,#252, #224,#241,
#193,#194,#215,#199,#196,#197,#214, #218,#201,#202,#203,#204,#205,#206, #207,#208,
#210,#211,#212,#213,#198,#200,#195, #222,#219,#221,#223,#217,#216,#220, #192,#209);

Koi_WinChars: TConvertChars = (
#128,#129,#130,#131,#132,#133,#134, #135,#136,#137,#138,#139,#140,#141, #142,#143,
#144,#145,#146,#147,#148,#149,#150, #151,#152,#153,#218,#155,#176,#157, #183,#159,
#160,#161,#162,#184,#186,#165,#166, #191,#168,#169,#170,#171,#172,#173, #174,#175,
#156,#177,#178,#168,#170,#181,#182, #175,#184,#185,#186,#187,#188,#189, #190,#185,
#254,#224,#225,#246,#228,#229,#244, #227,#245,#232,#233,#234,#235,#236, #237,#238,
#239,#255,#240,#241,#242,#243,#230, #226,#252,#251,#231,#248,#253,#249, #247,#250,
#222,#192,#193,#214,#196,#197,#212, #195,#213,#200,#201,#202,#203,#204, #205,#206,
#207,#223,#208,#209,#210,#211,#198, #194,#220,#219,#199,#216,#221,#217, #215,#218);

function Win_KoiConvert(const St: string): string;
var
i: integer;
begin
Result:=St;
for i:=1 to Length(St) do
if St[i]>#127 then
Result[i]:=Win_KoiChars[St[i]];
end;
вступлю в команду разработчиков ПО на Delphi
maladoy вне форума Ответить с цитированием
Старый 18.01.2009, 18:40   #3
nimf
Пользователь
 
Регистрация: 29.08.2007
Сообщений: 51
По умолчанию

спасибо огромное, но вот вопрос такой это ведь перекодировка в koi8, это одно и тоже или разные вещи,
nimf вне форума Ответить с цитированием
Старый 18.01.2009, 18:49   #4
nimf
Пользователь
 
Регистрация: 29.08.2007
Сообщений: 51
Смущение

нет не получается, может есть еще какие нибудь варианты
nimf вне форума Ответить с цитированием
Старый 18.01.2009, 19:25   #5
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,276
По умолчанию

ansitoutf8();
utf8toansi();
Alar вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ansi в UTF-8 и наоборот UTF-8 в Ansi Alar Работа с сетью в Delphi 3 09.12.2010 17:02
UTF-8 кодировка OrdJONY Общие вопросы Delphi 2 23.03.2008 16:56