Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

TMemoryStream и TBitmap: кто виноват?   Найти похожие ветки 

 
Артемиус   (2005-01-19 15:02) [0]

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

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

Система не выдает никаких ошибок, все отрабатывается отлично.... Но во втором Image ничего не отображается... Как быть? Подскажите, кто сколько может!
Заранее спасибо!


 
Johnmen ©   (2005-01-19 15:08) [1]

...
Image1.Picture.Bitmap.SaveToStream(str);
str.Position:=0;
Image2.Picture.Bitmap.LoadFromStream(str);
...


 
Артемиус   (2005-01-19 15:14) [2]

Johnmen, вечная тебе память! 8-)))) Спасибо! А ведь должен сам позиционироваться на начале, зараза! Ща попробую в основной программе...


 
Digitman ©   (2005-01-19 15:18) [3]


> А ведь должен сам позиционироваться на начале


с какого перепугу "сам" ?


 
WondeRu ©   (2005-01-19 16:16) [4]

Артемиус   (19.01.05 15:14) [2]
Johnmen, вечная тебе память!


уже похоронили!

Digitman ©   (19.01.05 15:18) [3]
> А ведь должен сам позиционироваться на начале
с какого перепугу "сам" ?

сам не должен)

для этого я обычно пишу потомки от базовых классов, чтоб не забыть)))


 
Digitman ©   (2005-01-19 16:21) [5]


> WondeRu ©   (19.01.05 16:16) [4]


малацца

только вот ходить в гости к соседу по лестн.клетке через Китай не всегда удобно)


 
Johnmen ©   (2005-01-19 16:39) [6]

>WondeRu ©   (19.01.05 16:16) [4]

"Не спешите нас хоронить..." (с) Чайф



Страницы: 1 вся ветка

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
9-1098607787
rydmi
2004-10-24 12:49
2005.01.30
Collusion.


3-1103788640
juice
2004-12-23 10:57
2005.01.30
Пустое поле


3-1104013064
Никола
2004-12-26 01:17
2005.01.30
Печать платежных поручений


1-1105702832
starik30
2005-01-14 14:40
2005.01.30
Установка свойств обьекта


14-1105627506
Cosinus
2005-01-13 17:45
2005.01.30
Хм... Глупый вопрос,но все же. Как удалить установленный Package?