Скачать: CL | DM;

Bitmap & Stream   Найти похожие ветки 

← →
Неместная   (2007-11-22 03:00) [0]

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) [1]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.026 c