Скачать: CL | DM;

TMemoryStream и bitmap   Найти похожие ветки 

← →
seregka   (2005-03-26 22:25) [0]

Чего я делаю не так:

var potok:tmemorystream;
....
potok.create;
image1.picture.bitmap.savetostream(potok);
image2.picture.bitmap.loadfromstream(potok);

И во втором image пустота.

---

← →
AlterEgo of WondeRu ©   (2005-03-26 22:59) [1]

var
 AStream: TMemoryStream;
....
AStream := TMemoryStream.Create;
try
 image1.picture.bitmap.savetostream(AStream);
 AStream.Position := 0;
 image2.picture.bitmap.loadfromstream(AStream);
finally
 AStream.Free;
end;

---

← →
seregka   (2005-03-26 23:08) [2]

огромное спасибо

---

← →
seregka   (2005-03-26 23:20) [3]

Упс, новая проблема:
если это делать в пределах одной процедуры, то все работает. Если же я объявляю astream глобальной переменной и пытаюсь совершить присвоение битмэпу содержания потока в другой процедуре, то получаю ошибку. Безусловно, astream.free в первой процедуре убираю

---

← →
AlterEgo of WondeRu ©   (2005-03-26 23:27) [4]

код покажи

---

← →
seregka   (2005-03-26 23:33) [5]

Извиняюсь - сам накосячил с переменными. Исправился.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c