Capturar tela e salvar como Imagem de Bitmap

[H43CK3L 0]

Vo ensinar a vocês como criar um praograma para capturar a tela e salvar como imagem de bitmap em delphi...

 

Componentes:

2 panel

2 button

1 savedialog

1 image

 

Modifique:

*button1

caption = Capturar

 

*button2

caption = Salvar

 

*Image1

Stretch = true

 

*panel1

align = alclient

 

*panel2

align = albottom

 

*savedialog1

defaultext = *.bmp

filter...> filter name= Imagem de Bitmap filter= *.bmp

 

Organize como a imagem abaixo:

 

 

 

Insira o Código:

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, XPMan;

 

type

TForm1 = class(TForm)

Button1: TButton;

SaveDialog1: TSaveDialog;

Image1: TImage;

Button2: TButton;

Panel1: TPanel;

Panel2: TPanel;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

ScreenBitmap: TBitmap;

ScreenDC: HDC;

ScreenHandle: HWnd;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ScreenHandle := GetDeskTopWindow;

ScreenDC := GetDC(ScreenHandle);

ScreenBitmap := TBitMap.Create;

ScreenBitmap.Width := Screen.Width;

ScreenBitmap.Height := Screen.Height;

BitBlt(ScreenBitmap.Canvas.Handle, 0, 0,

Screen.Width, Screen.Height, ScreenDC, 0, 0, SRCCOPY);

Image1.Picture.Assign(ScreenBitmap);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if SaveDialog1.Execute then

ScreenBitmap.SaveToFile(SaveDialog1.FileName);

end;

 

end.

Pronto agora é só compilar e rodar!

 

SOURCE DO PROGRAMA

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

SCAN

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

ABRAÇÃO...

DÚVIDAS POSTEM AI...