Форум: "Media";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Media";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
