Народ помогите не могу разобраться как менять кодировку в IdSyslogServer в Delphi.
Написал тестовый syslogsever сервер используя компоненты IdSyslogServer и IdSysLogMessage.
Данный сервер получает сообщения от клиента в латинице нормально, но если посылается кириллица то сервер получает кракозябры.
Вот код получения сообщения.
Код:
1 2 3 4 5 6 7 8 | procedure TForm1 . IdSyslogServer1Syslog(Sender: TObject;
ASysLogMessage: TIdSysLogMessage; ABinding: TIdSocketHandle);
begin
IdSysLogMessage1 := ASysLogMessage;
Memo1 . Lines . Add ( '-----------------------------------' );
Memo1 . Lines . Add ( IdSysLogMessage1 . Msg . Text );
end ;
|
Подскажите что поменять чтобы кириллица нормально воспринималась?