panel görüntüsünü alıp veritabanına kaydetme

[erdogan]

(03-05-2020, Saat: 12:44)mrmarman Adlı Kullanıcıdan Alıntı:   Buradan yürüyebilirsiniz...

procedure TForm1.Button2Click(Sender: TObject);
var
  PanelDC : HDC;
  Bitmap  : TBitmap;
begin
  Bitmap  := TBitmap.Create;
  try
    Bitmap.PixelFormat := pf24bit;
    Bitmap.SetSize( Panel1.Width, Panel1.Height );

    PanelDC := GetDC( Panel1.Handle );
    BitBlt( Bitmap.Canvas.Handle, 0, 0, Panel1.Width, Panel1.Height, PanelDC, 0, 0, SRCCOPY );
    ReleaseDC( Panel1.handle, PanelDC );

    Image1.Picture.Graphic := Bitmap;
  finally
    Bitmap.Free;
  end;
end;

Burada JPG olarak çıktı almak istiyorsanız  Jpeg.Assign( Bitmap ); ile içine alıp Jpeg.SaveToFile olarak Jpeg formatında kayıt yapabilirsiniz. 
Çıktılarınız hangi format olursa olsun altyapıyı Bitmap kurarsanız başınız ağrımaz.

Eklemeyi unutmuşum : 
Yukarıdaki işlem VCL formlar için geçerli.

FMX olsaydı ( FMX Windows veya Android ) o zaman iş çok daha pratik idi..

procedure TForm1.Button2Click(Sender: TObject);
begin
 Image1.Bitmap := Panel1.MakeScreenshot;
end;

Çok teşekkür ederim hocam oldu.