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 установить

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

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

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