Добрый день. Ковыряю IM VCL Component. Почти все работает. Но проблема при получении сообщений.
Сообщения принимаються следующим образом (взято из примера):
Код:
procedure TfrmICQ.ICQMessage(Sender: TObject; const Buddy: string;
const Message: WideString);
begin
memLog.Lines.Add(Buddy + ' Said: ' + Message);
end;
Так вот. в memLog добавляется всякая ерунда.
Если тормознуть прогу на memLog.Lines.Add(Buddy + ' Said: ' + Message);, то видно, что Message имеет следующий формат: #00'H'#00'i'. В мануале написано, что:
Цитата:
procedure SendMessage(const Buddy: string; const AMessage: WideString);
Description
Send instant message to your buddy. It support UTF8 char
|
Я непойму, это получается что у меня приходить UTF16 или что? И как мне преобразовать это в обычный String?
Видел это:
http://www.delphisources.ru/forum/sh...eString+String в codepage подставляю 1251. На выходе из функции получается пустая строка.
Не пойму, как лечить?