Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.034 c
3-1103603272
bers
2004-12-21 07:27
2005.01.30
Доброго времени суток, мастера! Тормоза при повторном выполнении


1-1105899083
Ньюб
2005-01-16 21:11
2005.01.30
Доступ к свойствам компонентов


14-1104685028
Hypercube
2005-01-02 19:57
2005.01.30
Филосовия Equilibrium


1-1105688883
Sailor
2005-01-14 10:48
2005.01.30
Разработка приложений в команде


3-1104164186
juice
2004-12-27 19:16
2005.01.30
TQuickReport





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский