Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка картинки из строковой переменной 
:(
    Опции темы
pseud
Дата 30.7.2007, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: нет
Всего: 40



Бросаем контрол TImage на форму.
Загружаем в него картинку
В результате в *.dfm файле видим следующее:

Код

  object Image1: TImage
    Picture.Data = {
       _куча_циферок_и_буковок_
      }
  end


Хочу в коде завести строковую перемнную

Код

s := '_куча_циферок_и_буковок_';


и загрузить ее при случае в TImage.

Подскажите плиз, как такое дело реализовать.




--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
pseud
Дата 30.7.2007, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: нет
Всего: 40





для примера:
Код

  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



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
s-mike
Дата 30.7.2007, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 5
Всего: 16



Читаешь пиксельные данные изображения побайтно и записываешь в текстовом виде с помощью IntToHex.
PM MAIL WWW   Вверх
pseud
Дата 30.7.2007, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: нет
Всего: 40



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


мне надо из string в Image/Picture/Bitmap

пару процедур, плиз


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
s-mike
Дата 30.7.2007, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 5
Всего: 16



Ой, невнимательно прочитал. Ну собственно наоборот smile Считываешь посимвольно, записываешь в поток и загружаешь через Image.Picture.LoadFromStream.
PM MAIL WWW   Вверх
lollollollol
Дата 8.2.2014, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 287
Регистрация: 12.3.2013

Репутация: нет
Всего: нет



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

Это сообщение отредактировал(а) lollollollol - 8.2.2014, 14:39
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0668 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.