Запись изображения на диск через TFileStream
Запись изображения на диск через TFileStream
Запись изображения на диск через TFileStream Вот что удалось изобрести вашему покорному слуге: procedure TForm1.Button1Click(Sender: TObject); var fs1: TMemoryStream; fs2:TFileStream; b: TBitmap; begin fs1:= TMemoryStream.Create; Image1.Picture.Graphic.SaveToStream(fs1); fs2 := TFileStream.Create('c:\123.abc', fmCreate); fs2.CopyFrom(fs1,0); fs2.Write(Image1.Picture.Graphic,SizeOf(Image1.Picture.Graphic)); fs1.FreeInstance; fs2.FreeInstance; ShowMessage('The picture was saved'); end; Полная дискуссия по этому вопросу есть на форуме http://www.programmersforum.ru
