Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2018, 15:35   #1
nikcpp
Пользователь
 
Регистрация: 05.04.2011
Сообщений: 35
Хорошо IdSyslogServer кодировка

Народ помогите не могу разобраться как менять кодировку в IdSyslogServer в Delphi.

Написал тестовый syslogsever сервер используя компоненты IdSyslogServer и IdSysLogMessage.

Данный сервер получает сообщения от клиента в латинице нормально, но если посылается кириллица то сервер получает кракозябры.

Вот код получения сообщения.
Код:
procedure TForm1.IdSyslogServer1Syslog(Sender: TObject;
ASysLogMessage: TIdSysLogMessage; ABinding: TIdSocketHandle);
begin

IdSysLogMessage1 := ASysLogMessage;
Memo1.Lines.Add ('-----------------------------------');
Memo1.Lines.Add ( IdSysLogMessage1.Msg.Text );
end;
Подскажите что поменять чтобы кириллица нормально воспринималась?
nikcpp вне форума Ответить с цитированием
Старый 28.03.2018, 17:38   #2
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Попробуйте так получать сообщения так
Memo1.Lines.Add (Utf8toAnsi(IdSysLogMessage1.Msg.Te xt));

а отправлять так AnsiToUtf8('кириллица');
Поэкспериментируйте с этим параметром.
Aliens_wolfs вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кодировка Gennadiy БД в Delphi 3 10.01.2013 14:15
Кодировка Loreen Помощь студентам 1 14.10.2012 00:34
кодировка Ast PHP 3 10.01.2012 08:03
кодировка Кристинка89 Общие вопросы Delphi 3 25.08.2011 14:37
кодировка asil Общие вопросы Delphi 1 23.05.2009 09:55