-->

Anuncio!

Captura de tela em Delphi (screenshot)

E ae galera blz? como hoje é minha primeira postagem na tenditech, eu optei por postar um assunto que estou mais acostumado que seria a programação para o Delphi. nesse tutorial básico vamos esta aprendendo tirar um screenshot com Delphi usando as API do próprio sistema Windows e algumas funções do Delphi. Para começar sem muita enrolação abrimos o Delphi (no meu caso vou esta utilizando o saudoso Delphi 7)



Nele vou esta colocando dois componentes, o primeiro será um botão da aba "standard" (também mudei o texto nesse botão, colocando "diga X" kkk), o segundo será um componente Image da aba "Additional"



No evento onclick do botão a gente vai escrever o nosso código que vai está capturando o desktop (no caso o nosso printscreen). Para que isso seja possível temos que capturar o handle da janela do desktop, para fazer isso usamos a API GetDesktopWindow e armazenamos o retorno dela em uma variavel do tipo HWND


procedure TForm1.Button1Click(Sender: TObject);
var janela: HWND;
begin
janela := GetDesktopWindow();
end;


O segundo passo que vamos fazer é instanciar um objeto do tipo TBitmap que será usado para manipular o Desktop como imagem


procedure TForm1.Button1Click(Sender: TObject);
var janela: HWND;
janelaDC: TBitmap;
begin
janela := GetDesktopWindow();
janelaDC := TBitmap.Create;
end;


Temos também que especificar o tamanho exato do desktop, para fazer isso temos que atribuir esses valores nos atributos width e height do TBitmap (uma forma para descobrir o tamanho da tela é usando o atributo Screen.Width e Screen.Height)


procedure TForm1.Button1Click(Sender: TObject);
var janela: HWND;
janelaDC: TBitmap;
begin
janela := GetDesktopWindow();
janelaDC := TBitmap.Create;
janelaDC.Width := Screen.Width;
janelaDC.Height := Screen.Height;
end;


Agora pegamos o contexto daquela janela usando a função GetDC, passamos como argumento o handle da janela (no caso a variável do desktop), também atribuímos ela para o atributo Canvas.handle do nosso objeto TBitmap


procedure TForm1.Button1Click(Sender: TObject);
var janela: HWND;
janelaDC: TBitmap;
begin
janela := GetDesktopWindow();
janelaDC := TBitmap.Create;
janelaDC.Width := Screen.Width;
janelaDC.Height := Screen.Height;
janelaDC.Canvas.Handle := GetDC(janela);
end;


Por fim basta nós copiarmos cada pixel do nosso objeto TBitmap para o objeto do componente image. Para isso usamos o método Canvas.CopyRect no componente image, nesse metodo temos que especificar o tamanho da dimensão do destino no caso a largura e altura do componente image (usamos o Rect para isso), o segundo argumento seria canvas do objeto que vamos copiar (objeto do TBitmap), e o ultimo argumento seria a dimensão da fonte no caso o objeto do TBitmap (tambem usamos o Rect), podemos tambem tentar outras dimensão para capturar uma area especifica ou ate uma janela especifica


procedure TForm1.Button1Click(Sender: TObject);
var janela: HWND;
janelaDC: TBitmap;
begin
janela := GetDesktopWindow();
janelaDC := TBitmap.Create;
janelaDC.Width := Screen.Width;
janelaDC.Height := Screen.Height;
janelaDC.Canvas.Handle := GetDC(janela);
Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height), janelaDC.Canvas, Rect(0,0,Screen.Width,Screen.Height));
end;




Nosso programa está pronto bastando salvar, compilar e executar ele



se a gente apertar naquele botão ele vai capturar a tela



Bom galera existem muitas coisas que seria possível desenvolver com base nesse codigo, vocês podem criar um screenlogger, um programa para capturar stream da tela em tempo real, um programa para screenshot customizado entre muitas outras coisas. E arigatou ai para a galera do tenditech pelo convite, tamos ai minna-san ate a proxima \o
Compartilhar:
← Anterior Proxima → Inicio

Um comentário:

Formulário de contato

Nome

E-mail *

Mensagem *

Sites Parceiros

Anuncio No Post

Anuncio No Post

Anuncio Aqui!