| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMemoryStream и bitmap [D7, Win2k]

seregka ©   (2005-03-26 22:25:00) 

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

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

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

---

seregka   (2005-03-26 23:33:00) [1]

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

---

AlterEgo of WondeRu   (2005-03-26 23:27:00) [2]

код покажи

---

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

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

---

seregka   (2005-03-26 23:08:00) [4]

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

---

AlterEgo of WondeRu   (2005-03-26 22:59:00) [5]

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

---

Наверх