Последняя версия DataExpress 3 beta от 15 сентября 2020 года.

Изображение Скачать | Изображение Что нового?



Объявление:

Если вам понравилась программа и вы ее интенсивно используете - замолвите словечко о ней на вашем сайте (блоге, форуме, твитере, краской на подъезде, ютуб-канале и т.д.) с активной (по-возможности) ссылкой на сайт программы/форум. Тем самым вы можете внести небольшой вклад в seo-карму проекта в виде входящих ссылок.
Спасибо! Администрация :)


>> Обсудить <<

Загрузка виртуальной картинки из TStream

Аватара пользователя
Иван
Интересующийся
Сообщения: 185
Зарегистрирован: 22 дек 2018, 14:16
Благодарил (а): 28 раз
Поблагодарили: 46 раз

Загрузка виртуальной картинки из TStream

Сообщение Иван » 11 янв 2020, 12:56

При загрузке картинки в dxImage1 на форме нет никаких проблем. При загрузке в виртуальное изображение, не прикрепленное к форме выдает ошибку. Хотя выводить я его никуда не пытаюсь, просто загрузить. Нужна какая то инициализация изображения что ли?

Код: Выделить всё

const
   YYY = 'iVBORw0KGgo.............................ABJRU5ErkJggg=='; // урезал что б не загромождало


procedure ShowView (Sender: TObject);
var
     img: TdxImage; SS: TStringStream;
begin
     SS := TStringStream.Create(DecodeBase64(YYY, False));
 // dxImage1.LoadFromStream(SS); // все хорошо отображает
//  dxImage1.Refresh;
     img.LoadFromStream(SS);       // выдает ошибку нуль эксепшин
  SS.Free;
end;   

Аватара пользователя
Develop-Soft
Сообщения: 1752
Зарегистрирован: 05 мар 2019, 18:09
Благодарил (а): 122 раза
Поблагодарили: 472 раза
Контактная информация:

Загрузка виртуальной картинки из TStream

Сообщение Develop-Soft » 11 янв 2020, 13:11

img - переменная объявлена, но сам компонент не создан методом Create.

Аватара пользователя
Иван
Интересующийся
Сообщения: 185
Зарегистрирован: 22 дек 2018, 14:16
Благодарил (а): 28 раз
Поблагодарили: 46 раз

Загрузка виртуальной картинки из TStream

Сообщение Иван » 11 янв 2020, 13:40

Develop-Soft писал(а):img - переменная объявлена, но сам компонент не создан методом Create.


Пробовал Create ранее но видимо что то прописал не так. Сработало, спасибо)

Код: Выделить всё

  SS := TStringStream.Create(DecodeBase64(YYY, False));
  img:=TdxImage.Create(nil);
  img.Parent:= Q;
  img.LoadFromStream(SS);     
  img.Refresh;
  SS.Free;

Аватара пользователя
Develop-Soft
Сообщения: 1752
Зарегистрирован: 05 мар 2019, 18:09
Благодарил (а): 122 раза
Поблагодарили: 472 раза
Контактная информация:

Загрузка виртуальной картинки из TStream

Сообщение Develop-Soft » 11 янв 2020, 13:57

Ну и уничтожать ее тоже желательно, когда не нужна...


Вернуться в «Разработка расширений»