Передаю данные с блоб поля в ТRichEdit таким способом
SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR(IBQuerylist.FieldByName('pic').AsString)));
В BSD 2006 все работает без проблем, а в XE2 rtf отображаеться как обычный текст со всеми спец символами, по типу - "{\rtf1\ansi\ansicpg1251\uc1 \deff0\deflang1049\deflangfe1049{\fonttbl{\f0\froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f150\froman\fcharset0\fprq2 Times New Roman;}{\f148\froman\fcharset238\fprq2 Times New Roman CE;}
" и так далее.
В чем может быть проблема ?
Примечание:
Андрей Архангельский - "Наверное нужно смотреть charset или привести строки к ANSISTRING"
К сожаленияю не помогло, он и так и так попадает в RichEdit1 в читаемом виде только не распознаеться как rtf. :(
Примечание:
Сделал через потоки все работает. Всем спасибо.
strm := TStringStream.Create;
strm.WriteString(IBVievBase.FieldByName('RTF_LABEL').AsString);
strm.Position := 0;
RichEdit1.Lines.LoadFromStream(strm);
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.