-1

Как сохранить Bitmap в файл .bmp?

У меня пишет ошибку при вызове TBitmap.SaveToFile:

Project raised exception class EAccessViolation with message ...

Ошибка!

P.S. Не обращайте внимания, что окна цветные, просто я эксперементировал с системной палитрой, а восстанавливать не захотел!

8
  • А метод SaveToFile не сохраняет разве?
    – DelphiM0ZG
    5 мая 2012 в 10:43
  • По идее должен, но у меня пишет ошибку, и не сохраняет. Не знаю что компилятору надо?! 5 мая 2012 в 10:45
  • @DelphiM0ZG Вот что у меня пишет! 5 мая 2012 в 10:55
  • Пробовал ещё имя файла писать просто 'desktop.bmp' Ещё пробовал без FileCreate('desktop.bmp'); 5 мая 2012 в 10:57
  • 1
    Мои глаза!
    – karmadro4
    5 мая 2012 в 16:51

2 ответа 2

3

Только что по-быстрому набрал этот код - у меня всё прекрасно пашет.

procedure TForm1.Button1Click(Sender: TObject);
Var
  Bm: TBitmap;
begin
  Bm:=TBitmap.Create();
  Bm.Width:=400;
  Bm.Height:=300;
  Bm.Canvas.Brush.Color:=clRed;
  Bm.Canvas.FillRect(Rect(0, 0, 400, 300));
  Bm.SaveToFile('bm.bmp');
  Bm.Free;
end;

Вы освободили память под Bitmap (Bm.Free;), ещё до того, как сохранили. Посмотрите внимательней.

6
  • Ой, блин, точно!!! Большое спасибо, щас попробую! 5 мая 2012 в 11:00
  • Как вариант, могу ещё предложить программно создать Image и сохранить Bitmap в Image. А из Image, я думаю, точно сохраниться.
    – DelphiM0ZG
    5 мая 2012 в 11:16
  • А как из Image сохранить, а то у меня изображение и должно из Image сохранятся, но не нашёл нужного метода, и поэтому использовал Bitmap! 5 мая 2012 в 11:20
  • Всё получилось!!!! Больщое спасибо!!!! Осталось только узнать как можно управлять окнами, если я знаю имя этого процесса!!! 5 мая 2012 в 11:22
  • Так сохранять: Image.Picture.SaveToFile(SavePictureDialog.FileName+'.bmp'); После чего всё получилось?
    – DelphiM0ZG
    5 мая 2012 в 11:25
0
var b,bb: TBitmap;
begin
  b:=TBitmap.Create;
  bb:=TBitmap.Create;
  try
    b.Width:=175;
    b.Height:=175;
    b.PixelFormat:=pf24bit;
    bb.Assign(MenuBackground.Picture.Graphic);
    StretchBlt(b.Canvas.Handle,0,0,175,175,bb.Canvas.Handle,0,0,175,175,SrcCopy);
    b.SaveToFile('save.bmp');
  finally
    b.Free;
    bb.Free;

end; end;

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.