|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
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; Подскажите что поменять чтобы кириллица нормально воспринималась? |