Alzon Опубликовано 16 сентября, 2015 Поделиться Опубликовано 16 сентября, 2015 (изменено) Функция сериализации: function ComponentToString(Component: TComponent): string; var BinStream:TMemoryStream; StrStream: TStringStream; begin if Component=nil then Exit; BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create; try NativeWriteComponent(BinStream, Component); BinStream.Seek(0, soFromBeginning); ObjectBinaryToText(BinStream, StrStream); StrStream.Seek(0, soFromBeginning); Result:= StrStream.DataString; finally StrStream.Free; end; finally BinStream.Free end; end; падает с ошибкой "Stream read error" в ObjectBinaryToText(BinStream, StrStream), если в DefineProperties добавляю строку Filer.DefineProperty('DocX',ReadThing, WriteThing, true); procedure TSVGControl.DefineProperties(Filer: TFiler); begin inherited DefineProperties(Filer); Filer.DefineProperty('DocX',ReadThing, WriteThing, true); end; может кто-нибудь подсказать что я делаю не так? (проект на FMX) test_Serialization.zip Изменено 16 сентября, 2015 пользователем Brovin Yaroslav Цитата Ссылка на комментарий
Вопрос
Alzon
Функция сериализации:
падает с ошибкой "Stream read error" в ObjectBinaryToText(BinStream, StrStream), если в DefineProperties добавляю строку Filer.DefineProperty('DocX',ReadThing, WriteThing, true);
может кто-нибудь подсказать что я делаю не так?
test_Serialization.zip
Изменено пользователем Brovin YaroslavСсылка на комментарий
0 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.