Indy IRC

[CyberStorm]

Проблема, делаю клиент для IRC на Delphi 10.1 для андроида, подключаюсь всё нормально, но при получении русских символов TMemo куда я вывожу текст получает символы таокго формата ���� (ромб с вопросом)

Понимаю что дело в кодировке, но что я только не пробовал не получается:

procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANickname,
  AHost, ATarget, AMessage: string);
begin
form1.MemoChat.Lines.Add(AMessage);
form1.MemoChat.Lines.Add(AnsiToUtf8(AMessage));
form1.MemoChat.Lines.Add(Utf8ToAnsi(AMessage));

end;

В теории сервер передает строки формата ANSI, так что я не понимаю чего нужно дельфям что бы нормально их выводить...

[Данил Абдрафиков]

25 минут назад, CyberStorm сказал:

В теории сервер передает строки формата ANSI, так что я не понимаю чего нужно дельфям что бы нормально их выводить...

Используйте TEncoding

[Akad]

А что реально приходит (дебагер показывает, что в буфере)? Помню там была проблема с отсечением последнего символа. Но приходил корректный текст. Можно инди пересобрать и в колл-стеке глянуть где криво переход анси в юникод. Возможно сервер ожидает utf8, а  там 1251 например приходит.
 

[CyberStorm]

21 час назад, Данил Абдрафиков сказал:

Используйте TEncoding

а есть пример попроще?

[dnekrasov]

var
  Data: TIdMultiPartFormDataStream;
  msResponse: TMemoryStream;
  sResponse: String;
  bts: TBytes;

...

msResponse := TMemoryStream.Create;
try
  FIdHTTP.Post([URL], Data, msResponse);
  SetLength(bts, msResponse.Size);
  msResponse.Position := 0;
  msResponse.Read(bts[0], msResponse.Size);
  sResponse := TEncoding.UTF8.GetString(bts);
finally
  FreeAndNil(msResponse);
end;

Так я работаю с IdHTTP. Я думаю, что-то на подобии этого нужно и Вам реализовать

Изменено 26 ноября, 2017 пользователем dnekrasov