Fórum Capturando a tela #351525

e aí colega.... manda esse projeto pra eu dar um olhadinha nele.

felipeucc@gmail.com


Valeu.

procedure TForm1.CapturarTela;
var
bmp : TBitmap;
jpeg : TJPEGImage;
dia,mes,ano,hora,min,seg, mseg : word;
begin
bmp := TBitmap.Create;
Clipboard.Clear;
keybd_event(vk_snapshot,0, 0, 0);
Application.ProcessMessages;
bmp.LoadFromClipboardFormat(CF_BITMAP,clipboard.GetAsHandle(CF_BITMAP),0);
jpeg := TJPEGImage.Create;
jpeg.Assign(bmp);
DecodeDate(now,ano,mes,dia);
DecodeTime(now,hora,min,seg,mseg);
jpeg.SaveToFile(ExtractFilePath(Application.ExeName) + inttostr(dia) + ´.´ + inttostr(mes) + ´.´ + inttostr(ano) + ´.´ + inttostr(hora) + ´.´ + inttostr(min) + ´.´ + inttostr(seg) + ´.jpg´);
jpeg.Free;
bmp.Free;
end;

>> modo de usar

declare nos Uses: ClipBrd, Jpeg;

É só colocar esta procedure dentro de um OnTimer!

O valeu cara ajudou bastante mesmo a pegar a noção, so que o que eu realmente precisava é que ele ja deixa-se a imagem no form, ou seja em vez dele ir enviando um arquivo de imagem para alguma pasta ele iria colocando na propria tela a imagem.

se voce souber posta ai

Amigo, neste caso então em vez de vc gravar em uma pasta a imagem use o componente TImage da paleta Additional nativo no delphi.

Agora tudo depense de como vc quer que apareça essa imagem da tela, se fopr em outro computador vc tera que gravar em algum local e fazer o sistema ir buscar a imagem de acordo com o seu timer.