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

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

Bitmap & Stream

Неместная ©   (2007-11-22 03:00:00) 

var
 MS: TMemoryStream;
 B: TBitmap;
begin
 if not SaveDialog1.Execute then Exit;
 MS := TMemoryStream.Create;
 try
   Image1.Picture.Bitmap.SaveToStream(MS);
   with TBitmap.Create do begin
   LoadFromStream(MS);
   Width := 100;
   Height := 100;
   SaveToFile(SaveDialog1.FileName);
   Free;
 end;
finally
 MS.Free;
end;

в результате в указанном SaveDialog1 файле сохраняется чистая картинка размером 100 на 100. а должна быть картинка из Image1. Почему так?

---

MBo   (2007-11-22 07:28:00) [1]

между
SaveToStream(MS);
и
LoadFromStream(MS);
нужно MS.Position в 0 установить

а зачем размеры задавать - вообще непонятно.

---

Наверх