перенос картинки из одного Timage в другой

← →
denis24 (2006-02-22 13:07) [0]

Подскажите пожалуста
Делаю сабж
var S: TStream; begin S:=Tstream.create; Image1.Picture.Graphic.SaveToStream(s); Image2 .Picture.Graphic.LoadFromStream(s);
Выскакивает ошибка "Abstract error"
Где я не прав?

← →
clickmaker © (2006-02-22 13:09) [1]

TStream - абстрактный класс
Юзай TMemoryStream

← →
denis24 (2006-02-22 13:13) [2]

?
var s:TMemoryStream ; begin s:=TMemoryStream.Create; Image1.Picture.Graphic.SaveToStream(s); Image2.Picture.Graphic.LoadFromStream(s);//Asses violetion...... s.Free

← →
clickmaker © (2006-02-22 13:20) [3]

а вообще, зачем так сложно?
Image2.Assign(Image1);

← →
denis24 (2006-02-22 13:29) [4]

Спасибо
Image2.picture.Assign(image1.picture);

перенос картинки из одного Timage в другой Найти похожие ветки