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 в первой процедуре убираю

код покажи

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

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

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