Как сохранить изображение с канвы в файл

[Marsel737]

Всем доброго времени суток.

Подскажите как можно сохранить изображение с канвы формы в файл.

 imgPaintPic.LoadFromFile('Data/Paint/'+IntToStr(PicNum)+'.bmp');
  frmMain.Canvas.Refresh;
  frmMain.Canvas.Draw(11,11,imgPaintPic);

[mihali4]

Как сделать BMP снимок с экрана?

Грузин:

var
  Desktopcanvas :TCanvas ;
 BitMap  :TBitMap;
begin
  DesktopCanvas:=TCanvas.Create;
  DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
  BitMap := TBitMap.Create;
  BitMap.Width := Screen.Width;
  BitMap.Height:=Screen.Height;
  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
  DesktopCanvas, DesktopCanvas.ClipRect);
  bitmap.SaveToFile('c:\windows\screen.bmp');
 image1.Picture.LoadFromFile('c:\windows\screen.bmp');
end;

*********************************** ******************
Alar:

var 
ScreenDC:HDC; 
Canvas:TCanvas; 
Image1:TImage; 
Begin 
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create(); 
Canvas.Handle:=ScreenDC; 
Image1 := TImage.Create(nil); 
Image1.Width := Screen.Width 
Image1.Height := Screen.Height 
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image 1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); 
ReleaseDC(0,ScreenDC); 
Canvas.Free; 
end;

Вам осталось подставить нужные значения Rect для клиентской области своей формы. А в совете Алара - добавить сохранение Image1 в файл...

[Marsel737]

Я выбрал вот этот код:

procedure TfrmMain.btnSaveClick(Sender: TObject);
var
 BitMap  :TBitMap;
 Desktopcanvas :TCanvas ;
begin
  DesktopCanvas:=TCanvas.Create;
  DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
  BitMap := TBitMap.Create;
  BitMap.Width := imgPaintPic.Width+12;
  BitMap.Height:=imgPaintPic.Height+12;
  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, DesktopCanvas, DesktopCanvas.ClipRect);
  bitmap.SaveToFile('Data/screen.bmp');
end;

Только не пойму, что писать вместо этого:

Bitmap.Canvas.ClipRect, DesktopCanvas, DesktopCanvas.ClipRect

У меня рисуется вот такой прямоугольник:

frmMain.Canvas.Rectangle(10,10,612,626);

И нужно его содержимое сохранить

[mihali4]

Выберите код Алара - там проще. Нужно будет указать четыре точки...

[Marsel737]

mihali4, спасибо за помощь