ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / IdSyslogServer кодировка
11 сообщений из 11, страница 1 из 1
IdSyslogServer кодировка
    #39622117
nikolll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolll
Гость
Народ помогите не могу разобраться как менять кодировку в IdSyslogServer в Delphi.

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

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

Вот код получения сообщения.

Код: pascal
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;


Подскажите что поменять чтобы кириллица нормально воспринималась?

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
28.03.2018, 15:28
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622136
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
nikolll,

Если принудительно перевести текст сообщения из UTF8 - кракозярбы уходят?
...
Рейтинг: 0 / 0
28.03.2018, 15:56
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622140
nikolll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolll
Гость
DarkMaster,

Остаются, да текст посылается в формате KOI8-r
...
Рейтинг: 0 / 0
28.03.2018, 16:04
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622150
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
nikolll,

Ну так переведи из KOI8 и будет тебе щастье.
...
Рейтинг: 0 / 0
28.03.2018, 16:07
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622156
nikolll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolll
Гость
DarkMaster,

Подскажешь как?
...
Рейтинг: 0 / 0
28.03.2018, 16:16
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622182
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
nikolll,

Версию Delphi скажи - если после D2009 - все просто, если до нее - несколько телодвижений нужно будет.
...
Рейтинг: 0 / 0
28.03.2018, 16:42
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622188
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
nikolll,

Так попробуй:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
function WideStringToAnsiStringEx(const WS: WideString; CodePage: Word): AnsiString;
var
  InputLength,
  OutputLength: Integer;
begin
  InputLength := Length(WS);
  OutputLength := WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, nil, 0, nil, nil);
  SetLength(Result, OutputLength);
  WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, PAnsiChar(Result), OutputLength, nil, nil);
end;

Function AnsiStringToUnicode(S:AnsiString):string;
begin
 Result:=AnsiStringToWideStringEx(S,GetACP);
end;

Function UnicodeToAnsiString(S:string):AnsiString;
begin
  Result:=WideStringToAnsiStringEx(S,GetACP);
end;


Function RecodeString(S:String; FromCodePage,ToCodePage:DWORD):string;
var Len:Integer;
    wcBuf:PWideChar;
    pcBuf:PAnsiChar;
    SBuf:AnsiString;
begin
  if S='' then Result:=S
  else begin
         SBuf:=UnicodeToAnsiString(S);
         Len:=Length(SBuf);
         GetMem(wcBuf,Len*2+2);
         try
           MultiByteToWideChar(FromCodePage,0,PAnsiChar(SBuf),Len,wcBuf,Len);
           GetMem(pcBuf,Len+1);
           (pcBuf+Len)^:=#0;
           try
             WideCharToMultiByte(ToCodePage,0,wcBuf,Len,pcBuf,Len,nil,nil);
             SetLength(Result,Len);
             Result:=AnsiStringToUnicode(AnsiString(pcBuf));
           finally FreeMem(pcBuf); end;
         finally FreeMem(wcBuf); end;
       end;
end;

// использование
Memo1.Lines.Add(RecodeString(StringFromServer,20866,1200));  // KOI8 == 20866, UNICODE == 1200
...
Рейтинг: 0 / 0
28.03.2018, 16:48
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39622206
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
nikolll,

А это - коротенькая реализация для D2009 и выше:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Function RecodeString(S:String; FromCodePage,ToCodePage:DWORD):string;
var FEnc,TEnc:TEncoding;
begin
  FEnc:=TEncoding.GetEncoding(FromCodePage); TEnc:=TEncoding.GetEncoding(ToCodePage); 
  try
    Result:=StringOf(TEncoding.Convert(FEnc,TEnc,BytesOf(S)));
  finally FEnc.Free; TEnc.Free;  end;
end;

// использование
Memo1.Lines.Add(RecodeString(StringFromServer,20866,1200));
...
Рейтинг: 0 / 0
28.03.2018, 16:59
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39623262
nikolll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolll
Гость
Все что писалось выше не помогла.
Проблема была в компоненте TIdSysLogMessage;
Написал свою обработку.

Вот код
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
var
  Form1: TForm1;
  str:string;
  msData: TMemoryStream;

............

procedure TForm1.IdSyslogServer1Syslog(Sender: TObject;
  ASysLogMessage: TIdSysLogMessage; ABinding: TIdSocketHandle);

begin
 Memo1.Lines.Add(str);
 str:=''; 
 msData.Free;
end;



procedure TForm1.IdSyslogServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
 Buff: TBytes;
 
begin
 
msData := TMemoryStream.Create;
 msData.Write(AData[0], Length(AData));
 msData.Seek(0, soFromBeginning);
 SetLength(Buff, msData.Size);
 msData.Position := 0;
 msData.Read(Buff[0], msData.Size);

  if msData.Size <> 0 then
   begin
     str := TEncoding.Default.GetString(Buff);

  end;
 end;

end.
...
Рейтинг: 0 / 0
30.03.2018, 13:35
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39623267
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
nikolll,

Т.к. TIdBytes это тот же TBytes, то можно проще
Код: pascal
1.
str := TEncoding.Default.GetString(TBytes(АData));



Кстати, манипуляции с MemoryStream у тебя попахивают :(
...
Рейтинг: 0 / 0
30.03.2018, 13:44
| Ответить | Цитировать | Написать  
IdSyslogServer кодировка
    #39623332
nikolll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikolll
Гость
DarkMaster,

Да согласен с тобой, код нужно оптимизировать, он он такой из-за того что ума чего побывал.
...
Рейтинг: 0 / 0
30.03.2018, 14:51
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / IdSyslogServer кодировка
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39622156&tid=2041070]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 22ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 217ms
total:  331ms
созд. / загр.: 331ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]