Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TMemoryStream и TBitmap: кто виноват?

Автор: mr Dooser 19.1.2005, 14:32

Добрейшего всего и всем!
Есть проблема: пытаюсь скопировать данные из одного Bitmap-объекта в другой. Но непросто так, а через TMemoryStream. Вроде все как бы ок, но только... не копируется ни разу! Примерный код такой:

Код


var str: TMemoryStream;
begin
  str := TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(str);
  Image2.Picture.Bitmap.LoadFromStream(str);
  str.Free;
end;

Система не выдает никаких ошибок, все отрабатывается отлично.... Но во втором Image ничего не отображается... Как быть? Подскажите, кто сколько может!
Заранее спасибо!

Автор: _hunter 19.1.2005, 14:59

попробуй перед чтением установить позицию потока в ноль ( да и проверь есть ли что-то в потоке )

Автор: Rennigth 19.1.2005, 15:04

_hunter
угу, проверил, так работает:

Код


var
  str: TMemoryStream;
begin
  str := TMemoryStream.Create;
  KMImage1.Picture.Bitmap.SaveToStream(str);
  str.Position := 0;
  KMImage2.Picture.Bitmap.LoadFromStream(str);
  str.Free;
end;

Автор: mr Dooser 19.1.2005, 15:16

Все, спасибо всем! Все работает....

Автор: _hunter 19.1.2005, 15:18

пожалуйста. обращайтесь еще smile