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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TMemoryStream и TBitmap: кто виноват? 
:(
    Опции темы
mr Dooser
  Дата 19.1.2005, 14:32 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Добрейшего всего и всем!
Есть проблема: пытаюсь скопировать данные из одного Bitmap-объекта в другой. Но непросто так, а через TMemoryStream. Вроде все как бы ок, но только... не копируется ни разу! Примерный код такой:
Код

var str: TMemoryStream;
begin
 str := TMemoryStream.Create;
 Image1.Picture.Bitmap.SaveToStream(str);
 Image2.Picture.Bitmap.LoadFromStream(str);
 str.Free;
end;

Система не выдает никаких ошибок, все отрабатывается отлично.... Но во втором Image ничего не отображается... Как быть? Подскажите, кто сколько может!
Заранее спасибо!
  Вверх
_hunter
Дата 19.1.2005, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
попробуй перед чтением установить позицию потока в ноль ( да и проверь есть ли что-то в потоке )


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Rennigth
Дата 19.1.2005, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
_hunter
угу, проверил, так работает:

Код

var
 str: TMemoryStream;
begin
 str := TMemoryStream.Create;
 KMImage1.Picture.Bitmap.SaveToStream(str);
 str.Position := 0;
 KMImage2.Picture.Bitmap.LoadFromStream(str);
 str.Free;
end;




--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
mr Dooser
Дата 19.1.2005, 15:16 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Все, спасибо всем! Все работает....
  Вверх
_hunter
Дата 19.1.2005, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
пожалуйста. обращайтесь еще smile


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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