Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Загрузка картинки из строковой переменной

Автор: pseud 30.7.2007, 16:50

Бросаем контрол TImage на форму. Загружаем в него картинку В результате в *.dfm файле видим следующее: Код   object Image1: TImage     Picture.Data = {        _куча_циферок_и_буковок_       }   end Хочу в коде завести строковую перемнную Код s := '_куча_циферок_и_буковок_'; и загрузить ее при случае в TImage. Подскажите плиз, как такое дело реализовать.

Автор: pseud 30.7.2007, 17:07

для примера: Код   object Image1: TImage     Left = 136     Top = 64     Width = 57     Height = 33     Picture.Data = {       07544269746D617036030000424D360300000000000036000000280000001000       0000100000000100180000000000000300000000000000000000000000000000       0000FF00FFFF00FF808080808080808080808080808080808080808080808080       808080808080808080808080808080FF00FFFF00FF0080800000000000000000       0000000000000000000000000000000000000000000000000000000080808080       808000808000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF       00FFFF00FFFF00FFFF00FFFF00000080808000808000FFFF00FFFF00FFFF00FF       FF00FFFF80808000000080808000FFFF00FFFF00FFFF00FFFF00FFFF00000080       808000808000FFFF00FFFF00FFFF00FFFF00FFFF80808000000080808000FFFF       00FFFF00FFFF00FFFF00FFFF000000FF00FFFF00FF00808000FFFF00FFFF00FF       FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000808080FF       00FFFF00FF00808000FFFF00FFFF00FFFF00FFFF00FFFF00000000FFFF00FFFF       00FFFF00FFFF00FFFF000000FF00FFFF00FFFF00FFFF00FF00808000FFFF00FF       FF00FFFF00808000000000808000FFFF00FFFF00FFFF000000808080FF00FFFF       00FFFF00FFFF00FF00808000FFFF00FFFF00FFFF00000000000000000000FFFF       00FFFF00FFFF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00808000FF       FF00FFFF00000000000000000000FFFF00FFFF000000808080FF00FFFF00FFFF       00FFFF00FFFF00FFFF00FF00808000FFFF00FFFF00000000000000000000FFFF       00FFFF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0080       8000FFFF00FFFF00000000FFFF00FFFF000000808080FF00FFFF00FFFF00FFFF       00FFFF00FFFF00FFFF00FFFF00FF00808000FFFF00FFFF00FFFF00FFFF00FFFF       000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00       FF00808000FFFF00FFFF00FFFF000000808080FF00FFFF00FFFF00FFFF00FFFF       00FFFF00FFFF00FFFF00FFFF00FFFF00FF00808000FFFF00FFFF00FFFF000000       FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00       FFFF00FF008080008080008080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF       00FF}     Transparent = True

Автор: s-mike 30.7.2007, 17:35

Читаешь пиксельные данные изображения побайтно и записываешь в текстовом виде с помощью IntToHex.

Автор: pseud 30.7.2007, 17:50

Цитата(s-mike @  30.7.2007,  17:35 ) Читаешь пиксельные данные изображения побайтно и записываешь в текстовом виде с помощью IntToHex.  мне надо из string в Image/Picture/Bitmap пару процедур, плиз

Автор: s-mike 30.7.2007, 20:36

Ой, невнимательно прочитал. Ну собственно наоборот  Считываешь посимвольно, записываешь в поток и загружаешь через Image.Picture.LoadFromStream.

Автор: lollollollol 8.2.2014, 14:38

dell, просьба модераторов удалить, случайно оставил сообщение не в том окне

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)