Başlangıç > Kodlar > Delphi ile ekran görüntüsü(screenshot) almak

Delphi ile ekran görüntüsü(screenshot) almak

Merhabalar

vereceğim kod ile screenshot ( Ekran görüntüsünü alma ) alabilirsiniz.
Delphimizi açıp bir İmage nesnesi birde buton koyacağız. ve altaki kodu gerekli yerlere koymanız yeterli olacaktır.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(******: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
////////////////////////////////// üsteki bölüm yeni bir ünit proje açtığınızda direk olarak var olacaktır.
procedure ScreenShot(DestBitmap : TBitmap) ;
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
BitBlt(DestBitmap.Canvas.Handle, 0, 0, DestBitmap.Width, DestBitmap.Height, DC, 0, 0, SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow, DC) ;
end;
end;

//// procedure yazdık ve şimdi butona tıkladığımızda çalışması için kodumuzu yazlım aşağıdaki kodda bu işe yaramaktadır.
procedure TForm1.Button1Click(******: TObject);
var
b:TBitmap;
begin
b := TBitmap.Create;
try
ScreenShot(b) ;
Image1.Picture.Bitmap.Assign(b) ;
finally
b.FreeImage;
FreeAndNil(b) ;
end;

end;

end.

Buraya kadar ve isterseniz time nesnesi ekleyerek 5 dk bir yada istediğiniz süreye göre ekran görüntüsü alabilirisiniz.

Reklamlar
Kategoriler:Kodlar Etiketler:, ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: