Форум: "Основная";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Вниз

перенос картинки из одного 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);

---

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

Форум: "Основная";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c